| [VB.NET] Gaia Login Working VB.NET Login for Gaiaonline.com
All project files included.
Includes HTML Wrapper.
Download: http://picshome.com/en/download.php?id=D57D548D1 http://rapidshare.com/files/72796149...Login.zip.html http://www.zshare.net/download/52183506814abb/ http://www.megaupload.com/?d=245YW4YU http://www.badongo.com/file/5326592 http://fastuploading.com/download.php?id=0DFAD0A71 Code: Dim strHTML As String
Dim vbwrapper As Wrapper = New Wrapper()
If (txtUsername.Text = vbNullString) Then
lblLogin.Text = "Please enter a username!"
Exit Sub
ElseIf (txtPassword.Text = vbNullString) Then
lblLogin.Text = "Please enter a password!"
Exit Sub
End If
lblLogin.Text = "Logging in..."
btnLogin.Enabled = False
txtUsername.Enabled = False
txtPassword.Enabled = False
strHTML = vbwrapper.Request("POST", "http://login.gaiaonline.com/gaia/login.php?username=" & txtUsername.Text & "&password=" & txtPassword.Text & "&x=21&y=8&submit=Login&redirect=%2F", "http://login.gaiaonline.com/gaia/login.php")
strHTML = vbwrapper.Request("GET", "http://www.gaiaonline.com/forum/", vbwrapper.LastPage)
If strHTML.Contains("Gold:") Then
lblLogin.Text = "Logged In!"
Else
btnLogin.Enabled = True
txtUsername.Enabled = True
txtPassword.Enabled = True
lblLogin.Text = "Failed Login. Please try again."
End If -edit-
Credits to |G3| for helpin meh!
__________________
I'm the shadows seen just out of the corner of your eye.
I'm the person standing behind you in the mirror.
I'm the last thing you see before you turn on the light.
I'm always there just on the edge of sound.
I'm the cold chill and the light brush on your skin when no one is around.
I know all your secrets for I am in your mind, in your dreams, and in your very being. |