VB Code:
Sub timeout(S%)
Dim Start
Start = now
While DateDiff("s", Start, now) <= S
DoEvents
Wend
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
WebBrowser1.Navigate (TextBox2.Text)
j = TextBox1.Text
k = TextBox3.Text
For i = k To j
ListBox1.AddItem (i)
Next i
On Error Resume Next
Do Until ListBox1.ListCount = 0
timeout (4)
On Error Resume Next
WebBrowser1.Document.all("message").Value = ListBox1.List(0)
On Error Resume Next
WebBrowser1.Document.all("SUBMIT").Click
On Error Resume Next
ListBox1.RemoveItem (0)
On Error Resume Next
timeout (31)
On Error Resume Next
Loop
If ListBox1.ListCount = 0 Then
MsgBox ("done")
End
End If
End Sub