HTTP library v1.5 - Asynchronous calls

Sub Button1_Click
....
stream.WriteBytes(stream.StringToBytes(name))
response.Value = request.AsyncResponse
....
"buffer operation"
....
End Sub

Sub request_Response
Dim buffer(1024) As byte
count = bin.ReadBytes(buffer(),1024)
End Sub

Sub Globals
    Dim buffer(0) As byte
End Sub

Sub App_Start
    Form1.Show
    request.New1("http://www.b4x.com")
    response.New1
    request.GetAsyncResponse
End Sub

Sub request_Response
      If request.ResponseCode = 200 Then '200 is the code of successful connections.
            response.Value = request.AsyncResponse
            response.GetAsyncStream(AppPath & "\tempfile") 'Stream is saved to this file
      Else
            Msgbox("Error getting response: " & request.ErrorMessage & CRLF _
            & "Response code: " & request.ResponseCode)
      End If
End Sub

Sub response_Stream
    'file is ready
    FileOpen(c, AppPath & "\tempfile", cRandom)
    binaryFile.New1(c, False)
    Dim buffer(FileSize(AppPath & "\tempfile")) As byte
    Msgbox(binaryFile.ReadBytes(buffer(), ArrayLen(buffer())))
    FileClose(c)
    
End Sub

<?
$first=$_POST["First"];
$last=$_POST["Last"];
echo $first. " " .$last;
?>

<?php
print "POST variables:\r\n";
var_dump($_POST);
print "\r\nGET variables:\r\n";
var_dump($_GET);
?>