Sub JobDone(Job As HttpJob)
Log(Job.JobName)
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Dim parser2 As JSONParser
parser2.Initialize(res)
Select Job.JobName
Case "CHECKVERSION"
lblstatus.text="checking"
End Select
Else
hd.toastmessageshow("Error: " & Job.ErrorMessage, True)
lblstatus.Text = "Status: Connection Failed"
btnlogin.enabled = True
hd.progressdialoghide
End If
Job.Release
End Sub