[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.
PHP Code:
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
