45.htm

来自「一些简单的编程例子 都是网页的形式」· HTM 代码 · 共 50 行

<p>利用TAPI进行电话拨号   </p>
<p>       </p>
<p>'Phone Dialer in VB</p>
<p></p>
<p>'make a new project; 2 textboxen (index 0 & 1); 2 labels (index 0 & 1)</p>
<p>'1 command button</p>
<p>'Insert the next code in the right place (use Insert/File)</p>
<p>'Press F5</p>
<p></p>
<p>------------- code -------------------</p>
<p>Option Explicit</p>
<p></p>
<p>Private Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" (ByVal DestAdress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)</p>
<p></p>
<p>Private Sub ChooseNumber(strNumber As String, strAppName As String, strName As String)</p>
<p>Dim lngResult As Long</p>
<p>Dim strBuffer As String</p>
<p></p>
<p>lngResult = tapiRequestMakeCall&(strNumber, strAppName, strName, "")</p>
<p>If lngResult <> 0 Then 'error</p>
<p>strBuffer = "Error connecting to number: "</p>
<p>Select Case lngResult</p>
<p>Case -2&</p>
<p>strBuffer = strBuffer & " 'PhoneDailer not installed?"</p>
<p>Case -3&</p>
<p>strBuffer = strBuffer & "Error : " & CStr(lngResult) & "."</p>
<p>End Select</p>
<p></p>
<p>MsgBox strBuffer</p>
<p>End If</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>Call ChooseNumber(Text1(0).Text, "PhoneDialer", Text1(1).Text)</p>
<p></p>
<p>End Sub</p>
<p></p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>Text1(0).Text = ""</p>
<p>Text1(1).Text = ""</p>
<p></p>
<p>End Sub</p>
<p></p>
<p>Private Sub Form_Unload(Cancel As Integer)</p>
<p>End</p>
<p></p>
<p>End Sub</p>