Sub Globals
Dim Buffer(0) as Byte
End Sub
Sub loginButton_Click
Bit.New1
Request.New1("http://tixscan.net/api/login.php")
Request.Method = "POST"
Request.Timeout = 30000
Request.ContentType = "application/x-www-form-urlencoded"
bin.New1(Request.GetStream,true) 'Use a BinaryFile object to write the data to the Request stream.
[B]s = "api=1"
buffer() = bit.StringToBytes(s,0,StrLength(s))
bin.WriteBytes(buffer())[/B]
Response.New1
Response.Value = Request.GetResponse
result = Response.GetString
Response.Close
Msgbox(result)
End Sub