Public Sub Connect(url As String)
httpTool.Initialize("")
Dim httpReq As OkHttpRequest
httpReq.InitializeGet("https://mysite.com/myfiles/1.php?p=111111")
httpTool.Execute(httpReq, 0)
End Sub
Sub ResponseSuccess (Response As HttpResponse, TaskId As Int)
'AdHocText.Text = Response.GetString
End Sub