by Thejan J Rajapakshe (7 Submissions)
Category: OLE/COM/DCOM/Active-X
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Wed 3rd January 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Dials the phone and hanges up after message box prompt
'Place the following code in a Form_Load()
dim A$
A$ = "555-1234"
comOne.commport = 1
comOne.settings = "9600, N, 8, 1"
comOne.portopen = true
comOne.output = "ATDT" & A$ & vbCr
msgbox "Dialing " & A$
comOne.portopen = false