VB 使用COM串口驱动GSM模块收发短信测试用例

    VB 使用COM串口驱动GSM模块收发短信测试用例   ****************************************************************** TEXT 测试使用接收新短信:1. 收到+CMTI: "SM", <index> 例如: +CMTI: "SM",1  问题: +CMTI: 和  "SM",1  是两次收取的。 2. 此时读出<index>,然后用"AT+CMGR"指令即可读出短消息内容。例如:AT+CMGR=1+CMGR: "REC UNREAD","+8613356673796",,"06/08/07,12:41:23+00"Hi OK-------------------------------删除短信:'AT+CMGD=1,0 删除指定index的短信'AT+CMGD=1,1 删除已读短信'AT+CMGD=1,2 删除已读和已发送短信'AT+CMGD=1,3 删除已读、已发和未发送短信'AT+CMGD=1,4 删除全部短信------------------------------- PDU 测试 使用接收短信:AT+CMGR=1 +CMGR: 0,,200891683108502405F02406A17011880008608080414152000475286237 OK 发送测试:(发送内容“I Love you!”,接收者13356673796)AT+CMGS=36> 0011000B913153663797F60008001600490020004C006F0076006500200079006F00750021+CMGS: 181 OK   接收短信测试:+CMTI: "SM",2AT+CMGR=2+CMGR: 0,,24 0891683108502405F02406A1701188000860808051927100084E2D56FD00310041OK 0891683108502405F02406A1701188000860808051043000020031           071188发送的“1”  长度180891683108502405F0240D91683153663797F60000608080511425000131     13356673796发送的“1” 长度210891683108502405F0240D91683153663797F6000860808051845100066D4B8BD50031  13356673796发送的“测试1” 长度26 查看全部短信:AT+CMGL=4 +CMGL: 2,1,,132 (说明:<index>,<stat>,[alpha],<length>)0891683108502405F02406A1701188000860809001041200745B8862A459294F7F000A005A004A00205B9A81EA5DF1000A005A0042002054688FB94FE1606F000A00530051624B673A53F700206388674367E58BE2000A00420044624B673A53F700207ED15B9A4EB260C553F7000A67E58BE24ED64EBA4F4D7F6E8BF751487ED15B9A4EB253CB53F77801002E+CMGL: 3,1,,1560891683108502405F02405A17011F80008608090011495008C5C714E1C65C579D1670D52A1000A0031002E5B8862A459294F7F0028003100325143002F67080029000A0032002E72318F6657287EBF002800305143002F67080029000A0033002E516C539567E58BE2002800305143002F67080029000A5BA2670D70ED7EBF0030003500330031002D00380038003600390038003100310030002C8BF756DE590D5E8F53F7+CMGL: 4,1,,260891683108502405F02405A17011F80008608090014492000A4E8689E38BE660C53002 OK
Option Explicit Public g_blIsListSMS As Boolean Public g_blIsSysBusy As Boolean Public g_blIsWaiting As Boolean Public g_blIsNewSMSIn As Boolean Public g_blIsSendingSMS As Boolean Public g_blIsHexCommData As Boolean Public g_blMaySaveAllSMS As Boolean Public g_blwav As Boolean Public g_strSave As String Public g_strThisAT As String Public g_strLastAT As String Public g_strLatestAT As String Public n_CountListSMS As Long Public g_SysInfo As SysStruct Public TheForm As Form Public TheMenu As Menu Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'VB延时API函数 Public Declare Sub winhelp Lib "user32" (ByVal hWnd As Long, ByVal lphelpfile As String, ByVal wcommand As Long, ByVal dwData As Long) '调用帮助API函数 Public Declare Function htmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long Public Const HH_DISPLAY_INDEX = 2 Public Const HH_DISPLAY_TOC = 1 Public Const HH_DISPLAY_TOPIC = 0 Type SysStruct CommPort As Integer Baud As String ServiceNo As String DestNo As String SMSMelody As Integer Clock As Boolean ClockSet As String End Type Type SMSDef ListOrRead As Boolean '是否用列举(List)方法读取 SmsIndex As Long SourceNo As String ReachDate As String ReachTime As String SmsMain As String End Type '功能:解析串中AT命令返回的信息 '输入参数: 串数据 '输出参数: 'strATData: 短消息内容(UD) 'iSMSIdx: 短消息序号 'strSMSTime: 短消息接收时间 'strSMSSourceNO:源SIM卡号 'strSMSStatus: 短消息状态:"READ"—已读,"UNREAD"—未读,"SENT"—发送,"UNSENT"—未发送 Public Function GetDataFromCommPort(ByVal strInput As String, strATData As String, Optional CommandStatus As String, Optional TimedOut As Boolean, Optional iSMSIdx As Integer, Optional strSMSTime As String, Optional strSMSSourceNO As String, Optional strSMSStatus As String) As Boolean On Error GoTo ErrorG Dim strTmp As String, strTmp1 As String
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值