Dials a telephone number w/o using APIs
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.