说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在VB.NET中用AT命令发送手机短信(SMS)

HTML文档下载 WORD文档下载 PDF文档下载
介绍如何实现从PC通过带GSM modem的GSM手机发送短信。
介绍
代码实现了从PC通过带GSM modem的GSM手机发送短消息。
背景
我们所使用的AT命令被用于电脑和MODEM间的通讯。
Microsoft windows提供了超级终端软件可以实现这一通讯过程。
开始->程序->附件->通讯->超级终端
可以在里面输入AT命令,超级终端与MODEM/手机直接通讯来控制它们。
它返回OK或错误信息的回应。如果我们需要在应用程序中发送SMS,需要手工键入命令的超级终端就用不上了。
你需要选择MODEM/手机所连接的COM端口(对于MODEM端口可以是串口,对于手机可以是USB端口)
请参考下面的代码:

收件,连接MODEM或手机。到设备管理器查看MODEM/手机连接到了哪个COM口(如COM3,COM4)

下载源代码

介绍

代码实现了从PC通过带GSM modem的GSM手机发送短信。

背景

我们所使用的AT命令被用于电脑和MODEM间的通讯。

Microsoft windows提供了超级终端软件可以实现这一通讯过程。

开始->程序->附件->通讯->超级终端

可以在里面输入AT命令,超级终端与MODEM/手机直接通讯来控制它们。

它返回OK或错误信息的回应。如果我们需要在应用程序中发送SMS,需要手工键入命令的超级终端就用不上了。

你需要选择MODEM/手机所连接的COM端口(对于MODEM端口可以是串口,对于手机可以是USB端口)

请参考下面的代码:

首先,连接MODEM或手机。到设备管理器查看MODEM/手机连接到了哪个COM口(如COM3,COM4)

//// 如果设备管理器中显示是 COM3,请把COM4改为COM3//Dim SMSEngine As New SMSCOMMS("COM4")'端口需要初始化SMSPort = New SerialPort        With SMSPort            .PortName = COMMPORT            .BaudRate = 19200            .Parity = Parity.None            .DataBits = 8            .StopBits = StopBits.One            .Handshake = Handshake.RequestToSend            .DtrEnable = True            .RtsEnable = True            .NewLine = vbCrLf        End With '将AT命令写入串口SMSPort.WriteLine("AT")'命令信息格式为文本模式:1SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) '设置服务中心号码SMSPort.WriteLine("AT+CSCA=""+919822078000""" & vbCrLf)             ' 短信接收者的手机号码SMSPort.WriteLine("AT+CMGS=  + TextBox1.text + " & vbCrLf) _ContSMS = FalseSMSPort.WriteLine("+ TextBox1.text +" & vbCrLf & Chr(26)) '发送短信Dim i As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object,       ByVal e As System.EventArgs) Handles Button1.Click        SMSEngine.Open() '打开端口        SMSEngine.SendSMS() '发送短信End Sub
代码中定义了一个SMSCOMMS类,代码很简单,查看注释便能理解。

关于服务中心号码(service center number)
移动公司通常已经将正确的服务中心号码预设在SIM卡的配置文件中。许多手机都提供给用户查看或更改服务中心号码的方法。例如,Nokia 6021手机可以通过菜单->消息->消息设置->文字消息->发送配置->默认配置->消息中心号码 查看。
一些GSM/GPRS modem和手机(例如Nokia 6021,Sony Ericsson T68i, Philips 598等)会将配置文件中的服务中心号码作为+CSCA AT命令的默认值,对于这些机子,如果默认的服务中心号码是正确的,你不需要用+CSCA AT命令来设置。
代码我在NOKIA 5310,NOKIA 3500上测试过了,都能正常工作。
前端开发工程师如何在2013年里提升自己 Java受Objective-C影响很大 而不是C++ Instagram回击报告指责:用户仍保持增长态势 回顾:2012年科技行业十大败笔 苹果地图入选 Amazon CEO Jeff Bezos:好年景,大挑战 2012年度盘点:移动互联网大事件回顾 详解Amazon Redshift 移动周报:再见,2012!你好,2013! 英特尔或在2月宣布其电视计划:提供分类频道 Prismatic:用机器学习分析用户兴趣只需10秒钟 谷歌布局亚太地区数据中心建设 服务响应速度有望提升30% 2013年移动互联网行业技术趋势前瞻 老骥伏枥志在千里:回顾微软这一年 2013或将崛起 水落石出:在与谷歌苹果竞购创业公司中微软胜出 用扁平化的界面设计吸引用户 2012年12月份全球主流浏览器市场份额排行榜 冲榜不一定要刷榜:增加游戏曝光度的7大杀手锏 科技vs政治:FTC对Google的反垄断调查结束背后 威胁百度:奇虎360确认将与谷歌达成合作关系 Facebook更新Messenger应用 推免费网络电话服务 网上疯传iOS7概念设计:Dashboard是真是假? 过时的UI设计 Ubuntu手机系统前途不被看好 三星将于今年发布Tizen设备 将对苹果形成威胁? 分享9条经典的编程语录 国际著名黑客大赛介绍与比较 微软Azure CDN服务全球范围内出现宕机 双向多功能U盘:从Android设备到PC还有多远? 证明了自己:微软Win8获美国防部6.17亿订单 2013 Facebook黑客杯报名即将开始 解决Win8下IE10无法打开的故障 [简讯] Scala 2.10.0发布! 在VB中怎样压缩磁盘中的文件或文件夹 如何在平面上实现三维坐标的模拟?(在线急等) 请问各位高手《Delphi 6程序设计从入门到精通》里的例子代码谁有? 在平面坐标里如何实现三维坐标的模拟定位(在线急等) 怎样实现这个简单的功能? “将事件写入日志”选项不能改动了?奇怪 如何在平面上实现三维坐标的模拟?(在线急等) 如何比较两个字符串 NCNE--国家网络技术水平考试介绍 在问个简单的问题:Delphi中引号的问题 怎样知道windows的应用程序的路经 哪位高手给俺讲讲with xx as xx do 的用法,谢谢! 很菜的问题 请前辈进,请高手进!!! 那位仁兄有JAVA开发的五子棋游戏,我用一套软件交换 怎样用com技术C/S三层做中间件和使用,谈一点原理和实例。 高手请进 100分!!!!!!!!!!! NCNE 国家网络技术水平考试 介绍 软键盘的问题?UP有分 关于装配件的问题 想购买一套人事管理系统的源代码!!!!!!!!!!!!!!!!!!!!!!! 对话框中标题栏上面的颜色如何改? 对服务器来说,内存更重要还是运算更重要? 关于jdk与windows xp 我举报:信息产业部的领导根本没有学习好“三个代表” 聘驱动开发人员!!! 本人在运行REALPLAY8.0的时候出现了这样的错误窗口. 普通常量与符号常量有何区别,怎样使用? 怯怯地问: 问题一:我的网页是用表格分的区域,把表格线设为0 ,但加了背景后 ,背景上总是有一小条白线 ,那是表格的边框线 , 问怎么办? 这个不是太难,但很不简单! 报错---[Linker Fatal Error]Fatal:Expected a file name:,什么原因?大虾指教,在线等待 远程调用时传输数据的问题! 2000 不能正常关机 初当网管,请教大家都用什么工具? IIs重新启动一个web服务出现死机,怎么回事? 问题二 :我做了个POP窗口 ,我想在POP窗口打开时是固定大小的 ,不能调整, 该怎么弄? 希望有一个网络安全的开发专版 关于中国万网的域名解析问题。急救! IIs重新启动一个web服务出现死机,怎么回事? 系统提示有错啊! 请教各位高手,本人在运行REALPLAY8.0时出现以下错误提示! 用javascript如何判断textbox中的串是否是汉字及其个数? 用DELPHI的都是一些比较菜的程序员的工具!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 数据更新的问题 QueryString 多参数如何分隔?? 《C++ Primer》和《C++ Language Programming》有类似吗?是否都买来看? 请哪位大虾谈谈计算机语言语言与数学的关系。 “金环天朗通信技术发展有限公司公司”怎么样?请知道的兄弟姐妹介绍一下。 请教高手:一个很菜的问题 谁有usb开发相关资料??? 骑车男子银行门口抢3万元 被众人当场浦江男子发现幼儿园附近加工厂排难闻气男子拖欠员工工伤赔偿六万元 儿子替父警嫂送聋哑男孩回家 用纸笔沟通写下五小伙称银行卡被盗刷损失160多万状告金华男子塑性支气管炎 咳出的痰像一棵薛蛮子案涉案女称 薛有特殊性癖好且常姑娘深夜金华街头迷路 搭顺风车被摸腿18岁男孩因不肯洗碗被数落 很生气跑鄞州男子有车有房 管不住手脚去偷窃杭州公交史上寿命最短线路:火车东站小宁波实施第二轮人工增雨 风雨雷电冰雹杭州小区植物因连续高温天气多被晒焦浙江公布正风肃纪监督电话重点盯酒局牌6岁女孩不满父母打骂留下书信离家出走挪威总理装的哥开车 将被纳入竞选连任女子凌晨在客房内犯下命案货车司机天热迷糊挂错档位 开车撞进早杭州周边再次人工降雨 继续遭受副热带杭州水电供应仍旧紧张 严控高耗能企业杭州医院急诊多因高温诱发 出汗太多易尹中立:一场300年前的国家级牛市李克强:重点推进住房消费等6大领域消创维与东芝品牌战略合作成业界新范式诺奖得主科斯留给中国的十大忠告最MAN的啤酒广告——Guinnes天华阳光与哈德森清洁能源投资基金建立烟草税时隔六年再上调烟价上涨10%,360手机助手3.0版 开启“社交慧眼识号,能发现几个就看你的本事了!【浪琴/官方活动价688元】回馈粉丝80后如何帮父母理财?胡佑嘉:9月25日金银回光返照,原油成俄胜利日主宾国背后:中俄敲定西线输徐才厚到底得了什么病母亲节这天读此文,才发现自己也是个熊那些能充电、改变人生的微信号牙齿护理全解析,给孩子一口漂亮的牙齿徐翔密会公募大佬,说了啥悄悄话?现在股市里人人都在赚钱!到底谁在亏钱选对真碧玺很重要!绝不请到人造宝石!12套房子才够养老?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘