Uses the MSComm control to call a telephone number using your modem WITHOUT HAVEING DIALER.EXE! 🙂
Original Author: alex
Inputs
num – the telephone number
Assumptions
Assumes you have a MSComm control on your form named “Communications”
Code
Private Sub Dial(num As String)
' Open the com port.
Communications.PortOpen = True
' Send the attention command to the modem.
Communications.Output = "AT" + Chr$(13)
' Wait for processing.
Do
DoEvents
Loop Until Communications.InBufferCount >= 2
' Dial the number.
Communications.Output = "ATDT " + num + Chr$(13)
' Takes about 47 sec. to dial
wait = Timer + 47
Do
DoEvents
Loop While Timer <= wait
' Uncomment to disconnect after dialing.
'Communications.PortOpen = False
End Sub