Apocalypse
Administrator
Posts : 306
Rep : 10
Join date : 2010-09-30
Age : 29
Location : Indio CA
 | | Subject: gaia login wrapper Fri Nov 19, 2010 1:31 pm | |
| - Code:
-
Private Sub Command1_Click()
Dim strHTML As String
strHTML = Wrapper.PostWrapper("login.gaiaonline.com/gaia/login.php", "username=" & Username.Text & "&password=" & Password.Text & "&frob=&token=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=", "http://www.gaiaonline.com")
strHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/")
position = InStr(1, strHTML, "Logout")
If position = Not 0 Then
MsgBox ("Yay, you've logged in!"), vbInformation, "Success!"
Else
MsgBox ("Login Failed!"), vbcrtical, "Aw..."
End If
End Sub | |
|
