Hallo Anton,
> Ich m�chte mir einen Anrufmonitor f�r meine FritzBox in VB6 bauen.
> Gibt es irgendwo ein Beispiel, wie man eingehende Anrufe signalsiert bekommt?
wie Ullrich schon geschrieben hat, in der FritzBox (Firmware ab Ende 2008)
den TCP Port 1012 aktivieren. Aktivieren z.B. mit Telefon #96*4* .
Port abh�ren z.B. mit Winsock:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Static sFBTime As String
Dim sValue() As String, sData As String
Winsock1.GetData sData
If Len(sData) > 0 Then
sValue = Split(sData, ";")
If UBound(sValue) > 3 Then
If sValue(1) = "RING" Then
If sFBTime <> sValue(0) Then
sFBTime = sValue(0)
...
'sValue(0) = Datum, Zeit des Anrufs
'sValue(1) = Aktion
'sValue(2) = Anschluss
'sValue(3) = anrufende Nummer (Quellrufnummer)
'sValue(4) = angerufene Nummer (Zielrufnummer)
'sValue(5) = SIP + Nummer
End If
End If
End If
End If
End Sub
Eingehende Anrufe verlaufen nach folgendem Schema:
<Datum> <Zeit>;RING;<Anschluss>;<Quellrufnummer>;<Zielrufnummer>;<SIP + Nummer>;
<Datum> <Zeit>;CONNECT;<?>;<Anschluss>;<Quellrufnummer>;
<Datum> <Zeit>;DISCONNECT;<Anschluss>;<Gespr�chl�nge in Sek.>;
Gru�
Wilfried