首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么读取MSCOMM控件缓存区中的数据

2012-02-01 
如何读取MSCOMM控件缓存区中的数据?各位,我用VB写了一个发短信的小程序,能发单条短息,现在想实现群发。在判

如何读取MSCOMM控件缓存区中的数据?
各位,我用VB写了一个发短信的小程序,能发单条短息,现在想实现群发。在判断发送的每条短信是否成功,也就是判断MSCOMM控件缓存区中是否返加OK或ERROR时读不出缓存中的数据。

如何读取MSCOMM控件缓存区中的数据?

我用的INPUT方法读不出来,要怎么用,在什么地方用?

请各位指教!急!!!

[解决办法]
Public Function ProcReturnData(ByVal lngSleepTime As Long, ByRef strTempReturnString As String) As Boolean
ProcReturnData = False

On Error Resume Next

Dim Buffer() As Byte
Dim i As Long
Dim stem2, sTem1 As String

Sleep lngSleepTime

Buffer = frmMain.MSComm1.Input
'Sleep (1000)
stem2 = " "
sTem1 = " "
For i = 0 To UBound(Buffer())
ReDim stem(UBound(Buffer)) As String
'stem2 = stem2 & Right( "00 " & Hex(Buffer(i)), 2)
sTem1 = sTem1 & Chr(Buffer(i))
Next i

'Debug.Print sTem1

'If Check1.Value = 0 Then
'Text1.Text = Text1.Text & sTem1
' Else
' Text1.Text = Text1.Text & stem2
'End If

strTempReturnString = sTem1
ProcReturnData = True
End Function

热点排行