[VB.NET]Gaia Login(HttpWebRequest+HttpWebResponse)

[Blazer]

I wrote this code a few hours ago, Very Simple, an Very easy for people that know VB.NET.

Imports System.Net
Imports System.Web
Imports System.IO

Public Function Login(ByVal Username As String, _
                          ByVal Password As String) As Boolean
        Dim strToken As String, strSID As String, strRedirect As String
        Dim PageSource As String = String.Empty
        Dim CC As CookieContainer = New CookieContainer()
        Dim Request As HttpWebRequest = HttpWebRequest.Create("http://www.gaiaonline.com/auth")
        Request.Method = WebRequestMethods.Http.Get
        Request.KeepAlive = True
        Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2 (.NET CLR 4.0.20506)"
        Request.CookieContainer = CC
        Dim Response As HttpWebResponse = Request.GetResponse()
        Dim Stream As New StreamReader(Response.GetResponseStream())
        PageSource = Stream.ReadToEnd()
        Response.Close()

        PageSource = Replace(PageSource, """", "'")
        strToken = GetStringBetween(PageSource, "<input type='hidden' name='token' value='", "' />")
        strSID = GetStringBetween(PageSource, "<input type='hidden' name='sid' value='", "' />")
        strRedirect = GetStringBetween(PageSource, "<input type='hidden' name='redirect' value='", "' />")

        Dim strPostData As String = "token=" & _
        strToken & "&sid=" & _
        strSID & "&redirect=" & _
        System.Web.HttpUtility.UrlEncode(strRedirect) & "&username=" & _
        System.Web.HttpUtility.UrlEncode(Username) & "&password=" & _
        Password & "&chap="

        Request = HttpWebRequest.Create("http://www.gaiaonline.com/auth/login/")
        Request.Referer = "http://www.gaiaonline.com/auth"
        Request.KeepAlive = True
        Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.2) Gecko/20100316 Firefox/3.6.2 (.NET CLR 4.0.20506)"
        Request.CookieContainer = CC
        Request.Method = WebRequestMethods.Http.Post
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.ContentLength = strPostData.Length
        Dim writer As New StreamWriter(Request.GetRequestStream)
        writer.Write(strPostData)
        writer.Close()
        Response = Request.GetResponse()
        Dim reader As New StreamReader(Response.GetResponseStream())
        PageSource = reader.ReadToEnd()
        Response.Close()
        If (InStr(1, PageSource, "<title>Welcome to Gaia | Gaia Online</title>", CompareMethod.Text) <> 0) Then
            Login = True
        Else
            Login = False
        End If
    End Function

[Bman]

Very nice Blazer... Its simple and effective.

Although most people prefer to use HTTP Wrappers.

[Blazer]

Very nice Blazer... Its simple and effective.

Although most people prefer to use HTTP Wrappers.

I now, but with this you can have multiple cookie sessions.

[Bman]

Ahh, I didnt see this

Thanks for telling me.

[TEMPTii]

Works great, used it in my shitty public program and currently using it in my Arena voter.

E: If you're still active, think you could make a logout function?

[Jah]

How do i use it with the httprequest ect. please

[TEMPTii]

To use the function for the login, it's:

If Login(txtUsername, txtPassword) = True then
msgbox("Logged in!")
Elseif Login(txtUsername, txtPassword) = False then
msgbox("Login Failed!")
End if

If you're asking how to use the HTTPWebRequest to do things, I'll make a tutorial

[Jah]

To use the function for the login, it's:

If Login(txtUsername, txtPassword) = True then
msgbox("Logged in!")
Elseif Login(txtUsername, txtPassword) = False then
msgbox("Login Failed!")
End if

If you're asking how to use the HTTPWebRequest to do things, I'll make a tutorial

oh ok cool ill be ready to see it hehe thanks xD

[Chad]

It's messy. It helps if you like VB.net though. I suggest making your own wrappers using the Requests and stuff. It would be faster.

[Jah]

Wow you know how to make a wrapper ?

[TEMPTii]

Making a wrapper is simply making a class and turning this into functions. I'll do it