Code:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Me.Label1 = New System.Windows.Forms.Label Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label2 = New System.Windows.Forms.Label Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.Timer1 = New System.Windows.Forms.Timer(Me.components) CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(13, 13) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(53, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "Message:" ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(16, 32) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(254, 162) Me.TextBox1.TabIndex = 1 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(13, 203) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(41, 13) Me.Label2.TabIndex = 2 Me.Label2.Text = "Speed:" ' 'NumericUpDown1 ' Me.NumericUpDown1.Location = New System.Drawing.Point(64, 201) Me.NumericUpDown1.Name = "NumericUpDown1" Me.NumericUpDown1.Size = New System.Drawing.Size(120, 20) Me.NumericUpDown1.TabIndex = 3 ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(64, 231) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 23) Me.Button1.TabIndex = 4 Me.Button1.Text = "Start" Me.Button1.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.Location = New System.Drawing.Point(145, 231) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(75, 23) Me.Button2.TabIndex = 5 Me.Button2.Text = "Stop" Me.Button2.UseVisualStyleBackColor = True ' 'Timer1 ' ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.NumericUpDown1) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Label1) Me.MaximizeBox = False Me.Name = "Form1" Me.Text = "Spammer" Me.TopMost = True CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Timer1 As System.Windows.Forms.Timer End Class
Code:
Public Class Form1 Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged NumericUpDown1.Maximum = 9999999999999999 ' Sets the limit Timer1.Interval = NumericUpDown1.Value ' Sets the timer interval as the value on the NumericUpDown End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True ' Starts the timer when button is clicked End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False ' Stops the timer when the button is clicked End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick SendKeys.Send(TextBox1.Text & "{enter}") ' Gets the text found on Textbox1 and spams it followed by a "{enter}" End Sub End Class
Virustotal: --> 0|42
Download: