Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Dim j As HttpJob
j.Initialize("TurnOn",Me)
j.Tag = "Relay 1 - ON"
j.Download("http://192.168.1.199/FF0101")
Dim j As HttpJob
j.Initialize("TurnOff",Me)
j.Tag = "Relay 1 - OFF"
j.Download("http://192.168.1.199/FF0100")
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "TurnOn", "TurnOff"
'print the result to the logs
Log(Job.GetString)
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub