How to dial out of an application
You'd better make it...
CommX.Portopen = True 'open the comm control
CommX.Output = "ATDT" & text1.text & chr(13) 'dial the number using tones
...pick up phone and wait for answer
CommX.Output = "+++" 'switch to command mode
...delay 1 second
CommX.Output = "ATH" & chr(13) 'hang up the modem
CommX.PortOpen = False 'close the comm control
Quote:
>>My database organises addresses of friends including their telephone
>>numbers.
>>I am wondering wether it might be possible to dial a telephone number
>>directly
>>by simply clicking on a button, using a modem. After the line is
>>established it
>>should also be possible to overtake the line and talk via the telephone
>>handset.
>>Does anybody know how to get this done?
>>Thanks for help in advance! (I'am using VB5)
>>Werner Wartusch
>Very easy. When somebody clicks on the number, do the following:
>open "comn" for output as #1
>print #1,text1.number
>msgbox "Hit return when phone answers"
>? #1, ath
>rem wait for "OK"
>close
>--
>Regards, Peter Hesketh Monmouthshire UK
>Twenty reasons why chocolate is better than sex: number 5
>"If you bite the nuts too hard the chocolate won't mind."
