dose any one have the right code for the log in box ??????
and another question what file should i save it on ? im new to vb6 =)
ive been working on something for a while .
well really playing with vb6 =)
dose any one have the right code for the log in box ??????
and another question what file should i save it on ? im new to vb6 =)
ive been working on something for a while .
well really playing with vb6 =)
@(you need an account to see links) nope i mean saving the file incase i have to work on it later i have it ;; & A regular log in box =)
Well you just hit file>Save then save it in a folder you will remember, and when you want to work on it again just double click it.
As for a log in box... you make your own.... here I will post back in one minute.. I will show you in video.
thank you so much for your help @(you need an account to see links) =)
Sorry its taking so long, uploading takes forever.
What are you trying to login to? Neopets?
Well here is the video. It will help with web debugging too.
And if you just want the raw code...
Code:Dim strhtml As String strhtml = Wrapper1.GetWrapper("http://www.neopets.com/") If InStr(strhtml, "<a href=""/logout.phtm""><b>Logout</b></a>") Then strhtml = Wrapper1.GetWrapper("http://www.neopets.com/logout.phtml") End If strhtml = Wrapper1.GetWrapper("http://www.neopets.com/login/") strhtml = Wrapper1.PostWrapper("http://www.neopets.com/login.phtml", "destination=&username=" & user & "&password=" & pass, "http://www.neopets.com/login/") If InStr(1, strhtml, "badpassword") Then msgbox "Bad Password Or Username, Try Again" ElseIf (InStr(strhtml, "<span style='color: #ff0000; font-weight: bold;'>If you DID break the rules, please do not contact us again.</span>")) Then msgbox "Brrrr... This account is FROZEN." ElseIf InStr(1, strhtml, "index") Then msgbox "You succesfully logged in as " & user.Text & ". Have fun cheating!" strhtml = Wrapper1.GetWrapper("http://www.neopets.com/index.phtml") Else msgbox "You Might Be Frozen :( Or There Is An Unknown Error D:" End If
Last edited by Ashleys165; 03-11-2012 at 06:21 PM.
Thanks @(you need an account to see links) @(you need an account to see links) ash beat you too it lol =]