[VB.net] Grab usernames from boards

[Josh]

    
    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.