Friend Sub AnrMonCONNECT(ByVal FBStatus As String(), ByVal StoppUhrAnzeigen As Boolean)
' wertet eine Zustande gekommene Verbindung aus
' Parameter: FBStatus (String()): Status-String der FritzBox
Dim checkstring As String = ini.Read(InIPfad, "Telefone", "CLBTelNr", "-1")
Dim ID As Integer = CInt(FBStatus.GetValue(2))
Dim MSN As String = JExml.JEWertAuslesen(ID, "MSN")
' FBStatus(0): Uhrzeit
' FBStatus(1): CONNECT, wird nicht verwendet
' FBStatus(2): Die Nummer der aktuell aufgebauten Verbindungen (0 ... n), dient zur Zuordnung der Telefonate, ID
' FBStatus(3): Nebenstellennummer, eindeutige Zuordnung des Telefons
If Not MSN = Nothing Then
If HelferFunktionen.IsOneOf(HelferFunktionen.OrtsVorwahlEntfernen(MSN, ini.Read(InIPfad, "Optionen", "TBVorwahl", "")), Split(checkstring, ";", , CompareMethod.Text)) Then
If ini.Read(InIPfad, "Optionen", "CBJournal", "False") = "True" Then
' Daten für den Journaleintrag sichern (Beginn des Telefonats)
With JExml
If .JEWertAuslesen(ID, "NSN") = vbNullString Then
.ZuJEhinzufügen(ID, "NSN", CStr(FBStatus.GetValue(3)))
Else
.JIÄndern(ID, "NSN", CStr(FBStatus.GetValue(3)))
End If
.ZuJEhinzufügen(ID, "Zeit", CStr(FBStatus.GetValue(0)))
End With
End If
'StoppUhr
If StoppUhrAnzeigen Then
BWStoppuhrEinblenden = New BackgroundWorker
With BWStoppuhrEinblenden
.WorkerSupportsCancellation = True
.RunWorkerAsync(ID)
End With
With STUhrDaten(ID)
.MSN = MSN
.StartZeit = CStr(System.DateTime.Now)
.Abbruch = False
End With
End If
Else
HelferFunktionen.LogFile("Ein unvollständiges Telefonat wurde registriert.")
End If
End If
End Sub '(AnrMonCONNECT)