Sub Activity_Create(FirstTime As Boolean)
Dim hc As OkHttpClient
hc.InitializeAcceptAll("hc")
Dim req As OkHttpRequest
req.InitializePost2("link", "login=user&password=md5_password".GetBytes("UTF8"))
req.SetHeader("User-Agent","Mozilla/5.0 (Android; Linux armv7l; rv:5.0) Gecko/20110615 Firefox/5.0 Fennec/5.0")
hc.Execute(req,1000)
End Sub
Sub hc_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
Dim out As OutputStream
out.InitializeToBytesArray(0)
Response.GetAsynchronously("res", out, False, TaskId)
End Sub
Sub res_StreamFinish (Success As Boolean, TaskId As Int)
Log($" ${Success}"$)
If Success Then Log(BytesToString(out.ToBytesArray, 0, out.ToBytesArray.Length, "utf8"))
End Sub
Sub hc_ResponseError (Response As OkHttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log($"Error: ${Response.ErrorResponse}, ${Reason}, ${StatusCode}"$)
If Response <> Null Then Response.Release
End Sub