怎么用VB做一套短信猫的程序啊？

Question

卖猫的商家有现成的
给你部分代码参考:
'以下为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模式

Answer 1

Ctrl+T里面找Microsoft Comm Ctrol 6.0

Answer 2

先去看短信猫手册上的指令与指令结构。
再去看VB6的mscomm控件的使用方法，可上网找，也可以查阅MSDN。祝好运……

Answer 3

看这里http://baike.baidu.com/view/2420376.htm
其中的6
注意短信发送是需要时间的
如果每小时600条以上就被封了

Answer 4

我要在TextReceive显示来短信的内容和时间真么弄 啊
Private Sub TextReceive_Change()
   TextReceive.Text = "XXXXXXXXXXXXXX"
End Sub
 代码怎么编写？
    

Answer 5

亲爱的兄弟姐妹啊！我有短信猫，但是我不会AT也没学过VB，真心请教大家啊！猴哥啊！阿根廷巫师啊！还有泰山请你们帮帮忙啊！

Answer 6

他们给的开发文档就像天书一样，而且在AT 中输入AT+CMGF=1返回OK，但是输入AT+CMGS=021就没有返回值，而且，>xxxxxxxxxxxxxxxxxxxxxxxxxxx没有然和反应，我要疯了。
我vb界面都整完了，但是不知道怎么实现来的短息显示在TextReceive中，想发的短信从TextSend点CmdSend发出去。
MSComm1.Output="AT+?"<CTRL+Z>这些玩意儿快闹死我了！

Answer 7

想转型真的很难，我觉得泰山说得有道理。我是有点想当然了，这样吧！我把我遇到的困难列出来，各位高手和有些经验的朋友给我点拨一下。总靠拐棍走路，是永远不学会跑的！
1、从外面发过来的短信内容和号码显示在TextReceive中，我应该怎样设置
Private Sub MSComm1_OnComm()
   
End Sub
现在选择MSComm1的相关属性我基本明白了，如CommPort我会了，我的电脑是COM 3，在Settings是115200,n,8,1。
现在的问题是MSComm1.Output = "" 这个地方我看不懂，AT里给的有：
   选择短信参数命令AT%SMSS
  设置短信格式命令AT+CMGF (明白用法)
  新短信到达指示：+CMTI
  新短信直接上报指示：AT%CMT
  新收到的短信状态报告：+CDSI
  新短信状态报告直接上报指示：%CDS
  新短信通知设置命令：AT+CNMI
这几个我把那个放在“”里，能自动在TextReceive中不断更新显示。更新显示我知道是TextReceive.Text = TextReceive.Text + MSComm1.Output但是怎么给Output赋值我真的行不明白看不懂了