Neomail Spammer Source

[Aethean]

This was made around March (so its most likely outdated) Its not indented... have fun

Oooooooh and it was my first neopets program :P so no laughing :(

Option Explicit

Dim dpage As String
Dim lngsend As Long
Dim Rannum As Long

Public Function GetBetween(ByRef TextToParse As String, StartDelimiter As String, EndDelimiter As String) As String
    Dim lngStart As Long, lngend As Long
   
    lngStart = InStr(1, TextToParse, StartDelimiter)
    If lngStart Then
        lngStart = lngStart + Len(StartDelimiter)
        lngend = InStr(lngStart, TextToParse, EndDelimiter)
       
        If lngend Then
            GetBetween = Mid$(TextToParse, lngStart, lngend - lngStart)
        End If
    End If
End Function

Public Function StopAll()
tmrsingle.Enabled = False
tmrmass.Enabled = False
tmrsingle.Interval = 0
tmrmass.Interval = 0
cmdstartsingle.Enabled = True
cmdstartmass.Enabled = True
status.Panels(1).Text = "Idle..."
txtxmilli.Locked = False
txtymilli.Locked = False
txtsingleuser.Locked = False
txtsinglesubject.Locked = False
txtsinglemessage.Locked = False
txtmasssubject.Locked = False
txtmassmessage.Locked = False
End Function

Private Sub cmdlcear_Click()
lstlog.Clear
lstlog.AddItem "Spammed:"
End Sub

Private Sub cmdlogin_Click()
txtuser.Enabled = False
txtpass.Enabled = False
cmdlogin.Enabled = False
status.Panels(1).Text = "Logging In (1/3)"
dpage = wrapper.GetWrapper("http://www.neopets.com/loginpage.phtml", "http://www.neopets.com/")
status.Panels(1).Text = "Logging In (2/3)"
dpage = wrapper.PostWrapper("http://www.neopets.com/hi.phtml", "destination=/petcentral.phtml" & "&username=" & txtuser.Text, wrapper.LastPage)
status.Panels(1).Text = "Logging In (3/3)"
dpage = wrapper.PostWrapper("http://www.neopets.com/login.phtml?", "username=" & txtuser.Text & "&password=" & txtpass.Text & "&destination=/petcentral.phtml", "http://www.neopets.com/hi.phtml")
If InStrB(1, dpage, "badpassword") Then
status.Panels(1).Text = "Bad Password"
txtuser.Enabled = True
txtpass.Enabled = True
cmdlogin.Enabled = True
ElseIf InStrB(1, dpage, "petcentral") Then
status.Panels(1).Text = "Logged in!"
cmdlogin.Enabled = False
cmdstartsingle.Enabled = True
cmdstartmass.Enabled = True
cmdstopsingle.Enabled = True
cmdstopmass.Enabled = True
cmdlogout.Enabled = True
ElseIf InStrB(1, dpage, "FROZEN") Then
status.Panels(1).Text = "Frozen"
txtuser.Enabled = True
txtpass.Enabled = True
cmdlogin.Enabled = True
ElseIf InStrB(1, dpage, "Try again in") Then
status.Panels(1).Text = "Too many failed attempts"
Else
status.Panels(1).Text = "Unknown Error"
End If
End Sub

Private Sub cmdlogout_Click()
wrapper.ClearCookies
status.Panels(1).Text = "Logged Out!"
cmdlogin.Enabled = True
cmdlogout.Enabled = False
End Sub

Private Sub cmdstartmass_Click()
Rannum = rand(Val(txtxmilli.Text), Val(txtymilli.Text))
tmrmass.Enabled = True
tmrmass.Interval = Rannum
cmdstartmass.Enabled = False
cmdstartsingle.Enabled = False
txtxmilli.Locked = True
txtymilli.Locked = True
txtmasssubject.Locked = True
txtmassmessage.Locked = True
End Sub

Private Sub cmdstartsingle_Click()
Rannum = rand(Val(txtxmilli.Text), Val(txtymilli.Text))
tmrsingle.Enabled = True
tmrsingle.Interval = Rannum
cmdstartsingle.Enabled = False
cmdstartmass.Enabled = False
txtxmilli.Locked = True
txtymilli.Locked = True
txtsingleuser.Locked = True
txtsinglesubject.Locked = True
txtsinglemessage.Locked = True
End Sub

Private Sub cmdstopmass_Click()
StopAll
End Sub

Private Sub cmdstopsingle_Click()
StopAll
End Sub

Private Sub form_unload(cancel As Integer)
End
Unload Me
End Sub


Private Sub tmrmass_Timer()
Dim sendmail(0 To 3) As tData
Dim finding As String
Dim neopian As String
status.Panels(1).Text = "Getting Username..."
finding = wrapper.GetWrapper("http://www.neopets.com/island/tradingpost.phtml?type=browse&criteria=20", "http://www.neopets.com/island/tradingpost.phtml?type=browse")
neopian = GetBetween(finding, "autoform_abuse.phtml?abuse=report&offender=", "&reportType=trade&tradeLot")
txtmassuser.Text = neopian
lngsend = lngsend + 1
status.Panels(1).Text = "Setting Up Neomail..."
dpage = wrapper.GetWrapper("http://neopets.com/neomessages.phtml?type=send", "http://neopets.com/neomessages.phtml")
sendmail(0) = FormData("recipient", txtmassuser.Text)
sendmail(1) = FormData("subject", txtmasssubject.Text)
sendmail(2) = FormData("message_body", txtmassmessage.Text)
status.Panels(1).Text = "Sending..."
dpage = wrapper.PostWrapper("http://neopets.com/process_neomessages.phtml", tData2String(sendmail), "http://neopets.com/neomessages.phtml?type=send")
status.Panels(1).Text = "Sent"
status2.Panels(1).Text = "Neomails Sent: " & lngsend
lstlog.AddItem txtmassuser.Text
If InStrB(1, dpage, "have sent too many") Then
status.Panels(1).Text = "You have sent too many Neomails"
tmrmass.Enabled = False
tmrmass.Interval = 0
Exit Sub
End If
Rannum = rand(Val(txtxmilli.Text), Val(txtymilli.Text))
tmrmass.Interval = Rannum
End Sub

Private Sub tmrsingle_Timer()
Dim sendmail(0 To 3) As tData
lngsend = lngsend + 1
status.Panels(1).Text = "Setting Up Neomail..."
dpage = wrapper.GetWrapper("http://neopets.com/neomessages.phtml?type=send", "http://neopets.com/neomessages.phtml")
sendmail(0) = FormData("recipient", txtsingleuser.Text)
sendmail(1) = FormData("subject", txtsinglesubject.Text)
sendmail(2) = FormData("message_body", txtsinglemessage.Text)
status.Panels(1).Text = "Sending..."
dpage = wrapper.PostWrapper("http://neopets.com/process_neomessages.phtml", tData2String(sendmail), "http://neopets.com/neomessages.phtml?type=send")
status.Panels(1).Text = "Sent"
status2.Panels(1).Text = "Neomails Sent: " & lngsend
If InStrB(1, dpage, "person has <b>100</b> or more") Then
status.Panels(1).Text = "Inbox Reached, Stopping NeoMailer"
tmrsingle.Enabled = False
tmrsingle.Interval = 0
Exit Sub
End If
If InStr(dpage, "person has blocked you") Then
status.Panels(1).Text = "You Have Been Blocked By " & txtsingleuser.Text
tmrsingle.Enabled = False
tmrsingle.Interval = 0
Exit Sub
End If
If InStrB(1, dpage, "they are not your NeoFriend") Then
status.Panels(1).Text = "Only Neofriends can send this person Neomails"
tmrsingle.Enabled = False
tmrsingle.Interval = 0
Exit Sub
End If
If InStrB(1, dpage, "have sent too many") Then
status.Panels(1).Text = "You have sent too many Neomails"
tmrsingle.Enabled = False
tmrsingle.Interval = 0
Exit Sub
End If
If InStrB(1, dpage, "not received parental permission to") Then
status.Panels(1).Text = "Cant receive neomails due to age"
tmrsingle.Enabled = False
tmrsingle.Interval = 0
Exit Sub
End If
If InStrB(1, dpage, "trying to email yourself") Then
status.Panels(1).Text = "... Silly Goosey :P"
tmrsingle.Enabled = False
tmrsingle.Interval = 0
Exit Sub
End If
Rannum = rand(Val(txtxmilli.Text), Val(txtymilli.Text))
tmrsingle.Interval = Rannum
End Sub

Private Sub txtymilli_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc(9) Then KeyAscii = 0
End Sub


Private Sub txtxmilli_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc(9) Then KeyAscii = 0
End Sub

Haha, nice job. Atleast you're contributing ;]

+rep. Again..O_O

Please don't encourage spamming on the public forum. Moved to UG.

[Flame]

i got my version if wanted, not outdated

Emittttt.....Auto spamming is more than advertising a site. >__< It can be done to generaly just piss someone off o.o

[nox]

sloppy code + ugly visual basic syntax = sux

[Aethean]

Originally Posted by nox

sloppy code + ugly visual basic syntax = sux

Wow.. did you even read its my FIRST program.. im sure your first program (if you even made one) was perfectly indented, no errors with a beautiful layout.

and how is the code sloppy? the thing worked without any runtime errors..

[Flame]

dont worry about him he is some codex "cool guy" apparently

[gommle]

Nox is our own private forum troll

[Tr3v0r]

Aethan be nice, we all know Nox cant read properly! :(