TAPI and TSPI

[LokiMoose]

I am writing a program that monitors a telephone line for caller ID. The idea being that when a call comes in, the CLI is extracted from the modem, and a specific message can be played to specific callers. Using MSComm I can extract the CLI information no problem, but how would I go about using TAPI/TSPI to pick up the line and play the message? The modem is a voice modem, so I know the hardware is capable, but I'm tearing my hair out trying to make sense of the software side. Any help here greatfully received.

[AdrianCsi]

...What hair?

[shragel]

How do you get the caller id with the mscomm?

please post the code

[shragel]

here is the code for anyone looking.

Private Sub Form_Load()

MSComm1.CommPort = 3
' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input
' is used.
MSComm1.InputLen = 0
' Open the port.
MSComm1.PortOpen = True
' Send the attention command to the modem.
MSComm1.Output = "ATZ" & Chr$(13) ' Ensure that
' the modem responds with "OK".
' Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCrLf)
' Read the "OK" response data in the serial port.
' Close the serial port.
MSComm1.Output = "AT+VCID=1" & Chr$(13) ' Ensure that

End Sub

Private Sub MSComm1_OnComm()
Dim InString As String
' Retrieve all available data.
MSComm1.InputLen = 0
'Text1.Text = Text1.Text & "Dropped Phone" & vbCrLf
' Check for data.
If MSComm1.InBufferCount Then
' Read data.
ww = MSComm1.Input
Text1.Text = Text1.Text & ww

If ww Like "*NAME*" Then
pos = InStr(1, ww, "Time=", vbTextCompare)
List1.AddItem Mid(ww, pos + 5, 11)
pos = InStr(1, ww, "Nmbr=", vbTextCompare)
List1.AddItem Mid(ww, pos + 5, 10)
pos = InStr(1, ww, "Name=", vbTextCompare)
List1.AddItem Mid(ww, pos + 5)
End If
End If

End Sub


Add a Comm control texbox mulktiline true and listbox.

[yrwyddfa]

Do you know of any good resources for Modem interaction with VB?

preferably free ones