Jumping on the Spammer waggon.

sWell then, it's not like the MPGH vb section already has a ton of these things but hey, I was actually learning how to do visual styles!

Anyway to keep things under TLDR, here is XSpam (Name doesn't mean anything, just first thing in my head)

Theme base by aeonhack: Aeonhack Pastebin

Theme tutorial by EFmw2clan: /watch?v=gK56RANHfjA

Attachment removed for editing. Post tests uncovered an error.

Virus scans

Virus Total: Here
Jotti: Here

XSpam_mpgh.net.zip

Setting a small interval results in the stop button failing to work.

Also, if i set it low enough windows practically freezes.

Originally Posted by raow25

Setting a small interval results in the stop button failing to work.

Also, if i set it low enough windows practically freezes.

How so? I didn't have that happen during my tests. And the interval cant go lower than one.

Here is the control code.

Code:

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Icon = System.Drawing.SystemIcons.Error
        TextBox1.Text = "Your spam message here"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox2.Text) Then
            MsgBox("Please enter only numbers for spam interval.", vbInformation)
            TextBox2.Text = ""
        ElseIf IsNumeric(TextBox2.Text) Then
            Timer1.Interval = TextBox2.Text
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            Dim SAPI
            SAPI = CreateObject("SAPI.spvoice")
            SAPI.Speak("Spam will start in five seconds.")
            Threading.Thread.Sleep(5000)
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{Enter}")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        TextBox1.Enabled = True
        TextBox2.Enabled = True
    End Sub

    Private Sub Form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MessageBox.Show("Made by: Renamon Toast Crunch" & vbCrLf & vbCrLf & "Visit us at http://www.mpgh.net/")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
    End Sub
End Class

seconds vs. milliseconds. Your GUI says seconds, your code uses ms. Either multiply user-input by 1000 or let the user know it's in milliseconds.?

Also, it's strange how you call IsNumeric() twice in the same IF/ELSE clause...it's not needed/looks awkward.

Code:

        If Not IsNumeric(TextBox2.Text) Then
            MsgBox("Please enter only numbers for spam interval.", vbInformation)
            TextBox2.Text = ""
        ElseIf IsNumeric(TextBox2.Text) Then

"And the interval cant go lower than one." -- I think IsNumeric() is designed to handle floating-point numbers also? If you want to dis-allow floats, try using Int32.Parse(string, byref output), which returns a bool indicating if the string value can/can't (was/wasn't) be converted to integer type.

Originally Posted by abuckau907

Code:

        If Not IsNumeric(TextBox2.Text) Then
            MsgBox("Please enter only numbers for spam interval.", vbInformation)
            TextBox2.Text = ""
        ElseIf IsNumeric(TextBox2.Text) Then

And I think IsNumeric() is designed to handle floating-point numbers also? If you want to dis-allow that, try using Int32.Parse(string, byref output) maybe, which returns a bool indicating if the string value can/can't be converted to integer type.

Calling IsNumeric() twice, the first call is to determine is the field is empty or contains a string. The second call says if it does contain an int then do the rest of the code.

So its set up as if NOT IsNumeric() then msgbox else if IS IsNumeric() then code.

As for the M/S to S... I derped.

Originally Posted by Renamon Toast Crunch

It's still not needed / looks awkward...

Use an ELSE instead of ELSEIF ..

Code:

If Not IsNumeric(TextBox2.Text) Then
''user input was NOT numeric

Else
''user input was numeric

End if

edit: If you want to check for an empty textbox, check for TextBox.TextLength = 0
in .net 3.5 I think we have String.IsNullOrEmpty() and in .net 4.0 String.IsNullOrWhiteSpace()

/ Approved

Originally Posted by Hero

/ Approved

Um, I thought I had removed the attachment. I'm currently fixing some things with the code.

Jumping on the Spammer waggon.

Post a Reply

Similar Threads

Tags for this Thread