Sub Button1_ClickToastMessageShow("sdfsd",True)
Parser.Initialize 'Initialize parser first
'getsessionkey.Download("http://xmldata.qrz.com/xml/current/?username=someuser;password=somepassword;agent=gdf.0")Dim job1, job2, job3 AsHttpJob
job1.Initialize("Job1", Me)'Send a GET request job1.Download2("http://xmldata.qrz.com/xml/current/?username=km4bob;password=airfile*1;agent=gdf.0", _ArrayAsString("first key", "first value :)", "second key", "value 2"))
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job1", "Job2"
'print the result to the logs
Log(Job.GetString)
ToastMessageShow(Job.GetString,True)
key = Job.GetString
Dim In As InputStream
Dim data() As Byte = Key.GetBytes("UTF8")
In.InitializeFromBytesArray(data, 0, data.Length)
parser.Parse(In, "Parser")
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Sub Parser_StartElement (Uri As String, Name As String, Attributes As Attributes)
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If parser.Parents.IndexOf("Session") > -1 Then
If Name = "Key" Then
Title = Text.ToString
Else If Name = "Count" Then
Link = Text.ToString
End If
End If
If Name = "Key" Then
ToastMessageShow(Text.ToString,True)
End If
End Sub