http://www.foxtable.com/mobilehelp/topics/0294.htm
Dim api As String = Args(0)
Dim url As String = "http://192.168.5.210:32177/" & api
Dim hp As New HttpClient(url)
hp.SkipError = True
hp.Timeout = 1
Dim s As String = hp.GetData()
if hc.StatusCode = 200 andalso s > ""then
Return 1
Else
Return 0
End If