[vb.net] Multi Gaia Login via Listbox

[Chad]

Made this mostly for Eternal in five minutes just so he can get multi-login if he needs it with .net.

 Public Class frmMain
    Dim StrHTML As String
    Dim StrFrob As String
    Dim StrToken As String
    Dim StrSplit As String
    Dim StrUserPass() As String
    Dim IntAcct As Integer
 
    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        lstAccounts.Items.Add(txtUsername.Text & " : " & txtPassword.Text)
    End Sub
 
    Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click
        For Me.IntAcct = 0 To lstAccounts.Items.Count - 1
            StrSplit = (lstAccounts.Items.Item(IntAcct))
            StrUserPass = Split(StrSplit, " : ")
 
            StrHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/")
 
            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
                MessageBox.Show(StrUserPass(0) & " : Logged in", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Wrapper.ClearCookies()
            Else
                MessageBox.Show(StrUserPass(0) & " : Failed to login", "Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
 
        Next
    End Sub
End Class