Sub Testconnection
Dim j As HttpJob
j.Initialize("", Me)
j.Download("http://192.168.1.21:17178/test")
j.GetRequest.Timeout = 1000
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
status.Color = Colors.Green
Else
status.Color = Colors.Red
End If
j.Release
Sleep(5000)
Testconnection
End Sub