Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success = True Then
Dim strReturn As String = Job.GetString
Dim parser As JSONParser
parser.Initialize(strReturn)
If Job.JobName = "kdraw" Then
Dim root As Map = parser.NextObject
Dim draw As Map = root.Get("draw")
Dim drawTime As String = draw.Get("drawTime")
Dim drawNo As Int = draw.Get("drawNo")
Dim results As List = draw.Get("results")
'For Each colresults As Int In results
Dim mytime,mydate As String
Label1.Text= "Draw" & draw
mytime= sf.Right(drawTime,8)
mydate=sf.Left(drawTime,10)
Label2.Text="Draw Time" & mytime & "Draw Date" & mydate
Label3.Text="Draw Number" & drawNo
Label4.Text=" Results" & results
'For i = 0 To results.Size - 1
Dim number0,number1,number2,number3,number4,number5,number6,number7,number8,number9,number10,number11,number12,number13,number14,number15,number16,number17,number18,number19 As Int
number0 = results.Get(0)
number1 = results.Get(1)
number2 = results.Get(2)
number3 = results.Get(3)
number4 = results.Get(4)
number5 = results.Get(5)
number6 = results.Get(6)
number7 = results.Get(7)
number8 = results.Get(8)
number9 = results.Get(9)
number10 = results.Get(10)
number11 = results.Get(11)
number12 = results.Get(12)
number13 = results.Get(13)
number14 = results.Get(14)
number15 = results.Get(15)
number16 = results.Get(16)
number17 = results.Get(17)
number18 = results.Get(18)
number19 = results.Get(19)
Else
ToastMessageShow("Error: Invalid Value", True)
End If
Else
'Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub