编写电话拨号程序

燕义怀 
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第二版下运行通过！ 
 