B4A Library OkHttp - Replaces the Http library

aHttp.InitializeAcceptAll("Http")
Url="https://www.xxxxx/ajax/login_valid.php"
Param="login="&myLogin&"&password="&my_MD5_Pass
aReq.InitializePost2(Url,Param.GetBytes("UTF8"))
aReq.SetHeader("User-Agent","Mozilla/5.0 (Android; Linux armv7l; rv:5.0) Gecko/20110615 Firefox/5.0 Fennec/5.0")
aHttp.Execute(aReq,1000)

function valid()
{
jQuery('#errcode').attr('innerHTML', "");
var encode = String(md5(jQuery('#password').val()));
var url = './ajax/login_valid.php';
var parametres = 'login=' + escape(jQuery('#login').val()) + '&password=' + encode;
jQuery.ajax(
{
url:url,
type: 'POST',
data: parametres,
success: function(transport)
{
var response = transport ;
if (response == 'ok')
{
document.location.href = "./accueil.php";
}
else
{
jQuery('#errcode').attr('innerHTML', response) ;
}
},
error: function() { alert("ajax error"); }
});
}

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