Code:
strhtml = Req("GET", "http://www.neopets.com/neoboards/index.phtml", "")
boards = GetBetweenAll(strhtml, " align='left' style='border-top: 1px solid black;'><a href='boardlist.phtml?board=", "'><img")
For x = 0 To boards.Count - 1
For z = 1 To 241 Step 40
strhtml = Req("GET", "http://www.neopets.com/neoboards/boardlist.phtml?board=" & boards.Item(x) & "&next=" & z, "")
usernames = GetBetweenAll(strhtml, """ class=""blistSmall""><b>", "</b></a>")
For y = 0 To usernames.Count - 1
Setaddlist_ThreadSafe(ListBox1, usernames.Item(y))
Next
Next
Next
Simple little script to grab usernames from boards (every page, of every board).
I thought it was useful. Used it to request a ton of neofriends, because I have too much time.