Sub AppStart (Args() As String)
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("https://www.b4x.com/")
StartMessageLoop
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job1"
' 'do something with the string
Log(Job.GetString)
End Select
Else
Log("Error: " & Job.ErrorMessage)
End If
Job.Release
End Sub