如果收到短信,请回复.”)*2
mscomm1.output = "at+cmgf=0" + vbcr ‘以pdu模式发送短信
mscomm1.output = "at+cmgs=" & str(15 + length * 2) + vbcr
mscomm1.output= “0891683110301405f011000d91683159717456f4000800165982679c6536523077ed

4fe1002c8bf756de590d002e” & chr$(26)

start = timer
pause =1
while timer < start + pause
doevents
wend
reco = mscomm1.input
if instr(reco, "ok") then sendsms = true
if instr(reco, "error") then sendsms = false
mscomm1.output = "at+cmgs=" & str(15 + length * 2) + vbcr中的15为 11000d91683159717456f400080016的位数.length*2为5982679c6536523077ed4fe1002c8bf756de590d002e的位数.

到这里,短信的发送基本完成,短信的接收更简单一点,主要是解码,就是应用chrw()函数了.写完这篇文章,才算送了一口气,算是对大家有个交待吧,感谢大家的关注.如果需要源代码,可以给我发邮件 :tmjpd@21cn.com.