标题编写电话拨号程序

　　使用过Windows 9x系统的人可能使用过Windows 9x系统的电话拨号程序，那么能不能动手编制一个属于自己的电话拨号程序呢？其实使用VB也是很容易的。如果你有兴趣，就跟我来吧，咱们一起来编写自己的电话拨号程序！
　　一、界面设计：
　　在窗体上加入一个Mscomm控件，并将其Commport属性设置为你的调制解调器所用的端口号，其它属性使用其默认属性值。加入一个Label控件，并将其Caption 属性设置为“拨叫的电话号码”。加入一个Text 控件，并将其Text属性设置为“空”。 加入两个Command 控件，并将Command1的Caption属性设置为“拨号”，Command2的属性设置为“断开”。
　　(注：MSComm 控件是一个具有通过串行端口传输和接收数据，为应用程序提供串行通讯功能的控件。可以采用轮询或事件驱动的方法从端口获取数据)
　　二、程序代码：
　　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
　　三、运行验证：
　　运行程序，在文本框中输入你朋友的电话号码，如果是当地电话，请直接输入电话号码；如果是长途电话，请按如下格式输入：“区号-电话号码”，如“0939-8519041”。输入完成后单击“拨号”进行呼叫，即可与你的朋友取得联系！本程序在vb6.0版和Windows98第二版下运行通过！