关于GSM发送手机短信问题

关于GSM发送手机短信问题

yekongxiadeweiyan
该用户很懒,没有设置昵称
等级:
可用分等级：短工
总技术分：0
总技术分排名：318040
结帖率：100.00%

发表于：2008-08-21 22:23:47 楼主

关于GSM发送手机短信问题
我是一个vb初学者,最近在做一个GSM模块发送短信的程序,可无论如何发不出去,总是直接显示ERROR,今天把程序贴出来,让各位高手给指点一下,望不吝啬赐教！
Private Sub Form_Load()
Text1.Text = ""
With MSComm1
.InputMode = 0
.InputLen = 0
.InBufferCount = 0
.OutBufferCount = 0
.SThreshold = 0
.RThreshold = 1
.Settings = "9600,N,8,1"
.CommPort = 1
.Handshaking = comRTSXOnXOff
.PortOpen = True
End With
End Sub

Private Sub Command1_Click()

length = Len("你好") * 2
msg = "AT+CMGS=" & Str(15 + length) & vbCr
msg = msg + "08"
msg = msg + "91"
msg = msg + "685160331848F3" “程序中已改为本地中心号码”
“上述三句我也曾设置本地中心号码后，用msg=msg+"00"代替，可还是通不过”
msg = msg + "11"
msg = msg + "00"
msg = msg + "0D"
msg = msg + "91"
msg = msg + "685150140742F7"
msg = msg + "00"
msg = msg + "08"
msg = msg + "00"
msg = msg + "04"
msg = msg + "4F60597D" '你好
msg = msg + Chr$(26)
MSComm1.Output = msg
End Sub

Private Sub MSComm1_OnComm()
Dim ss As String
MSComm1.RThreshold = 0
ss = MSComm1.Input
Text1.Text = Text1.Text & ss
MSComm1.RThreshold = 1
end sub

以上就是所有程序，不知道错在哪里，就是发不出去，从网上看过很多资料，哪位高手能给个具体的例子或指点一下！
另外，其他AT命令如打电话收短信了都可以用，唯独无法发短信！

问题点数：0 回复次数：4 修改删除举报引用回复