手机短信收发[4]

[入库：2005年8月18日] [更新：2007年3月24日]

本文简介：选择自 lotusswan 的 blog

首页上页下页尾页 [1] [2] [3] [4] [5]

因为手机同一时间只能处理一件事情，因此这个函数只负责发送短信，关于短信发送成功与否以及阅读短信的部分集中在一起处理。判断手机短信发送成功与否主要由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

首页上页下页尾页 [1] [2] [3] [4] [5]

本文关键：VB，SMS，收发，函数

　　相关方案

本站最佳浏览方式为分辨率 1024x768 IE 6.0（或更高版本的 IE浏览器）