Dim job As HttpJob
job.Initialize("ping", Me)
job.Download("http://www.vdfb.de/b4a/ping.php")
Sub JobDone(job As HttpJob)
If job.Success Then
If job.JobName = "ping" Then
Dim res As String
res = job.GetString
If res = "pong" Then
ToastMessageShow("Website ONLINE", True)
End If
End If
Else
Log("Error: " & job.ErrorMessage)
End If
job.Release
End Sub