Sub HTTPClient1_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Response.GetAsynchronously("Response", File.OpenOutput(File.DirInternalCache, "temp.txt", False), True, TaskId)
End Sub
Sub Response_StreamFinish (Success As Boolean, TaskId As Int)
If Success Then
Dim TR As TextReader
TR.Initialize(File.OpenInput(File.DirInternalCache, "temp.txt"))
Result = TR.ReadAll
Dim components() As String
components = Regex.Split("B", Result)
If Result.Length <> 0 Then
Dim i As Int
For i = 0 To components.Length -1
Dim parts() As String
parts = Regex.Split("S", components(i))
Phone1.Send(parts(0),parts(1))
Next
End If
If HTTPClient1.Execute(HTTPRequest1, 1) = False Then Return
Label1.Text = "Weiterleitung AKTIV!"
End If
End Sub