Go Back   Gaming Gutter


» Site Navigation
» Home
» FAQ
» Log in
User Name:

Password:

Not a member yet?
Register Now!
» Advertisement
» Recent Threads
Go to first new post GAAAAAAHHHHH!lknsdm....
01-05-2009 04:59 PM
by Judle
Last post by Fewmitz
Today 08:43 PM
41 Replies, 230 Views
Go to first new post bahaha
Today 07:59 PM
Last post by Unregenerate Passion
Today 08:42 PM
8 Replies, 19 Views
Go to first new post Suggestion: Ranters...
01-05-2009 06:33 PM
by Cyrus
Last post by Fewmitz
Today 08:41 PM
4 Replies, 30 Views
Go to first new post BIOSHOCK does not...
Today 08:27 PM
Last post by Fewmitz
Today 08:40 PM
1 Replies, 4 Views
Go to first new post Selling 1.2 M for $2...
Today 07:26 PM
Last post by Mal3vol3nt
Today 08:39 PM
2 Replies, 9 Views
View Single Post

 [VB.NET] Gaia Login
Old 11-27-2007, 10:32 PM   #1 (permalink)
TwiZtedXero
I'm in your mind...

Male TwiZtedXero is offline
 
TwiZtedXero's Avatar
 
Join Date: Sep 2007
Location: Behind a closed door...
Age: 22
Posts: 133
GPoints: 108
iTrader: 0 / 0%
TwiZtedXero Is gaining popularity
Rep Power: 5
[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.

  Reply With Quote
 
Powered by vBadvanced CMPS v3.1.0

All times are GMT -7. The time now is 08:43 PM.


vBulletin skin developed by: eXtremepixels
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
The contents of this webpage are copyright © 2006-2008 GamingGutter.com. All Rights Reserved.

Page generated in 0.16109991 seconds (100.00% PHP - 0% MySQL) with 17 queries