Dim h As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
h.Initialize("Listausuarios",Me)
'Connect
End Sub
Sub Activity_Click
ProgressBar1.Visible = True
Wait For (CallSub(Starter, "ListAnimals")) Complete (Result As Boolean)
Log("Completed. Success: " & Result)
ProgressBar1.Visible = False
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success Then
Select Job.JobName
Case "Listausuarios"
Msgbox("OK","")
End Select
End If
End Sub
Private Sub Button1_Click
h.Download2("http://192.168.0.12:80/wbsvc.php", Array As String("o","json"))
End Sub