Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Dim job1 As HttpJob
job1.Initialize("Job1",Me)
job1.PostString("http://open.mapquestapi.com/directions/v2/route","key=Fmjtd%7Cluurnuu1ng%2Cra%3Do5-9wraqf&json={locations:[{latLng:{lat:54.0484068,lng:-2.7990345}},{latLng:{lat:53.9593817,lng:-1.0814175}}]}")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "Job1"
Log(Job.GetString) ' CHECK THE LOG (THE STRING SHOULD BE THERE)
Dim parser As JSONParser
parser.Initialize(Job.GetString)
' HERE YOU PARSE THE JSON STRING
End Select
Else
Log ("coms failure !!")
End If
End Sub