[vb6] Neopets Accout Creator + Activator

[second2none]

Dim NeoUser As String, strCode As String, strURL As String, strHTML As String,  strPass As String
Dim I As Integer


For I = 0 To lst1.ListCount - 1
strPass = wrapper2.Rand(1999, 10000) & "GetLow"
wrapper2.ClearCookies
NeoUser = lst1.List(I) & "_" & lst2.List(I)

   strHTML = wrapper2.GetWrapper("http://neopets.com/reg/index.phtml", "http://neopets.com/loginpage.phtml")
   strHTML = wrapper2.PostWrapper("http://neopets.com/reg/process_index.phtml", "username=" & NeoUser & "&password1=" & strPass & "&password2=" & strPass & "&terms=1", wrapper2.LastPage)
   strHTML = wrapper2.GetWrapper("http://neopets.com/reg/page2.phtml", "http://neopets.com/reg/index.phtml")
   strHTML = wrapper2.PostWrapper("http://neopets.com/reg/process_page2.phtml", "nickname=" & NeoUser & "&gender=M&dob_y=1989&dob_m=11&dob_d=29&country=US&us_state=CA&city=Sacramento&zip=95838", "http://neopets.com/reg/page2.phtml")
   strHTML = wrapper2.GetWrapper("http://neopets.com/reg/page3.phtml", "http://neopets.com/reg/page2.phtml")
   strHTML = wrapper2.PostWrapper("http://neopets.com/reg/process_page3.phtml", "email_a=" & NeoUser & "@pourri.fr&email_b=" & NeoUser & "@pourri.fr&r=111", "http://neopets.com/reg/page3.phtml")
   
   lstLog.AddItem "Account Created"
Email:
strHTML = wrapper2.GetWrapper("http://pourri.fr/inbox?mbox=" & NeoUser & "&Inbox=Check+this+inbox")
If InStr(1, strHTML, "Neopets") Then
strURL = wrapper2.GetStringBetween(strHTML, "<div class=" & ChrW$(34) & "msgfrom" & ChrW$(34) & "><a href=" & ChrW$(34), ChrW$(34))
strHTML = wrapper2.GetWrapper("http://pourri.fr/" & strURL)
strCode = wrapper2.GetStringBetween(strHTML, "Activation code: ", " (tak")
strHTML = wrapper2.GetWrapper("http://www.neopets.com/activate.phtml?code=" & strCode)
lstUser.AddItem NeoUser & ":" & strPass
Else: GoTo Email
End If
Next I

EMail service should work. You can either have 2 Lists, or you can change the code
NeoUser = lst1.List(I) & "_" & lst2.List(I)

and just have it pull 2 random values from 1 list.

[lil]

Nice. Sad thing is, I am making a shitload of accounts with lutaris. Bad thing, I don't know if regular users are going to be able to use or if they have to send "parental consent."

But, this is nice if you want to get accounts to let age and sell. *Bookmarked*

[second2none]

well if they are over the age of 13? then they shouldn't have to.

[lil]

I registered two names already with a birthdate similar to my mother's and they're asking for "consent."

[leptoon]

What wrapper do you use?