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