bit.New1
Request.New1("http://www.megavideo.com/?s=signup")
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Request.Timeout = 30000
[COLOR="Blue"]obj.New1(False)
obj.FromLibrary("Main.Request","req",B4PObject(2))
obj.SetProperty("AllowAutoRedirect","false")[/COLOR]
s="action=login&cnext=&snext=&touser=&user=&nickname=" & nickname & "&password=" & password
buffer() = bit.StringToBytes(s,0,StrLength(s))
Request.ContentLength=StrLength(s)
bin.New1(Request.GetStream,True)
bin.WriteBytes(buffer())
Response.New1
Response.Value = Request.GetResponse
header=response.Headers
Response.Close