This is to loop through a listbox in UP format

Saves the Page to file. Find the function on your own

PHP Code:
dim intAcc As Integer
        Dim StrHTML As String
        Dim StrFrob As String
        Dim StrToken As String
        Dim StrSplit As String
        Dim StrUserPass() As String
        Dim IntAcct As Integer
        For IntAcct = 0 To lstACC.Items.Count - 1
            StrSplit = (lstACC.Items.Item(IntAcct))
            StrUserPass = Split(StrSplit, ":")
            StrHTML = wrapper.GetWrapper("http://www.gaiaonline.com/auth/login")

            StrToken = GetStringBetween(StrHTML, "name=""token"" value=""", """")
            StrFrob = GetStringBetween(StrHTML, "name=""frob"" value=""", """")

            StrHTML = wrapper.PostWrapper("http://www.gaiaonline.com/auth/login", "token=" & StrToken & "&sid=&frob=" & StrFrob & "&toolbar_id=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&username=" & StrUserPass(0) & "&password=" & StrUserPass(1) & "&chap=")

            If (InStr(1, StrHTML, "?login_success=1") <> 0) Then
                Dim strgold As String
                TextBox1.Text = ""
                TextBox2.Text = ""

                StrHTML = wrapper.GetWrapper("http://www.gaiaonline.com/inventory")
                strSauce = GetStringBetween(StrHTML, "<!DOCTYPE html", "<!-- buffered output -->")
                TextBox1.Text = strSauce
                Encode(TextBox1, TextBox2)
                strSauce = TextBox2.Text
                StrHTML = wrapper.GetWrapper("http://www.tektek.org/gaia/worth.php")
                StrHTML = wrapper.PostWrapper("http://www.tektek.org/gaia/worth.php", "environment=0&txt=" & strSauce)

                strHtSc = GetStringBetween(StrHTML, "<!DOCTYPE", "</html>")
                strHtSc = "<!DOCTYPE" & strHtSc & "</html>"
                SaveTextToFile(strHtSc, Application.StartupPath & " " & StrUserPass(0) & ".html")
                wrapper.ClearCookies()
                StrHTML = wrapper.GetWrapper("http://gaiaonline.com/wap/login")
                StrHTML = wrapper.PostWrapper("http://gaiaonline.com/wap/login", "username=" & StrUserPass(0) & "&password=" & StrUserPass(1))
                If (InStr(1, StrHTML, "http://s2.cdn.gaiaonline.com/images/goldnotify/gold_static.gif") <> 0) Then
                    strgold = GetStringBetween(StrHTML, "gold_static.gif"" /> ", "</div>")
                    ListBox1.Items.Add(StrUserPass(0) & ":" & StrUserPass(1) & ":" & strgold)
                    wrapper.ClearCookies()
                End If
                ListBox1.Items.Add("Tektek file for " & StrUserPass(0) & " Has been saved")
            Else
                wrapper.ClearCookies()
            End If
        Next