手机短信收发

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] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18