[vb.net] Multi Gaia Login via Listbox
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
