HomeRegisterLog in

Share | 
 

 gaia login wrapper

Go down 
AuthorMessage
Apocalypse
Administrator
Administrator
avatar

Posts : 306
Rep : 10
Join date : 2010-09-30
Age : 23
Location : Indio CA

PostSubject: 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

________________________________________

Back to top Go down
http://apocalypseforums.darkbb.com
 
gaia login wrapper
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
 :: The Kickback :: Basket-
Jump to:  
Private forum on Forumotion | Video games | Other Roleplay games | © phpBB | Free forum support | Contact | Report an abuse | Free forum