Neopets Login Function VB6 1. Put this code in your form above form load and have in your form an httpwrapper called httpwrapper and a buton called cmdlogin Code (Visual Basic): <div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> bollogin <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> Login<span style="color: #66cc66;">(</span>Username <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, Password <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">strHTML = Httpwrapper.<span style="color: #66cc66;">Postwrapper</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://www.neopets.com/login.phtml"</span>, <span style="color: #ff0000;">"username="</span> & Username & <span style="color: #ff0000;">"&password="</span> & Password & <span style="color: #ff0000;">"&destination=%2Fpetcentral.phtml"</span>, <span style="color: #ff0000;">"http://www.neopets.com/hi.phtml"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHTML, <span style="color: #ff0000;">"badpassword"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">MsgBox</span> <span style="color: #ff0000;">"You entered an invalid username/password combination!"</span> & <span style="color: #b1b100;">vbNewLine</span> & <span style="color: #ff0000;">"Please try again."</span>, <span style="color: #b1b100;">vbCritical</span>, <span style="color: #ff0000;">"Login Failure"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">bollogin = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">ElseIf</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHTML, <span style="color: #ff0000;">"This account has been"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">MsgBox</span> <span style="color: #ff0000;">"ACCOUNT FROZEN!"</span> & <span style="color: #b1b100;">vbNewLine</span> & <span style="color: #ff0000;">"Please use another."</span>, <span style="color: #b1b100;">vbCritical</span>, <span style="color: #ff0000;">"Login Failure"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">bollogin = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">ElseIf</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHTML, <span style="color: #ff0000;">"too many times"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">MsgBox</span> <span style="color: #ff0000;">"You have tried to guess the password to many times in the last hour!"</span> & <span style="color: #b1b100;">vbNewLine</span> & <span style="color: #ff0000;">"Try again later."</span>, <span style="color: #b1b100;">vbCritical</span>, <span style="color: #ff0000;">"Login Failure"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">logintrue = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">ElseIf</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHTML, <span style="color: #ff0000;">"Error 404 : Missing Page Alert"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> logintrue = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> logintrue = <span style="color: #b1b100;">True</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li></ol></div> 2. To use do this Code (Visual Basic): <div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">private</span> <span style="color: #b1b100;">sub</span> cmdlogin_click <span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'makes the login button unclickable</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">cmdlogin.<span style="color: #66cc66;">enabled</span> = <span style="color: #b1b100;">false</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'You need to have a varible and an = sign beofre the function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">dim</span> strhi <span style="color: #b1b100;">as</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'login code</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">strhi = Login <span style="color: #66cc66;">(</span><span style="color: #808080;">'whatever the username is, 'whatever the password is, bollogin)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'checks if you have been logged in</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">If</span> bollogin = <span style="color: #b1b100;">true</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">msgbox</span> <span style="color: #ff0000;">"You Have Been Logged In"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">cmdlogin.<span style="color: #66cc66;">enabled</span> = <span style="color: #b1b100;">false</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'enable everything else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li></ol></div> You need to have somethin equal login. I will update this and see if I can fix that +rep appriciated if you use this
logs you into neopets. Saves you alot of time when you are logging in or out alot. I just made this today and didn't us it on my usab but I am probley going to add that to it. If you use this your program WILL go faster and 10x easier to code an look at. DO NOT POST HERE UNLESS YOU KNOW VB6