已阅读5页,还剩2页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
用Visual Basic设计手机短信收发程序中文转换成Unicode码函数 因为手机短消息的发送是以PDU串的形式发送出去的,中文字符以Unicode码来表示,所以在发送中文短消息之前必须首先将中文字符转换为Unicode码,下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数:ChrW()将中文转换为Unicode代码。Public Function chg(rmsg As String) As StringDim tep As StringDim temp As StringDim i As IntegerDim b As Integertep = rmsgi = Len(tep)b = i / 4If i = b * 4 Thenb = b - 1tep = Left(tep, b * 4)Elsetep = Left(tep, b * 4)End Ifchg = For i = 1 To btemp = &H & Mid(tep, (i - 1) * 4 + 1, 4)chg = chg & ChrW(CInt(Val(temp)Next iEnd Functioncode码。短信中心手机号码的PDU串转换函数同上,为了发送以PDU模式发送短消息,必须将手机号码和对方手机号码也转换为PDU格式,下面的函数就是为了实现这种转换:Public Function telc(num As String) As StringDim tl As IntegerDim ltem, rtem, ttem As StringDim ti As Integerttem = tl = Len(num)If tl 11 And tl 13 ThenMsgBox wrong number. & tlExit FunctionEnd IfIf tl = 11 Thentl = tl + 2num = 86 & numEnd IfFor ti = 1 To tl Step 2ltem = Mid(num, ti, 1)rtem = Mid(num, ti + 1, 1)If ti = tl Then rtem = Fttem = ttem & rtem & ltemNext titelc = ttemEnd Function手机号码有两种表示方法:11位和13位(带国家码86),一般手机发送时都是以13位形式表示的,所以以上的函数还有一个功能是自动将11位格式手机号码转换为13位形式,然后再转换为PDU串。手机短信的发送手机短信的发送主要借助于VB的Mscomm控件实现,关于Mscomm控件,前面的技术介绍部分有详细介绍。短信的发送是由AT+CMGS指令完成的,采用PDU模式发送,函数代码如下:Const prex = 0891Const midx = 11000D91Const sufx = Public Function Sendsms(csca As String, num As String, msg As String) As _BooleanDim pdu, psmsc, pnum, pmsg As StringDim leng As StringDim length As Integerlength = Len(msg)length = 2 * lengthleng = Hex(length)If length 16 Then leng = 0 & lengpsmsc = Trim(telc(csca)pnum = Trim(telc(num)pmsg = Trim(ascg(msg)pdu = prex & psmsc & midx & pnum & sufx & leng & pmsgsleep(1)mobcomm.Output = AT+CMGF=0 + vbCrmobcomm.Output = AT+CMGS= & Str(15 + length) + vbCrmobcomm.Output = pdu & Chr$(26)sleep(1)Sendsms = TrueEnd Function因为手机同一时间只能处理一件事情,因此这个函数只负责发送短信,关于短信发送成功与否以及阅读短信的部分集中在一起处理。判断手机短信发送成功与否主要由AT+CMGS命令执行以后的返回码来决定(可参见前文的AT指令介绍部分)。为了防止手机因过于繁忙而出错,这里采取了一定的方法让手机有充分的时间处理发送和接收及删除等操作。Sleep()函数正是为此而设计的,在发送及删除操作后都会让程序暂停一秒,这样就不至于使得手机过于繁忙。手机短信的接收Unicode码解码函数相比于手机短信的发送而言,手机短信的接收主要的工作正好与之相反。手机短信的发送需要将待发送的短信内容转换为Unicode码,而短信的接收则需要将接收到的Unicode码转换成中文字符。下面的函数将实现解码功能。同手机短信发送的编码函数一样,这里也应用了一个VB内置的函数AscW()函数来将Unicode码转换为中文:Public Function ascg(smsg As String) As StringDim si, sb As IntegerDim stmp As IntegerDim stemp As Stringsb = Len(smsg)ascg = For si = 1 To sbstmp = AscW(Mid(smsg, si, 1)If Abs(stmp) 127 Thenstemp = 00 & Hex(stmp)Elsestemp = Hex(stmp)End Ifascg = ascg & stempNext siascg = Trim(ascg)End Function手机短信接收函数相对于短信的发送函数而言,短信的接收相当简单,只需要以下的三行代码就完成了。但是它使用的技术却决不比短信的发送少,这里主要用到了Mscomm控件的Output属性和AT+CMGR指令。Public Sub readsms(rnum
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 5G无线通信技术及对物联网产业链发展的影响研究
- 3种常规消毒方法对磺胺类抗性基因削减效果的比较
- 3D打印技术在岩石力学中的应用
- 300t自航打捞船扒杆建造关键工艺技术
- 21世纪以来我国教育公平研究的热点与未来趋势-基于共词矩阵的知识图谱分析
- 2020年高考化学实验综合题特点分析及2021年新高考复习备考建议
- 2017年12月国内市场主要畜产品与饲料价格分析
- 1750MW核能发电机护环装配工艺方案及工艺装备
- 110 kV及以下电网理论线损分压指标分析及评价
- 1000MW水轮发电机并网运行暂态稳定性问题研究
- 2023年12月中国科学技术信息研究所招考聘用笔试历年高频考点-难、易错点荟萃附答案带详解
- 建筑智能化系统维保服务招投标书范本
- 心脏病的预防与管理
- 自学去语言入门教程章算法
- 非洲鼓课程方案
- 工业AR智能巡检应用方案
- 急诊科中的消化科急症处理
- 急诊科护士的团队合作与协作能力培养
- 无锡市2022-2023学年下学期四校期中联考高一历史试卷(含答案)
- 幼儿园预防结膜炎课件
- 2024(统编版)语文学年八下 名著导读:《经典常谈》课件
评论
0/150
提交评论