AT命令中读短消息和删短消息?

[irisleigh]

AT+CMGR=<INDEX>读取内存中指定索引位置的SMS

但是我不想一个一个的读,听说用AT+CMGL=0可以一次全读已接收未读的消息,是吗?

我想问的是删除消息 AT+CMGD=<INDEX> 删除在SIM卡中索引<INDEX>位置的SMS

这个有对应的AT 命令可以一次都删除的呢??

[VIV777]

at+cmgd=1,4 删除所有短信

[VIV777]

+CMTI: “SM”, <index> 这里的 <index>是表示你收到的第5条信息，不是说总共5条。
或许前面的你已经读过了呢
还有就是回复了AT+CMGR=<index>以后，回复的信息里面会包含一个UNREAD或者是READ字段。如果是第一次读取这条信息则是UNREAD，如果是已经读取了，那就是READ。

SM存储器不是读了一条就减一，是他自己增加的，另外SM卡有个容量问题，如果满了就读不出来了！要清空SIM卡，我知道的也就是这些。

PS：如果你不想让信息经过SIM卡，想直接读取的话，那可以用这条指令
AT+CNMI=2，2，0，0，0这样信息就不通过SIM卡
具体你可以参考一下手册。

[adelle5790]

楼主:
我现在也在用VB做手机的收发短信,可我没怎么学过VB,能否给我看看你的源代码呢?十分感谢!

[irisleigh]

at+cmgd=1还是4???
我改了以后怎么连消息都显示不了了????

Private Sub Command11_Click()
If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
str = ""
MSComm1.Output = "AT+CMGL=0" + Chr$(13)
flag = True '读取消息标志
If flag = False Then Exit Sub
Dim i As Integer, prenum As Integer
Dim str1 As String, str2 As String, str3 As String, str4 As String
i = 0: prenum = 0
str1 = "" '保存消息总编号
If Len(str) < 70 Then Exit Sub
Do
str1 = str1 + Mid(str, 13 + i, 1)
i = i + 1
Loop Until Mid(str, 13 + i, 2) = vbCrLf

i = Len(str1) 'i为155可变长度
If Mid(str, 41, 2) = "68" Then prenum = 2
str2 = Mid(str, 39 + prenum + i, 12)
str2 = simnormalize(str2) '对方SIM卡号
str3 = Mid(str, 55 + prenum + i, 14)
str3 = timenormalize(str3) '时间邮戳
str4 = Mid(str, 71 + prenum + i, 600)
str4 = tochar(str4) '消息内容
Text1.Text = "来自：" + str2 + vbCrLf + "时间：" + str3 + vbCrLf + "内容：" + str4 + vbCrLf



smrs.MoveLast '找到消息记录的上一个记录
i = smrs.Fields("信息编号")
devrs.Seek "=", str2
If devrs.NoMatch Then
MsgBox "发送者非远程设备，已经将此信息删除！", 0, "提示信息"
MSComm1.Output = "AT+CMGD=1" + Chr$(13) '及时删除新的短消息！~~~~~~~~~我改的地方
Exit Sub
End If

smrs.AddNew
smrs.Fields("信息编号") = i + 1
smrs.Fields("发送设备") = str2
smrs.Fields("设备编号") = devrs.Fields("编号")
smrs.Fields("设备备注") = devrs.Fields("设备备注")
smrs.Fields("发送时间") = str3
smrs.Fields("信息内容") = str4
smrs.Update
smrs.MoveLast
MSComm1.Output = "AT+CMGD=1" + Chr$(13) '及时删除新的短消息！~~~~~~~~~我改的地方

flag = False
str = ""

End Sub

[irisleigh]

at+cmgd=1还是4???
因为我读完另外后显示在一个Text1.Text文本框里，然后再删除。
但是我在Text1.Text里应该显示的呀？
我改了以后怎么连消息都显示不了了????
我改的2个地方用~~~~~标出来了，可否请大家帮我看下

[VIV777]

如果你发送一条短信后回复信息 +CNTI：“SM”，3 这个3表示的是你现在这个卡上的第三条信息
此时发送AT+CMGR=3就可以读取这一条短信
如果要删除这一条短信的话发送AT+CMGD=3
下面是一些AT+CMGD指令的作用
AT+CMGD=1，0 The message from the preferred message storage at the location 1 is deleted
AT+CMGD=1，1 ALL READ messages from the preferred message storage are deleted
AT+CMGD=1，2 ALL READ messages and SENT mobile originated messages are deleted
AT+CMGD=1，3 ALL READ,SENT and UNSENT messages are deleted
AT+CMGD=1，4 ALL messages are deleted

[irisleigh]

我用AT+CMGD=1，4试了的,连消息都不能显示了?
还有一种方法就是

如何知道串口一次收到短消息的条数如何判断???(SIM100)
有时候会一次来个2,3条的,我想做个循环,让所以的新消息都一起显示.
但是不知道怎么才能知道有几条,要循环几次.


如果有新的短消息来到，则将自动返回下列提示：
+CMTI: “SM”, <index>

如+CMTI: “SM”,5
表示收到的短消息存储在“SM”存储器里，索引号为5.共收到5条新消息.

我就想知道这个"5"的数字怎么读出来,用到我的另外的VB程序里决定循环次数.

或者,干脆循环到读完为止.就是循环至没有消息为止.但是我不知道这个SM存储器是不是读了一条就减一,而且这个减一的是哪个变量.这个要怎么知道???


谢谢!!!!

[irisleigh]

不好意思,我的消息必须经过SIM卡的
我用AT+CMGD=1，0
AT+CMGD=1，1
AT+CMGD=1，2
AT+CMGD=1，3
AT+CMGD=1，4
都试了的
我的消息都没法显示了,不知道问题都出在哪了???

[irisleigh]

如果用AT+CMGD不行的话,我就只有用找出新的未读消息的个数,
然后由此设定循环次数来一个一个读,一个一个删除.

有谁知道怎么可以找出新的未读消息的个数吗???
万分感谢!!!!

[VBAdvisor]

google "VB send SMS"

[knowledge_Is_Life]

我也想知道，正在找這方面的資料~~~~~

[大漠孤城]

这是服透了！！！！！！！！！！
AT+CMGD=1，0
AT+CMGD=1，1
AT+CMGD=1，2
AT+CMGD=1，3
AT+CMGD=1，4
这些是删除短信息的命令。谁要能用这些AT指令读出信息来，可神了！