well i studied mystical's wrapper for a bit but i need some help can someone tell me what the code is to login to neo if the gui looks like this +rep for whoever gives me the code and remember this is vb.net and NOT vb6 (otherwise i would have used the_skip's code)
In the wrapper there is a NeoLogin function, to use it write this code: Code (Text): Dim bLoggedIn As Boolean Wrapper.NeoLogin(txtUsername.Text, txtPassword.Text, bLoggedIn) If bLoggedIn = True Then MsgBox "Logged In!!!" Change txtUsername and txtPassword to whatever you want!!!
ok i still don't really understand ricky can you post the whole code which would be used (even the bits out of mystical's code)
ok, in a topic there is the new TCPWrapper by Mystical. The function you can use is this: Code (Text): Public Function NeoLogin(ByVal user As String, ByVal pass As String, ByRef loggedIn As Boolean) As String ClearCookies() Dim strHTML As String = Nothing Request("GET", "http://Filtered Link - For the safety of our users please do not post direct links to Neopets./loginpage.phtml", "http://google.com") Pause(1) Request("POST", "http://www.Filtered Link - For the safety of our users please do not post direct links to Neopets./hi.phtml?destination=%2Fpetcentral.phtml&username=" + user, "http://Filtered Link - For the safety of our users please do not post direct links to Neopets./loginpage.phtml") Pause(1) Request("POST", "http://www.Filtered Link - For the safety of our users please do not post direct links to Neopets./login.phtml?username=" + user + "&password=" + pass + "&destination=%2Fpetcentral.phtml", "http://Filtered Link - For the safety of our users please do not post direct links to Neopets./hi.phtml") strHTML = Request("GET", "http://www.Filtered Link - For the safety of our users please do not post direct links to Neopets./objects.phtml", "http://www.Filtered Link - For the safety of our users please do not post direct links to Neopets./petcentral.phtml") If strHTML.Contains("Welcome,") Then loggedIn = True Return "Logged In" Else If strHTML.Contains("too many times") Then loggedIn = False Return "To Many Login Attempts" Else If strHTML.Contains("not logged in") Then loggedIn = False Return "Wrong Password" Else If strHTML.Contains("frozen") Then loggedIn = False Return "Account Frozen" Else If strHTML.Contains("just a technical problem") Then loggedIn = False Return "Neopets is down for maintenance." Else loggedIn = False Return strHTML End If End If End If End If End If End Function But it's already in the wrapper's code, so you just need to call it. What's the name of the wrapper? If it's TCPWrapper, then you can use this code (with the textboxes called txtUsername and txtPassword): Code (Text): Dim bLogin As Boolean TCPWrapper.NeoLogin(txtUsername.Text, txtPassword.Text, bLogin) If bLogin = True Then MsgBox("Logged in!!!") 'code here End If What it does is just posting the login link. If the login is successful, the bLogin value will be "True", if not, it will be "False". PS: Remember to change all the filtered links in the wrapper code, or it won't work!!!
i have this Code (Text): Public Class Form1 Public Function NeoLogin(ByVal user As String, ByVal pass As String, ByRef loggedIn As Boolean) As String ClearCookies() Dim strHTML As String = Nothing Request("GET", "http://www.Neopets./loginpage.phtml", "http://google.com") Pause(1) Request("POST", "http://www.www.Neopets./hi.phtml?destination=%2Fpetcentral.phtml&username=" + user, "http://www.Neopets./loginpage.phtml") Pause(1) Request("POST", "http://www.Neopets./login.phtml?username=" + user + "&password=" + pass + "&destination=%2Fpetcentral.phtml", "http://www.Neopets./hi.phtml") strHTML = Request("GET", "http://www.Neopets./objects.phtml", "http://www.www.Neopets./petcentral.phtml") If strHTML.Contains("Welcome,") Then loggedIn = True Return "Logged In" Else If strHTML.Contains("too many times") Then loggedIn = False Return "To Many Login Attempts" Else If strHTML.Contains("not logged in") Then loggedIn = False Return "Wrong Password" Else If strHTML.Contains("frozen") Then loggedIn = False Return "Account Frozen" Else If strHTML.Contains("just a technical problem") Then loggedIn = False Return "Neopets is down for maintenance." Else loggedIn = False Return strHTML End If End If End If End If End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim bLoggedIn As Boolean Dim txtusername As String Dim txtPassword As String txtusername = TextBox1.Text txtPassword = TextBox2.Text Wrapper.NeoLogin(txtusername, txtPassword, bLoggedIn) If bLoggedIn = True Then MsgBox("Logged In!!!") End Sub End Class but in the debug box it says this, where should i declair them?
No, you don't need to create a new class, just use the wrapper code you can find here The NeoLogin function is already there.
sorry i forgot to ask but that is the basic idea two textboxxes and a login button if you mind i will remove...?