Sub btnTest_Click
Dim ProductNo As String
Dim job1 As HttpJob
job1.Initialize("ProductCheck", Me)
JobToDo = 10
For N = 1 To 10
ProductNo = N
job1.PostString("http://xxxx.com/scripts/product_check.php", "PNUM=" & ProductNo )
Next
End Sub
Sub JobDone(Job As HttpJob)
Dim res As String
If Job.Success = True Then
Select Job.JobName
Case "ProductCheck"
res = Job.GetString
Log(res)
JobToDo = JobToDo -1
End Select
Else
Log("Error: " & Job.ErrorMessage)
End If
If JobToDo = 0 Then
Job.Release
End If
End Sub