我现在正在编写一个短信模块,(用标准的AT命令进行编写),现在遇到的问题就是:如何判断我的短信信息发送成功?是否存在返回值,如果存在应该如何捕获呢??
解决方案 »
- 怎么给要准备作为输入日期的数据写判断错误的条件,比如它要>2000-01-01,不能输入wwww-ee-xx这种东西,中间一定要用"-"分开,等等
- CSDN的高手們!如何獲得outlook express通讯薄聯系人資料!高分求助!!!
- vb做的DLL测试没问题但ASP不能调用为啥??
- 关于VB中嵌入IE
- 为什么保存出错?
- 如何分解爱立信移动通讯交换机原始数据!
- 请问那里有VBScript的函数列表,有详细介绍的
- 這是為什麼?
- 用GetSystemTime或者是GetLocalTime生成可执行文件为什么“非法操作”?
- vb很强么?
- isFileInUse???
- 求教一个SQL查询与组合框的问题
Const midx = "11000D91"
Const sufx = "000800"
Public Function Sendsms(csca As String, num As String, msg As String) As _Boolean
Dim pdu, psmsc, pnum, pmsg As String
Dim leng As String
Dim length As Integer
length = Len(msg)
length = 2 * length
leng = Hex(length)
If length < 16 Then leng = "0" & leng
psmsc = Trim(telc(csca))
pnum = Trim(telc(num))
pmsg = Trim(ascg(msg))
pdu = prex & psmsc & midx & pnum & sufx & leng & pmsg
sleep(1)
mobcomm.Output = "AT+CMGF=0" + vbCr
mobcomm.Output = "AT+CMGS=" & Str(15 + length) + vbCr
mobcomm.Output = pdu & Chr$(26)
sleep(1)
Sendsms = True
End Function 因为手机同一时间只能处理一件事情,因此这个函数只负责发送短信,关于短信发送成功与否以及阅读短信的部分集中在一起处理。判断手机短信发送成功与否主要由AT+CMGS命令执行以后的返回码来决定(可参见前文的AT指令介绍部分)。 为了防止手机因过于繁忙而出错,这里采取了一定的方法让手机有充分的时间处理发送和接收及删除等操作。Sleep()函数正是为此而设计的,在发送及删除操作后都会让程序暂停一秒,这样就不至于使得手机过于繁忙。 Unicode码解码函数 相比于手机短信的发送而言,手机短信的接收主要的工作正好与之相反。手机短信的发送需要将待发送的短信内容转换为Unicode码,而短信的接收则需要将接收到的Unicode码转换成中文字符。下面的函数将实现解码功能。同手机短信发送的编码函数一样,这里也应用了一个VB内置的函数AscW()函数来将Unicode码转换为中文: Public Function ascg(smsg As String) As String
Dim si, sb As Integer
Dim stmp As Integer
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 2 手机短信接收函数 相对于短信的发送函数而言,短信的接收相当简单,只需要以下的三行代码就完成了。但是它使用的技术却决不比短信的发送少,这里主要用到了Mscomm控件的Output属性和AT+CMGR指令。 Public Sub readsms(rnum As String)
mobcomm.Output = "AT+CMGF=1" + vbCr
mobcomm.Output = "AT+CMGR=" & rnum + vbCr
End Sub
执行后要等应答后才能执行语句m_Ports.WriteToPort(buffer);//把短信发出去
因为你是异步访问串口的以下是我的代码片断,绝对能够解决你的问题,因为我也是用的该CSerialPort类;
void CServiceModule::OnCommunication(WPARAM ch, LPARAM port)
{
m_szReceive += (char)ch;
if(m_szReceive.Find(_T("\r\n> ")) != -1 ||
m_szReceive.Find(_T("\r\nOK\r\n")) != -1 ||
m_szReceive.Find(_T("\r\nERROR\r\n")) != -1)
{
switch(m_eOpType)
{
case eSMReceive: //收取短信
DoRecv();
break; case eSMDelete: //删除短信
DoDelete();
break;
case eSMSend: //发送短信
DoSend();
break;
}
m_szReceive.Empty();
}
}
返回:OK发送:AT+CMGS=13552180240
返回:>发送:>Hello Test<Ctrl+Z>
返回:OK