ExecuteRemoteQuery(" ",List)
Sub ExecuteRemoteQuery1(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostString("http://www.xxxxxx.com/date.php", "")
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim res As String
Dim tmpNum As String
Dim TMP As String
res = Job.GetString 'GetGetString'("UTF8")
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case List
lbDateActual.Text = Job.GetString
'
End Select
Else
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub