编写电话拨号程序

Author: 燕义怀 Date: 2001年 25期

?牐犑褂霉齏indows 9x系统的人可能使用过Windows 9x系统的电话拨号程序，那么能不能动手编制一个属于自己的电话拨号程序呢？其实使用VB也是很容易的。如果你有兴趣，就跟我来吧，咱们一起来编写自己的电话拨号程序！
　　#1    一、界面设计：
　　?牐犜诖疤迳霞尤胍桓鯩scomm控件，并将其Commport属性设置为你的调制解调器所用的端口号，其它属性使用其默认属性值。加入一个Label控件，并将其Caption 属性设置为“拨叫的电话号码”。加入一个Text 控件，并将其Text属性设置为“空”。加入两个Command 控件，并将Command1的Caption属性设置为“拨号”，Command2的属性设置为“断开”。
　　?牐牐ㄗⅲ篗SComm 控件是一个具有通过串行端口传输和接收数据，为应用程序提供串行通讯功能的控件。可以采用轮询或事件驱动的方法从端口获取数据）
　　#1    二、程序代码：
　　?牐燚im Torikesi As Boolean
　　?牐燩rivate Sub Command1＿Click（）
　　?牐營f Text1．Text = “” Then Exit Sub
　　?牐燭orikesi = False
　　?牐燙ommand1．Enabled = False
　　?牐燿o＿Dial
　　?牐燙ommand1．Enabled = True
　　?牐燛nd Sub
　　?牐燩rivate Sub Command2＿Click（）
　　?牐燭orikesi = True＇激活断开标志
　　?牐燛nd Sub
　　?牐燩rivate Sub do＿Dial（）
　　?牐燚im DialStr As String ＇电话号码
　　?牐燚im RecStr As String ＇接收字符串
　　?牐燚im dmy As Integer
　　?牐燚ialStr = “atdt” + Text1．Text + “;” + Chr（13）＇输入电话号码
　　?牐燨n Error Resume Next
　　?牐燤SComm1．PortOpen = True ＇打开串口
　　?牐營f Err．Number ＜＞ 0 Then
　　?牐燤sgBox “Com1端口不能使用”
　　?牐燛xit Sub
　　?牐燛nd If
　　?牐燤SComm1．InBufferCount = O ＇清空接收缓冲区
　　?牐燤SComm1．Output = DialStr ＇发送电话号码
　　?牐燫ecStr = “”
　　?牐燚o
　　?牐燿my = DoEvents（）  ＇识别键盘、鼠标操作
　　?牐營f MSComm1．InBufferCount Then
　　?牐燫ecStr = RecStr + MSComm1．Input
　　?牐營f InStr（RecStr，“OK”） Then
　　?牐燤sgBox “电话正在接通，请你提机准备通话！”
　　?牐燛xit Do
　　?牐燛nd If
　　?牐燛nd If
　　?牐營f Torikesi Then Exit Do ＇用户单击断开按钮
　　?牐燣oop
　　?牐燤SComm1．Output = “ATH” + Chr（13）    ＇切断线路
　　?牐燤SComm1．PortOpen = False            ＇关闭端口
　　?牐燛nd Sub
　　#1    三、运行验证：
　　?牐犜诵谐绦颍谖谋究蛑惺淙肽闩笥训牡缁昂怕耄绻堑钡氐缁埃胫苯邮淙氲缁昂怕耄蝗绻浅ね镜缁埃氚慈缦赂袷绞淙耄骸扒?-电话号码”，如“0939-8519041”。输入完成后单击“拨号”进行呼叫，即可与你的朋友取得联系！本程序在vb6．0版和Windows98第二版下运行通过！