Sub Button1_Click '.... Log In Button
Dim job1 As HttpJob
Username=EditText1.Text
Password=EditText2.Text
Log(Username) 'Log Output was Correct
Log(Password) 'Log Output was Correct
job1.Initialize("Job1", Me)
job1.Download2("http://www.lexiconsoftware.gr/sms/service.asmx/Balance" , Array As String("username",EditText1.Text,"password",EditText2.Text))
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Log(Job.GetString) ' = <string xmlns="http://www.lexiconsoftware.gr/">ERR 001 - Invalid username </string>
'.......................................