VB.Net Gaia Login Example.
Credits to Stapled for original login in C#, after some time i was able to convert it to .Net.
Credits to Chad from his String Extensions in C#, converted to .Net
What you'll need:
VB.NET
My Wrapper With Addons
The Ability to Copy Pasta
Example:
I'll probably make a Github soon.... anyway enjoy.
Credits to Chad from his String Extensions in C#, converted to .Net
What you'll need:
VB.NET
My Wrapper With Addons
The Ability to Copy Pasta
Example:
Dim wrapper As New Wrapper
Dim html, user, pass As String
Sub Main()
Console.Write("Username: ")
user = Console.ReadLine()
Console.Write("Password: ")
pass = Console.ReadLine()
GaiaLogin(user, pass)
End Sub
Public Function GaiaLogin(username As String, password As String) As [boolean]
Dim pd As String
wrapper.WebRequest(html, "http://www.gaiaonline.com/", "GET", "", "")
pd = wrapper.Between(html, "</fieldset>", "</form>").Replace("data-value", "")
Dim n As List(Of String) = wrapper.gasb(pd, "name=""", """")
Dim v As List(Of String) = wrapper.gasb(pd, "value=""", """")
Dim postdata As String = ((((((n(0) + "=" + v(0) & "&") + n(1) & "=") + v(1) & "&") + n(2) & "=") + v(2) & "&") + n(3) & "=") + v(3) & "&" & "username=" & username & "&password=" & password
Dim login As String
wrapper.WebRequest(login, "http://www.gaiaonline.com/auth/login/", "POST", postdata, "")
wrapper.WebRequest(login, "http://www.gaiaonline.com/", "GET", "", "")
If login.Contains("Welcome back") Then
Console.WriteLine("Pass")
Console.ReadLine()
Else
Console.WriteLine("Fail")
Console.ReadLine()
End If
Return login.Contains("Welcome back")
End Function[/boolean]I'll probably make a Github soon.... anyway enjoy.
.