• Home
 · 
• Miscellaneous
 · 
• Dials a telephone number w/o using APIs

Dials a telephone number w/o using APIs

Uses the MSComm control to call a telephone number using your modem WITHOUT HAVEING DIALER.EXE! :)

Inputs
num - the telephone number

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

Rate Dials a telephone number w/o using APIs

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

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