24.htm

vb功能实例介绍。详细、很好的实例说明。

<p>电话拨号   </p>
<p>       </p>
<p>利用 API 可以直接拨号。声明：</p>
<p></p>
<p>Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal DestAddr$, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long</p>
<p>例子：</p>
<p>Public Sub CallPhone(Number As String, Name As String)</p>
<p>Dim lRes As Long</p>
<p>If (Trim(Number) = "") Then</p>
<p>Exit Sub</p>
<p>End If</p>
<p>If (MsgBox("About to call " & Trim(Name) & " at phone number " & Trim(Number) & vbCrLf & "Do it?", vbYesNo, App.Title) = vbYes) Then</p>
<p>lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")</p>
<p>Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes</p>
<p>End If</p>
<p>End Sub</p>
<p></p>
<p>还有一种方法是：</p>
<p>PhoneNumber$ = "[phone]"</p>
<p>Open "COM2:" For Output As #1 'or COM1</p>
<p>Print #1, "ATDT" & PhoneNumber$ & Chr$(13)</p>
<p>Close #1</p>
<p>当然，该方法只适合小型的应用。 </p>