编写电话拨号程序

燕义怀 · 2001年第25期

使用过Windows 9x系统的人可能使用过Windows 9x系统的电话拨号程序，那么能不能动手编制一个属于自己的电话拨号程序呢？其实使用VB也是很容易的。如果你有兴趣，就跟我来吧，咱们一起来编写自己的电话拨号程序！
　　#1 一、界面设计：
　　 在窗体上加入一个Mscomm控件，并将其Commport属性设置为你的调制解调器所用的端口号，其它属性使用其默认属性值。加入一个Label控件，并将其Caption 属性设置为“拨叫的电话号码”。加入一个Text 控件，并将其Text属性设置为“空”。 加入两个Command 控件，并将Command1的Caption属性设置为“拨号”，Command2的属性设置为“断开”。
　　 （注：MSComm 控件是一个具有通过串行端口传输和接收数据，为应用程序提供串行通讯功能的控件。可以采用轮询或事件驱动的方法从端口获取数据）
　　#1 二、程序代码：
　　 Dim Torikesi As Boolean
　　 Private Sub Command1＿Click（）
　　 If Text1．Text = “” Then Exit Sub
　　 Torikesi = False
　　 Command1．Enabled = False
　　 do＿Dial
　　 Command1．Enabled = True
　　 End Sub
　　 Private Sub Command2＿Click（）
　　 Torikesi = True＇激活断开标志
　　 End Sub
　　 Private Sub do＿Dial（）
　　 Dim DialStr As String ＇电话号码
　　 Dim RecStr As String ＇接收字符串
　　 Dim dmy As Integer
　　 DialStr = “atdt” + Text1．Text + “;” + Chr（13） ＇输入电话号码
　　 On Error Resume Next
　　 MSComm1．PortOpen = True ＇打开串口
　　 If Err．Number ＜＞ 0 Then
　　 MsgBox “Com1端口不能使用”
　　 Exit Sub
　　 End If
　　 MSComm1．InBufferCount = O ＇清空接收缓冲区
　　 MSComm1．Output = DialStr ＇发送电话号码
　　 RecStr = “”
　　 Do
　　 dmy = DoEvents（） ＇识别键盘、鼠标操作
　　 If MSComm1．InBufferCount Then
　　 RecStr = RecStr + MSComm1．Input
　　 If InStr（RecStr，“OK”） Then
　　 MsgBox “电话正在接通，请你提机准备通话！”
　　 Exit Do
　　 End If
　　 End If
　　 If Torikesi Then Exit Do ＇用户单击断开按钮
　　 Loop
　　 MSComm1．Output = “ATH” + Chr（13） ＇切断线路
　　 MSComm1．PortOpen = False ＇关闭端口
　　 End Sub
　　#1 三、运行验证：
　　 运行程序，在文本框中输入你朋友的电话号码，如果是当地电话，请直接输入电话号码；如果是长途电话，请按如下格式输入：“区号-电话号码”，如“0939-8519041”。输入完成后单击“拨号”进行呼叫，即可与你的朋友取得联系！本程序在vb6．0版和Windows98第二版下运行通过！