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

在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上测试过了,都能正常工作。
Delphi中异常的截获及其个性化处理 Delphi自定义消息应用一例 Delphi5中资源文件的创建和使用 Delphi的Bug-Tthread Suspend方法 Email服务器的简单实现-Delphi资料 Hook的制作-Delphi资料 INI文件的应用-Delphi资料 NT中的关闭计算机,重新登陆的实现-Delphi资料 Windows 系统方面-Delphi资料 Windows外壳扩展编程-Delphi资料 避免二次运行-Delphi资料 编程实现文件关联-Delphi资料 编写定制的文件流实现文件读写加密-Delphi资料 采用多线程进行数据采集-Delphi资料 产生临时文件名-Delphi资料 程序不出现在任务栏-Delphi资料 程序缩小为任务条右下角的小图标-Delphi资料 得到 Windows 用户名和序列号-Delphi资料 得到windows临时路径-Delphi资料 得到Windows用户名和序列号-Delphi资料 得到计算机的名字和ip-Delphi资料 得到内存的 Status-Delphi资料 得到上一个激活的组件-Delphi资料 得到在内存中运行的所有应用程序的handle-Delphi资料 调用控制面板项目大全-Delphi资料 动态改变当前显示模式-Delphi资料 动态改变屏幕分辨率-Delphi资料 动态建立不常用的对象-Delphi资料 对控制面板进行操作-Delphi资料 返回程序执行参数-Delphi资料 防止 Win95 显示严重错误-Delphi资料 急!!一个建表问题 WSAD怎么显示代码行号?? 50美元求作业!access 有没有能够打印固定行数的报表? 请教接收视频信号的问题 VBscript转换为JScript? treeview的初级问题(解决立刻给分),关于节点的OnSelectedIndexChanged事件? 如何知道Clientdataset中哪些记录改变了? 如何构建Access数据库? 有没有soap client for ce 呀? 关于在不同环境下的时钟问题!!! 关于在一张图上标识位置的问题 vs.net 2003的msdn 安装好后为何不能使用? 如何在asp中post一段xml包到一个地址 vc1.0编译的问题 怎麽在Jbuilder中调用带参数的ORACLE数据库中的存储过程 如何用VB来写配置IIS的程序? 如何卸载xp? 如何知道DBGrid中当前编辑的字段的长度? 绝对经典 如何在安装程序中注册windows service,up有分!! 程序异常终止了,那么函数中的对象会被析构吗、变量空间会被归还吗 为什么能用网页打开一个url,用流读却出错,是不是端口被封了阿? 请问各位高手:关于建库后的几个疑点! 连接服务器的问题 请教:怎样将combobox选中的记录添加到数据库中呢? 简单问题,如何修改FORM中文本框中按回车后的行为。 根据名称获得页面的某些对象,以及对这些对象可以进行操作? 2.0的大灵通出现的奇怪问题,请斑竹、大虾给个说法吧 新手提问:大家帮帮忙! 连接服务器的问题 CPU有大小有不同,478和423指的是什么啊。 Tquery是可修改的,如何限制用向下键使Tquery新增一条记录,我不想有新增的功能 连接服务器的问题 在intraweb中,有关iwdbgrid数据记录的分页显视.... 如何用PB实现视频实时监控画面的传送? 本科没拿到学位的,参加在职考研,有戏吗? 请问使用ado能否创建数据库? ***** 请问局域网看电影的速度要求 ***** 触发器里一变量有多数据的问题 tomcat的启动问题 大家帮帮我,写个读文本文件的函数 关于fastReport的书那里有,书名是怎样或者在那个网站有有关fastReport的电子书可参考啊 组播的I/O处理 高手们帮忙啊,win2000锁住计算机是不能自动关机问题? 如何用JAVA实现视频实时监控画面的传送? 初学C++遇到问题,请各位老师指导一下! 问一个弱问题 高分求一个触发器,一个作业 页面url传递参数问题????急!!!!!!! null在VB里该如何表示 至2008年世界人口总数是多少?- - 上课要用.. 关于骆驼的习性的答案骆驼的生活习性有:它一般在沙漠里生活,驼有两种,有一个驼峰的单峰骆驼和两个驼峰的双峰骆驼.单峰骆驼比较高大,在沙漠中能走能跑,可以运货,也能驮人. 盈极则亏是什么意思 求智者帮忙解答 GTX650需要电源多少功率? 人为什么只有一次生命? 我的生命为什么只有一次,可以有两次吗? 人的生命为什么只有一次 已知线段AB=10厘米,点c是直线上一点,且BC等于4厘米,点D是线段AC的中点,求线段AC的长 已知C是线段AB的中点,若AB等于4厘米,则AC,BC分别为多长 长期用温水加醋洗脸有什么复作用吗?我脸上有很多的痘痘.听说在温水里加点醋可以抵抗豆豆.我经常用温水里加醋洗脸,还有点帮助,不知道长期这样有没有什么复作用.我还发现个问题,就是脸 现在洗脸用冷水好还是温水,各有什么效果? 民进党台北市长初选 五月天主唱阿信被田径队进行备战里约动员 刘翔红军装亮瞭望:把巩固党的执政基础作为政治责任儿子常在小区网吧过夜 其母向警方投诉广东400村官旁听贪贿案庭审 纪委书经济复苏强于预期 10月PMI创18柯文哲批民进党“乱邦” 苏贞昌:不必苗族大妈不识总书记:“怎么称呼您?”台湾花莲发生4.7级地震 民众再度心香港名医庄善春捐资120万修建华侨大16秒26 温州女生刘伊玮单手还原魔环保之母的尴尬:呼吁停用DDT 间接人大代表宗庆后:解决雾霾问题不能光收两会关键词:海上丝路驿站两会关键词:四个全面山西多地一把手至今空缺 落马官员多数全总第六届女职工委员会第二次全体会议两会数字:政协委员驻地餐饮 10个热劫匪骑车抢劫女子 反被女子夺车逃走北京首钢训练备战 李根暴扣莫里斯搞怪日本拟放开电力燃气市场 剥离垄断企业央行3日实施350亿元逆回购 中标利
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘