Code:
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim HTML = thewrapper.Request("GET", "http://www.neopets.com/ncma/index.phtml?user=" & TextBox1.Text(), "http://www.neopets.com/ncma/index.phtml?user=" & TextBox1.Text())
Dim NC = GetStringBetween(HTML, "; background-color", "<B>« Previous page")
Dim items = GBA(NC, "id=", "</B>", ListBox1)
If HTML.Contains("Next Page'must use something else") Then
For a = 20 To 10000 + 20
Dim HTMLs = thewrapper.Request("GET", "http://www.neopets.com/ncma/index.phtml?user=" & TextBox1.Text & "&start=" & a, "http://www.neopets.com/ncma/index.phtml?user=" & TextBox1.Text())
Dim NCs = GetStringBetween(HTMLs, "; background-color", "<B>« Previous page")
Dim itemss = GBA(NCs, "id=", "</B>", ListBox1)
Next
ElseIf
MessageBox.Show("All Pages viewed")
End If
End Sub
I know the If statement is totally wrong :/
Code:
For counter [ As datatype ] = start To end [ Step step ]
[ statements ]
[ Continue For ]
[ statements ]
[ Exit For ]
[ statements ]
Next [ counter ]
I was trying to focus on a path ect for said thing to occur for the condition.
I'm trying to go to the next page until there is no longer a next page
Would it be best to use a While Loop instead?
Or should I stick to using the while loop to make the request go to the next page?
Thanks