如何用VisualBasic设计手机短信收发程序(8页)详解.docVIP

下载本文档

1
0
约3.93千字
约 8页
2016-04-24 发布于湖北
举报
版权申诉

如何用VisualBasic设计手机短信收发程序(8页)详解.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

更多资料请访问精品资料网() 更多企业学院：/Shop/ 《中小企业管理全能版》 183套讲座+89700份资料 /Shop/40.shtml 《总经理、高层管理》 49套讲座+16388份资料 /Shop/38.shtml 《中层管理学院》 46套讲座+6020份资料? /Shop/39.shtml 《国学智慧、易经》 46套讲座 /Shop/41.shtml 《人力资源学院》 56套讲座+27123份资料 /Shop/44.shtml 《各阶段员工培训学院》 77套讲座+ 324份资料 /Shop/49.shtml 《员工管理企业学院》 67套讲座+ 8720份资料 /Shop/42.shtml 《工厂生产管理学院》 52套讲座+ 13920份资料 /Shop/43.shtml 《财务管理学院》 53套讲座+ 17945份资料? /Shop/45.shtml 《销售经理学院》 56套讲座+ 14350份资料 /Shop/46.shtml 《销售人员培训学院》 72套讲座+ 4879份资料 /Shop/47.shtml 更多资料请访问精品资料网() 更多企业学院：/Shop/ 《中小企业管理全能版》 183套讲座+89700份资料 /Shop/40.shtml 《总经理、高层管理》 49套讲座+16388份资料 /Shop/38.shtml 《中层管理学院》 46套讲座+6020份资料? /Shop/39.shtml 《国学智慧、易经》 46套讲座 /Shop/41.shtml 《人力资源学院》 56套讲座+27123份资料 /Shop/44.shtml 《各阶段员工培训学院》 77套讲座+ 324份资料 /Shop/49.shtml 《员工管理企业学院》 67套讲座+ 8720份资料 /Shop/42.shtml 《工厂生产管理学院》 52套讲座+ 13920份资料 /Shop/43.shtml 《财务管理学院》 53套讲座+ 17945份资料? /Shop/45.shtml 《销售经理学院》 56套讲座+ 14350份资料 /Shop/46.shtml 《销售人员培训学院》 72套讲座+ 4879份资料 /Shop/47.shtml 用Visual Basic设计手机短信收发程序中文转换成Unicode码函数　　因为手机短消息的发送是以PDU串的形式发送出去的，中文字符以Unicode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Unicode码，下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为UniPublic Function chg(rmsg As String) As String　Dim tep As String　Dim temp As String　Dim i As Integer　Dim b As Integer　tep = rmsg　i = Len(tep)　b = i / 4　If i = b * 4 Then　　b = b - 1　　tep = Left(tep, b * 4)　Else　　tep = Left(tep, b * 4)　End If　chg = 　For i = 1 To b　　temp = 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 String　Dim tl As Integer　Dim ltem, rtem, ttem As String　Dim ti As Integer　ttem = 　tl = Len(num)　If tl 11 And tl 13 Then　　MsgBox wrong number. tl　　Exit Function　End If　If tl = 11 Then　　tl = tl + 2　　num = 86 num　End If　For ti = 1 To tl Step 2　　ltem = Mid(num, ti, 1)　　rtem = Mid(num, ti + 1, 1)　　If ti = tl Then rtem = F　　ttem = ttem rtem