利用 API 可以直接拨号

声明：

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL"　(ByVal DestAddr$, ByVal AppName As String,　ByVal CalledParty As String, ByVal Comment As String) As Long
例子：
Public Sub CallPhone(Number As String, Name As String)
　 Dim lRes As Long
　 If (Trim(Number) = "") Then
　　 Exit Sub
　 End If
　 If (MsgBox("About to call " & Trim(Name)　& " at phone number " & Trim(Number) & VBCrLf & "Do it?",　vbYesNo, App.Title) = vbYes) Then
　　 lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")
　　 Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes
　 End If
End Sub

还有一种方法是：
PhoneNumber$ = "(123)456-7890"
Open "COM2:" For Output As #1 'or COM1
Print #1, "ATDT" & PhoneNumber$ & Chr$(13)
Close #1
当然，该方法只适合小型的应用。

上一篇： 用VB实现应用程序在局域网络上自动更新
下一篇： 基于Windows95 平台的VB5串行端口通信程序的设计

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有