Mimo
Feb 28th, 2003, 06:25 PM
Let's consider the following code:
Private Sub Dial(Number$)
Dim DialString$
DialString$ = "ATDT" + Number$ + ";" + vbCr
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
MsgBox "COM3: not available. Change the CommPort property to another port."
Exit Sub
End If
' Flush the input buffer.
MSComm1.InBufferCount = 0
' Dial the number.
MSComm1.Output = DialString$
'..............
End Sub
The above Sub takes a number and dials it ....
I'm wondering if it's possible to record (or get) the keystrockes of the target phone when a specified number is pushed when the connection is established (on the target keypad 1,2 ...#,*) !?!?!?!?
I mean if this could be done using the "MSComm" by some added code?????
10x anyway!!!
Private Sub Dial(Number$)
Dim DialString$
DialString$ = "ATDT" + Number$ + ";" + vbCr
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
MsgBox "COM3: not available. Change the CommPort property to another port."
Exit Sub
End If
' Flush the input buffer.
MSComm1.InBufferCount = 0
' Dial the number.
MSComm1.Output = DialString$
'..............
End Sub
The above Sub takes a number and dials it ....
I'm wondering if it's possible to record (or get) the keystrockes of the target phone when a specified number is pushed when the connection is established (on the target keypad 1,2 ...#,*) !?!?!?!?
I mean if this could be done using the "MSComm" by some added code?????
10x anyway!!!