Dim myURL As String = "http://www.mysite.com"
Din szUsr As String = "myself"
Din szPwd As String = "password"
Dim j As HttpJob
j.Initialize("MyJob",Me)
dim m as map = CreateMap("Usr": szUsr, "Pwd": szPwd)
Dim generator As JSONGenerator
generator.Initialize(m)
j.PostString(myURL, generator.ToString)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
else
log("User used: "&szUsr)
log("PW used: "&szPwd)
log(j.errormessage)
End If
j.Release