Dim stemp As String

sb = Len(smsg)

ascg = ""

For si = 1 To sb

    stmp = AscW(Mid(smsg, si, 1))

    If Abs(stmp) < 127 Then

        stemp = "00" & Hex(stmp)

    Else

        stemp = Hex(stmp)

    End If

    ascg = ascg & stemp

Next si

ascg = Trim(ascg)

End Function

²        手机短信接收函数

相对于短信的发送函数而言，短信的接收相当简单，只需要以下的三行代码就完成了。但是它使用的技术却决不比短信的发送少，这里主要用到了Mscomm控件的Output属性和AT+CMGR指令。

Public Sub readsms(rnum As String)

mobcomm.Output = "AT+CMGF=1" + vbCr

mobcomm.Output = "AT+CMGR=" & rnum + vbCr

End Sub

上一页  [1] [2]