求助VB中MScomm 与手机通话问题(贴出代码)?

chineseProgram 2010-05-24 10:42:42
Private Sub Command1_Click() '拨打电话
If Text1.Text = "" Then
MsgBox "请输入电话号码!", vbQuestion, "提示信息"
Text1.SetFocus
End If

MSComm2.DTREnable = True
MSComm2.EOFEnable = True
MSComm2.RTSEnable = True
MSComm2.RThreshold = 1
MSComm2.SThreshold = 1
MSComm2.Handshaking = comNone
MSComm2.OutBufferSize = 1024


MSComm2.CommPort = 4 '设置通讯端口号
MSComm2.Settings = "19200,N,8,1" '设置波特率、奇偶校验、数据位、停止位参数
MSComm2.PortOpen = True
MSComm2.InputMode = comInputModeText
MSComm2.OutBufferCount = 0

MSComm2.Output = "ATDT" & Text1.Text & ";" & vbCr


End Sub



Private Sub MSComm2_OnComm()

Dim InBuff As String
Select Case MSComm2.CommEvent
Case comEvCD ' Change in the CD line.
MsgBox "1"
Case comEvCTS ' Change in the CTS line.
MsgBox "2"
Case comEvDSR ' Change in the DSR line.
MsgBox "3"
Case comEvRing ' Change in the Ring Indicator.
MsgBox "4"
Case comEvReceive ' Received RThreshold # of chars.
InBuff = MSComm2.Input

'Call HandleInput(InBuff)
MsgBox InBuff
Case comEvSend ' There are SThreshold number of
MsgBox "5"
' characters in the transmit buffer.
Case comEvEOF ' An EOF character was found in the
MsgBox "6"
' input stream.
End Select


End Sub



上面程序运行后,,,拨通手机,然后接通,挂断通话,这整个过程结速后会返回一个"OK". 现在我想请教各位朋友在(第2步)接通后我怎么让对方手机给程序返回一个结果? 最好麻烦哪位朋友贴代码...不胜感激.






...全文
87 6 打赏 收藏 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
chineseProgram 2010-05-30
  • 打赏
  • 举报
回复
继续等待..................
chinaboyzyq 2010-05-25
  • 打赏
  • 举报
回复
sf.
贝隆 2010-05-24
  • 打赏
  • 举报
回复
呵呵,兄弟,这个是有通信归约的,不是说你让返回就返回,这个你的问开发者。
代码下载链接: https://pan.quark.cn/s/a4b39357ea24 用户账户控制(UAC)白名单的配置 Windows7环境 UAC(User Account Control,用户帐户控制)是由微软在Windows Vista版本推出的一项旨在增强系统安全性的创新技术,该技术强制要求用户在执行可能干扰计算机正常运作的操作或进行更改会波及其他用户设置的变动前,必须提供相应的权限或管理员密码进行验证。通过对这些操作启动前进行授权确认,UAC能够有效阻止恶意软件及间谍软件在未获授权的状态下于计算机内进行安装或实施修改。 自从Vista版本问世以来,微软便开始推行这一全新的安全机制,可视为对系统安全防护的显著提升。尽管UAC确实能够在一定程度上对某些非法程序起到防御作用,但与此同时,这一功能也给众多用户带来了诸多不便。 因此,许多用户开始探寻是否存在类似于白名单的功能,以便将那些值得信赖的程序直接赋予运行权限。事实上,这类功能确实存在,不过微软并未将其作为标准配置提供。 网络上关于此问题的绝大多数建议都是建议禁用UAC,这种说法显然缺乏针对性,因为若用户希望禁用此功能,本就不会提出相关疑问。 通过运用微软官方发布的Microsoft Application Compatibility Toolkit 5.6版本,可以将信任的程序纳入系统白名单范畴。 获取Application Compatibility Toolkit 安装程序成功后会出现三个可执行文件 以管理员身份启动Compatibility Administrator 在Custom DataBases部分创建新的数据库,并添加一个Application Fix(在下方空白处点击右键,选择...

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧