Sub Process_Globals
Dim hcSearchToken As HttpClient
Dim SearchToken As String
End Sub
...
Sub getSearchToken()
Dim request As HttpRequest
hcSearchToken.Initialize("hcSearchToken")
...
request.InitializeGet("http://xxxxxxx.com")
If hcSearchToken.Execute(request, 1) = False Then Return
ProgressDialogShow("Initialisiere. Bitte warten...")
End Sub
...
Sub hcSearchToken_ResponseSuccess(Response As HttpResponse, TaskId As Int)
Log(Response.GetString("UTF8"))
End Sub
...