Enjoy~
Code:Public Function GaiaonlineLogin(ByVal username As String, ByVal password As String) As Boolean Dim strHTML As String Dim strPostData As String strHTML = wrapper.GetWrapper("www.gaiaonline.com/auth/") strHTML = Replace(strHTML, """", "'") strPostData = "token=" & _ GetStringBetween(strHTML, "<input name='token' type='hidden' value='", "' />") & "&sid=" & _ GetStringBetween(strHTML, "<input name='sid' type='hidden' value='", "' />") & "&redirect=" & _ GetStringBetween(strHTML, "<input type='hidden' name='redirect' value='", "' />") & "&username=" & _ (username) & "&password=" & _ "" & "&signInButton=Log+In&chap=" & MD5(MD5(password) + GetStringBetween(strHTML, "<input name='token' type='hidden' value='", "' />")) strHTML = wrapper.PostWrapper("www.gaiaonline.com/auth/login/", strPostData) If strHTML.Contains("<span id=""gold_amt"">") = True Then GaiaonlineLogin = True Else GaiaonlineLogin = False End If End Function ' Gaia Auth
Results 1 to 5 of 5
Thread: VB.net 2010 Gaia login.
- 31 Mar. 2012 08:25pm #1
Moderator Bachelor of Science in Virginity
- Age
- 31
- Join Date
- Nov. 2009
- Location
- Toronto
- Posts
- 5,421
- Reputation
- 546
- LCash (Rank 3)
- 1.96
VB.net 2010 Gaia login.
- 01 Apr. 2012 05:19pm #2
- 01 Apr. 2012 05:20pm #3
- 01 Apr. 2012 06:09pm #4
Moderator Bachelor of Science in Virginity
- Age
- 31
- Join Date
- Nov. 2009
- Location
- Toronto
- Posts
- 5,421
- Reputation
- 546
- LCash (Rank 3)
- 1.96
- 01 Apr. 2012 06:28pm #5