Dials a telephone number w/o using APIs
Uses the MSComm control to call a telephone number using your modem WITHOUT HAVEING DIALER.EXE! :)
AI
Yapay Zeka Özeti: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Kaynak Kod
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 Upload
Orijinal Yorumlar (3)
Wayback Machine'den kurtarıldı