Sub btnSignIn_Click
Dim j As HttpJob
j.Initialize("authenticate", Me)
Log("requesting....")
j.Download(baseurl&authenticate&"4321")
''Log("request done...")
j.GetRequest.SetHeader("Authorization", "Basic aGhfdGVzdDpiaXMyNDI4")
j.GetRequest.SetHeader("Cache-Control", "no-cache")
j.GetRequest.SetHeader("X-CLIENT-ID", "2100")
Log("waiting for job to be done..")
Wait for (j) JobDone(j As HttpJob)
Log("job done...")
Try
If j.Success Then
Log("response: " & j.GetString)
Else
Log("error: " & j.GetString)
End If
Catch
Log("catcherror: " & LastException.Message)
End Try
End Sub