[VB6] Carnage Avatar Grabber Source

[Carnage]

http://www.megaupload.com/?d=DELJ7YC1

It includes:

prjChameleon.ocx (Button file)
tabs.ocx (Tabs file)
Sleep Module
Stuff
HTTPWrapper (Goes on a web browser)
Project File
Form
Binary File
Compiled Program

This is just so that you can look at the source and learn from it. Here's the source code if you're too lazy to download the project files:

Private Sub cmdlogin_Click()
Dim strHTML As String
strHTML = w.PostWrapper("http://neopets.com/loginpage.phtml", "username=" & txtuser & "&destination=%2Fhi.phtml", "http://neopets.com/hi.phtml")
strHTML = w.PostWrapper("http://neopets.com/hi.phtml", "password=" & txtpassword & "&destination=%2Fpetcentral", "http://neopets.com/hi.phtml")
If InStr(1, strHTML, "badpassword") Then
MsgBox "Bad Password for account " & txtuser.Text
ElseIf InStr(1, strHTML, "This account has been") Then
MsgBox "The account " & txtuser.Text & " has been frozen"
ElseIf InStr(1, strHTML, "petcentral") Then
MsgBox "Logged in as " & txtuser.Text
End If
End Sub
Private Sub Form_Load()
Dim total As Integer
total = 0
lbltotal.Visible = False
End Sub

Private Sub grabavs_Click()
grabavs.Enabled = False 'Disables the grab button so it can't be clicked multiple times
lblgrab.Visible = True 'Shows the current avatar being grabbed label


lblgrab.Caption = "Grarrl - Darigan" 'Changes the currect avatar being grabbed caption
w.GetWrapper "www.neopets.com/search.phtml?selected_type=pet&string=Grelliersc", "http://www.neopets.com/" 'Goes to this link to grab the avatar
lstgrab.AddItem "" & lblgrab.Caption 'Adds the avatar to the list
lbltotal.Visible = False
total = total + 1 'Adds 1 to the avatar total


lblgrab.Caption = "Peophin - Faerie"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Hikarru", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Ruki - Desert"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Zzvar", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Tuskaninny - Relax"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Tarentegrala ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Ixi - Disco"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=Derpot", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Flotsam - Tough"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Jazzy_Kins", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Acara - Roberta of Brightvale"
w.GetWrapper "http://www.neopets.com/objects.phtml?type=shop&obj_type=78", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Quiggle - Mutant"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=santasmuffin ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Scorchio - Scordrax"
w.GetWrapper "http://www.neopets.com/tcg/album.phtml?edition=8&offset=36&owner=pinkcaddy", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Jubjub - Tyrannian"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Mr_friendly_ JUBJUB12", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Yurble - Forefitor"
w.GetWrapper "http://www.neopets.com/altador/hallofheroes.phtml?janitor=1", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Hissi - Ice"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=Trevathan", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Lupe - King Altador"
w.GetWrapper "http://www.neopets.com/altador/hallofheroes.phtml?view_statue_id=12", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Krawk - Island Fever"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Doobiezez", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Chomby - Colourful"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Urwissen", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Mynci - Halloween"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=SonOfWhyachi ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Tonu - Mutant"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Craftier", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Lenny - Mutant"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Lenniq", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Anubis"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Zephirak", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Elephante - To War"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Ellie_Peanut s_88", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Aisha - Disco"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=TartsRainbow ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Snuffly"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=x_forgetmeno t_x", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Bruce - Mutant"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=Pestilentia" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Usul - Royal Boy"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=RyanEdwardA" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Cyodrake"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Montymuse", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Faerie - Pteri"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=Jhaxx", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Korbat - Royal Boy"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Arrenius", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Jetsam - Bah!"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=%20pet&string=ultama_we pon76705", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Bori - Grumpy"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Fairy_wares" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Grarrl - Galem Darkhand"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=object&string=Galem%2BD arkhand", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Poogle - Pirate"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=HokiePokie05 ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Spardel"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Ranz_", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Meerca - Halloween"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=Meerca", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Scarabug"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=MipsyMemo", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Wocky - Camouflage"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=emily_78045" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Peophin - Purple"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=Pegasis13", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Ixi - Sophie the Swamp Witch"
w.GetWrapper "http://www.neopets.com/halloween/costumes.phtml", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Acara - Angry Prince"
w.GetWrapper "http://neopets.com/search.phtml?selected_type=pet&string=Art", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Kau - Starry"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Kauvara", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Baby Nimmo"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=masonpoopoo" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Quiggle - Cheesy Grin"
w.GetWrapper "http://www.neopets.com/browseshop.phtml?owner=nbnshoppe", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Yarrble!"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=yomikoza", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Moach"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=TakariFreak" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Moehog - Avast!"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Xyioz_Athos" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Zomutt"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Sadies181", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Niptor"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Tobha", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Clay - Ouch!"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Pistacoti", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Who Me?"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=xXxGabbersWa bbersxXx", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Captain Scarblade"
w.GetWrapper "http://www.neopets.com/art/misc/scarblade2.phtml", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Good or Bad?"
w.GetWrapper "http://www.neopets.com/water/plot_com.phtml?chapter=5", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Maraquan Chomby"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=MontyCharity ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "SlugaWOO!"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Jessana_176" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Spotted Gelert"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=SpottyGelert ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Raindorf"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=fatty_watty3 3", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Fiery Pteri"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Astro_febuar y", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "OHEMGEE!!!"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Webbian", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Not For Wreathale"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=HoneyLove768 9", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Bleh!!"
w.GetWrapper "http://www.neopets.com/bleh.phtml", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Colorful Korbat"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Korbath", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Mutant Draik - Back Off!"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Dragon", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Goldy"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Mangokicks", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Jeran - Hero"
w.GetWrapper "http://neopets.com/medieval/plot_bfm.phtml?current_day=7", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Ruki"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=X_Prey_manti s_X", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Kass Minion"
w.GetWrapper "http://www.neopets.com/evil/showcreature.phtml?pos=16", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Darigan Peophin"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=lugia_gs", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Baby Pteri - Cracked"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=^_^", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Faellie - It's Alive!"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Zen_Grundo", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Battle JubJub"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=BLUEBERRY_AB CDE", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Yurble"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=_Koushirou_" , "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Techo Master"
w.GetWrapper "http://www.neopets.com/island/training.phtml?type=wisdom", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Defenders of Neopia - Lupe"
w.GetWrapper "http://www.neopets.com/games/defenders.phtml?type=old", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Defenders of Neopia - Aisha"
w.GetWrapper "http://www.neopets.com/games/defenders.phtml", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Maraquan Krawk"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=PebbleWorm", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Grey Faerie"
w.GetWrapper "http://www.neopets.com/neopedia.phtml?neopedia_id=179", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Angelpuss - Angel"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=object&string=Angelpuss ", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Pirate! - Scorchio"
w.GetWrapper "http://www.neopets.com/pirates/academy.phtml?room=2149", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Pirate! - Shoyru"
w.GetWrapper "http://www.neopets.com/pirates/academy.phtml?room=15", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Pirate! - Aisha"
w.GetWrapper "http://www.neopets.com/pirates/academy.phtml?room=45", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Pirate! - Krawk"
w.GetWrapper "http://www.neopets.com/pirates/academy.phtml?room=2", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Grundo - Faerie"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=Meanums", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1

lblgrab.Caption = "Flotsam - Rainbow"
w.GetWrapper "http://www.neopets.com/search.phtml?selected_type=pet&string=matt_bellamy _", "http://www.neopets.com/"
lstgrab.AddItem "" & lblgrab.Caption
total = total + 1
lbltotal.Caption = "" & total 'Shows the total avs grabbed in the label

lbltotal.Visible = True 'Shows the total avatars grabbed label
grabavs.Enabled = True 'Re-enables the Grab Avatar button
MsgBox "Done grabbing avatars! You grabbed " & total & " avatars" 'Presents a message showing how many avatars were obtained
End Sub

Enjoy. Please give credits to me if you use my source.

[Connor]

Thankyou very much *goes to make it*

+rep!

EDIT: um, can you explain why it does this when i try to look at it?
error.
then it jumps into the code and highlights this

Winsock1.Close

[second2none]

Nice post + rep for helping people.

[rcadble]

It's OK, a nice thought for a contribution.

The login could be better, you might want to add an Else so the user isn't left hanging, and add the "pass_remind". One thing though, is you could just use a for loop and have all those pages on a list to save multiple lines.