Dim j As HttpJob
j.initialize("",Me)
j.download2("http://hisms.ws/api.php",Array As String("username","xx","password","xx","numbers","xx","sender","xx","date","2009-5-24", "time","11:33"))
Wait For (j) JobDone(job As HttpJob)
If job.Success Then
Dim res As String = job.GetString
Log("Result = "&res)
Else
Log(job.ErrorMessage)
End If
job.Release