VB Code:
Private Sub Command2_Click()
n = -14
For n = n To Text2.Text
n = n + 14
myurl = Text3.Text & n
Inet1.Protocol = icHTTP
Inet1.Execute CStr(myurl), "GET /"
While Inet1.StillExecuting
DoEvents
Wend
Text1.Text = Replace(Text1.Text, vbCrLf + vbCrLf, vbCrLf)
'Call Limits
Call parse
Call Command3
Text1.Text = ""
Next n
MsgBox "Done"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12
stemp = Inet1.GetChunk(100)
While stemp <> ""
Text1.Text = Text1.Text & stemp
'Text1.Text = Replace(Text1.Text, " ", "")
stemp = Inet1.GetChunk(100)
Wend
Text1.Text = Text1.Text & stemp
Case 11
MsgBox Inet1.ResponseInfo, vbCritical, "error"
End Select
End Sub