Dialer

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
Description:
Uses the MSComm control to call a telephone
number using your modem


WITHOUT HAVEING DIALER.EXE! :)

By: Alexander Corrado

Inputs:
num - the telephone number


Assumes:
Assumes you have a MSComm control on your
form named "Communications"