Dim hc As HttpClient
hc.Initialize("hc")
req.InitializeGet("http://ipecho.net/plain")
hc.Execute(req, 1)
Sub hc_ResponseSuccess(Response As HttpResponse, TaskId As Int)
ipall.Text = "Indirizzo IP: " & Response.GetString("UTF8")
End Sub
Sub hc_ResponseError(Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Msgbox("Errore IP - " & Response.GetString("UTF8"), "")
End Sub