请问....

[calligraphy]

电话拨号程序怎么写

[xxlroad]

对
Private Sub mnuDial_Click()
On Local Error Resume Next
Static Num As String

Num = "1-206-936-6735" ' This is the MSDN phone number

' Get a number from the user.
Num = InputBox$("Enter Phone Number:", "Dial Number", Num)
If Num = "" Then Exit Sub

' Open the port if it isn't already open.
If Not MSComm1.PortOpen Then
mnuOpen_Click
If Err Then Exit Sub
End If

' Enable hang up button and menu item
mnuHangUp.Enabled = True
tbrToolBar.Buttons("HangUpPhone").Enabled = True

' Dial the number.
MSComm1.Output = "ATDT" & Num & vbCrLf
' Start the port timer
StartTiming
End Sub

[calligrapher]

跟我联系[e-mail]

[calligrapher]

跟我联系[e-mail]

[thinkeasy]

使用MODEM的AT命令
你可以参考MSCOMM控件