comdata.bas

提供给入门级别的GPRS编程人员

Attribute VB_Name = "comdata"
Option Explicit
'Public Function disp_message(ByRef indata() As Byte) As remsg
'    Dim i As Integer
'    Dim str As String
'    Dim myremsg As remsg
'    Dim num As Integer
'    For i = 0 To UBound(indata)
'
'         Print num
'    Next i
'    If indata(0) = 77 And indata(1) = 79 And indata(2) = 58 Then
'       If UBound(indata) >= 16 Then
'           str = StrConv(indata, vbUnicode)
'            If StrConv(str, 1, 16) = "MO: Send Data Ok" Then
'             myremsg.haltdata = indata
'             myremsg.msginfo = "已经成功发送数据"
'            End If
'       End If
'
'    End If
'    myremsg.haltdata = indata
'    myremsg.msginfo = ""
'    disp_message = myremsg
'
'End Function