Dim j As HttpJob
Try
j.Initialize("", Me)
j.Download("https://www.google.com")
j.GetRequest.Timeout = 5000 ' 5 seconds
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
xui.MsgboxAsync(j.GetString, "OK")
Else
xui.MsgboxAsync("Error connecting", j.Response.StatusCode) 'error code
End If
Catch
Log(LastException) 'Error general
End Try
j.Release