[vb6] auto neomailer

[Violent_J]

Dim HTML As String
Dim StopProgram As Boolean
Dim RDMnum As Integer
Dim i As Long

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Private Sub cmdclear_Click()
    lstaccounts.Clear
End Sub




Private Sub cmdclearlog_Click()
    lstlog.Clear
End Sub

Private Sub cmdLoad_Click()
Dim strFile As String
strFile = Functions.SelectFileToLoad(CD)
    If Len(strFile) > 1 Then
        Call Functions.TextFileToList(strFile, lstaccounts)
Else
    MsgBox "Please select a file to load!", vbInformation, "Load List Failure"
    End If
End Sub



Private Sub cmdstop_Click()
    cmdstop.Enabled = False
    cmdstart.Enabled = True
    lblstatus.Caption = "Program Stoppped!"
    lstlog.AddItem Time & ": Program Stopped!"
    StopProgram = True
End Sub

Private Sub Form_Initialize()
    Call InitCommonControls
End Sub

Public Function rand(ByVal Min As Double, _
        ByVal Max As Double) As Double
    Dim r As Double
    If Not bolAfterFirstCall Then
        Randomize
        bolAfterFirstCall = True
    End If
    rand = Int(Rnd * (Max - Min + 1)) + Min
End Function

Private Sub cmdstart_Click()
    StopProgram = False
    cmdstart.Enabled = False
    cmdstop.Enabled = True
    lblstatus.Caption = "Program Started!"
    lstlog.AddItem Time & ": Program Started!"
    Do Until cmdstop.Enabled = False Or lstaccounts.ListCount = 0 Or StopProgram = True
     RDMnum = rand(0, lstaccounts.ListCount - 1)
    account = lstaccounts.List(RDMnum)
    HTML = w.PostWrapper("http://www.neopets.com/process_neomessages.phtml", "recipient=" & account & "&**********=&subject=" & txtsubject.Text & "&message_type=notitle&message_body=" & txtmessage.Text, "http://www.neopets.com/neomessages.phtml?type=send")
    lstaccounts.RemoveItem (RDMnum)
        If InStr(1, HTML, "Inbox") Then
            lstlog.AddItem Time & ": Successfully sent message to " & account, 0
        ElseIf InStr(1, HTML, "Sorry, but it looks like your message is too long.") Then
    StopProgram = True
    lstlog.AddItem Time & ": Message is too long!", 0
    lstlog.AddItem Time & ": Program Stopped!", 0
    lblstatus.Caption = "Program Stopped!"
        ElseIf InStr(1, HTML, "Sorry, but only links to Neopets.com") Then
    StopProgram = True
    lblstatus.Caption = "Idle..."
    cmdstart.Enabled = True
    cmdstop.Enabled = True
        ElseIf InStr(1, HTML, "The person that you are trying to send to does not exist in Neopia") Then
    lstlog.AddItem Time & ": User  " & account & " does not exist", 0
        ElseIf InStr(1, HTML, "Do not send messages containing profanity") Then
    StopProgram = True
    lstlog.AddItem Time & ": Message not allowed by TNT!", 0
    lstlog.AddItem Time & ": Program stopped!", 0
    lblstatus.Caption = "Program stopped!"
        ElseIf InStr(1, HTML, "12 hours") Then
    lblstatus.Caption = "Program Stopped!"
    lstlog.AddItem Time & ": Accound needs to be 12 hours old", 0
    StopProgram = True
    cmdstart.Enabled = False
    cmdstop.Enabled = True
        ElseIf InStr(1, HTML, "Sorry but we sense the use of an autobot on this account and can no long allow you to continue") Then
    lstlog.AddItem Time & ": This account has been neomail banned! Probably sending too fast", 0
    StopProgram = True
    lblstatus.Caption = "Program Stopped!"
    cmdstart.Enabled = False
    cmdstop.Enabled = True
        ElseIf InStr(1, HTML, "Sorry, you have sent too many Neomails and our monitors need to evaluate the situation.  Feel free to try again tomorrow.") Then
    StopProgram = True
    lstlog.AddItem Time & ": This account has been neomail banned!", 0
    lblstatus.Caption = "Program Stopped!"
    cmdstart.Enabled = False
    cmdstop.Enabled = True
        ElseIf InStr(1, HTML, "This user is frozen and cannot read or respond to NeoMails!") Then
    lstlog.AddItem Time & ": " & account & " is frozen!", 0
    Else
    lstlog.AddItem Time & ": Unable to send mail to " & account & ".", 0

        End If
        SleepModule.SecondsToWait (txtwait)
        If StopProgram = True Then i = lstaccounts.ListCount
            Loop
            Beep
            cmdstop.Enabled = False
            cmdstart.Enabled = True
            lblstatus.Caption = "Idle..."
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim frmTemp As Form
For Each frmTemp In Forms
Unload frmTemp
Set frmTemp = Nothing
Next
End
End Sub

[Jeffgordon24365]

Thanks!