[VB6] Neomail spammer

Code (Text):

1. Private Sub Command2_Click()
2.         status.Caption = "Spamming"
3.         For X = 0 To lstusers.ListCount - 1
4.                 strhtml = w.PostWrapper("http://www.neopets.com/process_neomessages.phtml", "recipient=" & lstusers.List(X) & "&neofriends=&subject=" & txtsubject.Text & "&message_type=notitle&message_body=" & txtmessage.Text, "http://www.neopets.com/neomessages.phtml?type=send")
5.                 If InStr(strhtml, "Sorry, you have sent too many Neomails and our") Then
6.                         MsgBox "Sent max ammount of neomails."
7.                         Exit For
8.                 End If
9.                 log1.AddItem "Neomailed " & lstusers.List(X)
10.                 SecondsToWait (txtwait.Text)
11.         Next X
12.  
13.         status.Caption = "Done"
14. End Sub
15.  
16. Private Sub grabusers_click()
17.         For X = 0 To lstboards.ListCount - 1
18.                 If lstusers.ListCount > txtgrab.Text Then
19.                         lblstatus.Caption = "Done Grabbing."
20.                         Exit For
21.                 Else
22.                         strhtml = w.GetWrapper("http://www.neopets.com/neoboards/boardlist.phtml?board=21")
23.                         GBA strhtml, "/randomfriend.phtml?user=", "" & ChrW$(34) & " class=", lstusers
24.                 End If
25.         Next X
26. End Sub

 

Thanks for this, definitely going to change this around a bit and make a different program.