Sub Process_Globals
Dim iCounter As Int = 0
End Sub
Sub AppStart (Args() As String)
Log("Making Multiple Requests!!!")
MakeMultipleRequests
StartMessageLoop
End Sub
Sub MakeMultipleRequests
For ii = 1 To 50
Dim hj As HttpJob
hj.Initialize("jb" & ii, Me)
hj.Download("http://localhost:51042/checkone")
Next
End Sub
Sub JobDone(hj As HttpJob)
iCounter = iCounter + 1
Log(iCounter & "--" & hj.JobName & "==" & hj.GetString)
If iCounter = 50 Then
StopMessageLoop
End If
End Sub