怎么用VB做一套短信猫的程序啊?
我是刚毕业的大学生,在小学的不是计算机,我却进入了一个软件开发公司。
现在我被分配做一个短息猫的短信收发软件,研究了半个多月了,一点进展也没有。
在超级终端上打AT他给我回复OK,但是打别的指令统统是ERROR,软件他们建议我用VB,说很适合我,我用VB建立界面实会了,可是怎么实现和短信猫的功能啊?如发短信,收短信编电话本等等。
小弟初来咋到!想在这行混出个名堂来!还请各位行业前辈多多指教!帮帮小弟啊!
[解决办法]
卖猫的商家有现成的
给你部分代码参考:
'以下为MSComm1的设置,非常重要
MSComm1.RThreshold = 1 '若 Rthreshold 属性设置为 0(缺省值)则不产生 OnComm 事件,如果设置 Rthreshold 为 1,接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。
MSComm1.RTSEnable = True '确定是否使 Request To Send (RTS) 线有效。一般情况下,由计算机发送 Request To Send 信号到联接的调制解调器,以请示允许发送数据。
'当 RTSEnable 设置为 True,端口打开时,Request To Send 线设置为高电平,端口关闭时,设置为低电平。
'Request To Send 线用在 RTS/CTS 硬件握手。RTSEnable 属性允许手动检测 Request To Send 线以确定其状态。
MSComm1.SThreshold = 1 '在 MSComm 控件设置 CommEvent 属性为 comEvSend 并产生 OnComm 事件之前,设置并返回传输缓冲区中允许的最小字符数。
'若设置 Sthreshold 属性为 0(缺省值),数据传输事件不会产生 OnComm 事件。
'若设置 Sthreshold 属性为 1,当传输缓冲区完全空时,MSComm 控件产生 OnComm 事件。
'如果在传输缓冲区中的字符数小于 value,CommEvent 属性设置为 comEvSend,并产生 OnComm 事件。
'comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。
'例如,如果 Sthreshold 等于 5,仅当在输出队列中字符数从 5 降到 4 时,comEvSend 才发生。
'如果在输出队列中从没有比 Sthreshold 多的字符,comEvSend 事件将绝不会发生。
'没有以上三行(默认设置)就不能收到返回的信息,也不能接收短信
MSComm1.CommPort = 4 '设置端口号码,控件手工设置无效,必须重新指定
MSComm1.Settings = "9600,N,8,1" '9600波特,无奇偶校验,8位数据,一个停止位,可省略
MSComm1.PortOpen = True '打开端口,不,可省略
MSComm1.Output = "AT" & vbCr '告诉MODEM发送的是AT命令,可省略
MSComm1.Output = "AT+CNMI=2,2" & vbCr '选择当有新的短消息来时系统提示方式
MSComm1.Output = "AT+CMGF=0" & vbCr '使用PDU模式