Public Sub pickEnergy
Dim DoUsersEnergy As HttpJob
DoUsersEnergy.Initialize("", Me)
DoUsersEnergy.download2("http://192.168.1.43/persons/persons.php", Array As String ("action", "GetUserEnergy","deviceid",functions.GetDeviceId))
Wait For (DoUsersEnergy) JobDone(DoUsersEnergy As HttpJob)
If DoUsersEnergy.Success Then
Dim res As String
res = DoUsersEnergy.GetString
Log("Back from Job:" & DoUsersEnergy.JobName )
Log("Response from server: " & res)
Dim l As List
l.Initialize
Dim parser As JSONParser
parser.Initialize(res)
[S] l.Add(parser.NextValue) [/S]l.Add(parser.NextObject) ' suggest from [B][USER=73327]le_toubib[/USER][/B]
Log(l.Size)
Log(l.Get(0))
energy_Label.Text = "Total energy: " & l.Get(0) & "/50"
Else
ToastMessageShow("Error: " & DoUsersEnergy.ErrorMessage, True)
End If
DoUsersEnergy.Release
End Sub