Super spambot v1

		private void Timer1_Tick(object sender, EventArgs e)
		{
			SendKeys.Send(this.TextBox1.Text);
			SendKeys.Send("{ENTER}");
		}

Imports Cycrux_Spammer.My
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
Imports System.Threading
Imports System.Windows.Forms

Namespace Cycrux_Spammer
	<DesignerGenerated()>
	Public Class Form1
		Inherits Form

		Private Shared __ENCList As List(Of WeakReference) = New List(Of WeakReference)()

		Private components As IContainer

		<AccessedThroughProperty("Button1")>
		Private _Button1 As Button

		<AccessedThroughProperty("Button2")>
		Private _Button2 As Button

		<AccessedThroughProperty("GroupBox1")>
		Private _GroupBox1 As GroupBox

		<AccessedThroughProperty("Timer1")>
		Private _Timer1 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Button3")>
		Private _Button3 As Button

		<AccessedThroughProperty("TextBox1")>
		Private _TextBox1 As TextBox

		<AccessedThroughProperty("Label1")>
		Private _Label1 As Label

		<AccessedThroughProperty("Button4")>
		Private _Button4 As Button

		<AccessedThroughProperty("Label2")>
		Private _Label2 As Label

		<AccessedThroughProperty("Label3")>
		Private _Label3 As Label

		<AccessedThroughProperty("Timer2")>
		Private _Timer2 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Button5")>
		Private _Button5 As Button

		<AccessedThroughProperty("Button6")>
		Private _Button6 As Button

		<AccessedThroughProperty("NumericUpDown1")>
		Private _NumericUpDown1 As NumericUpDown

		<AccessedThroughProperty("Label4")>
		Private _Label4 As Label

		<AccessedThroughProperty("Label5")>
		Private _Label5 As Label

		<AccessedThroughProperty("Timer3")>
		Private _Timer3 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Timer4")>
		Private _Timer4 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Timer5")>
		Private _Timer5 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Button7")>
		Private _Button7 As Button

		<AccessedThroughProperty("Label7")>
		Private _Label7 As Label

		<AccessedThroughProperty("Label6")>
		Private _Label6 As Label

		<AccessedThroughProperty("Timer6")>
		Private _Timer6 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Timer7")>
		Private _Timer7 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Timer8")>
		Private _Timer8 As System.Windows.Forms.Timer

		<AccessedThroughProperty("Timer9")>
		Private _Timer9 As System.Windows.Forms.Timer

		<AccessedThroughProperty("CheckBox1")>
		Private _CheckBox1 As CheckBox

		Friend Overridable Property Button1() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = New EventHandler(Me.Button1_Click)
				Dim flag As Boolean = Me._Button1 IsNot Nothing
				If flag Then
					Me._Button1.Click -= value2
				End If
				Me._Button1 = value
				flag = (Me._Button1 IsNot Nothing)
				If flag Then
					Me._Button1.Click += value2
				End If
			End Set
		End Property

		Friend Overridable Property Button2() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button2
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = New EventHandler(Me.Button2_Click)
				Dim flag As Boolean = Me._Button2 IsNot Nothing
				If flag Then
					Me._Button2.Click -= value2
				End If
				Me._Button2 = value
				flag = (Me._Button2 IsNot Nothing)
				If flag Then
					Me._Button2.Click += value2
				End If
			End Set
		End Property

		Friend Overridable Property GroupBox1() As GroupBox
			<DebuggerNonUserCode()>
			Get
				Return Me._GroupBox1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As GroupBox)
				Me._GroupBox1 = value
			End Set
		End Property

		Friend Overridable Property Timer1() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer1_Tick)
				Dim flag As Boolean = Me._Timer1 IsNot Nothing
				If flag Then
					Me._Timer1.Tick -= value2
				End If
				Me._Timer1 = value
				flag = (Me._Timer1 IsNot Nothing)
				If flag Then
					Me._Timer1.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Button3() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button3
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = New EventHandler(Me.Button3_Click)
				Dim flag As Boolean = Me._Button3 IsNot Nothing
				If flag Then
					Me._Button3.Click -= value2
				End If
				Me._Button3 = value
				flag = (Me._Button3 IsNot Nothing)
				If flag Then
					Me._Button3.Click += value2
				End If
			End Set
		End Property

		Friend Overridable Property TextBox1() As TextBox
			<DebuggerNonUserCode()>
			Get
				Return Me._TextBox1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As TextBox)
				Me._TextBox1 = value
			End Set
		End Property

		Friend Overridable Property Label1() As Label
			<DebuggerNonUserCode()>
			Get
				Return Me._Label1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Label)
				Me._Label1 = value
			End Set
		End Property

		Friend Overridable Property Button4() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button4
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = New EventHandler(Me.Button4_Click)
				Dim flag As Boolean = Me._Button4 IsNot Nothing
				If flag Then
					Me._Button4.Click -= value2
				End If
				Me._Button4 = value
				flag = (Me._Button4 IsNot Nothing)
				If flag Then
					Me._Button4.Click += value2
				End If
			End Set
		End Property

		Friend Overridable Property Label2() As Label
			<DebuggerNonUserCode()>
			Get
				Return Me._Label2
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Label)
				Me._Label2 = value
			End Set
		End Property

		Friend Overridable Property Label3() As Label
			<DebuggerNonUserCode()>
			Get
				Return Me._Label3
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Label)
				Me._Label3 = value
			End Set
		End Property

		Friend Overridable Property Timer2() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer2
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer2_Tick)
				Dim flag As Boolean = Me._Timer2 IsNot Nothing
				If flag Then
					Me._Timer2.Tick -= value2
				End If
				Me._Timer2 = value
				flag = (Me._Timer2 IsNot Nothing)
				If flag Then
					Me._Timer2.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Button5() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button5
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = New EventHandler(Me.Button5_Click)
				Dim flag As Boolean = Me._Button5 IsNot Nothing
				If flag Then
					Me._Button5.Click -= value2
				End If
				Me._Button5 = value
				flag = (Me._Button5 IsNot Nothing)
				If flag Then
					Me._Button5.Click += value2
				End If
			End Set
		End Property

		Friend Overridable Property Button6() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button6
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = New EventHandler(Me.Button6_Click)
				Dim flag As Boolean = Me._Button6 IsNot Nothing
				If flag Then
					Me._Button6.Click -= value2
				End If
				Me._Button6 = value
				flag = (Me._Button6 IsNot Nothing)
				If flag Then
					Me._Button6.Click += value2
				End If
			End Set
		End Property

		Friend Overridable Property NumericUpDown1() As NumericUpDown
			<DebuggerNonUserCode()>
			Get
				Return Me._NumericUpDown1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As NumericUpDown)
				Dim value2 As EventHandler = New EventHandler(Me.NumericUpDown1_ValueChanged)
				Dim flag As Boolean = Me._NumericUpDown1 IsNot Nothing
				If flag Then
					Me._NumericUpDown1.ValueChanged -= value2
				End If
				Me._NumericUpDown1 = value
				flag = (Me._NumericUpDown1 IsNot Nothing)
				If flag Then
					Me._NumericUpDown1.ValueChanged += value2
				End If
			End Set
		End Property

		Friend Overridable Property Label4() As Label
			<DebuggerNonUserCode()>
			Get
				Return Me._Label4
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Label)
				Me._Label4 = value
			End Set
		End Property

		Friend Overridable Property Label5() As Label
			<DebuggerNonUserCode()>
			Get
				Return Me._Label5
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Label)
				Me._Label5 = value
			End Set
		End Property

		Friend Overridable Property Timer3() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer3
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer3_Tick)
				Dim flag As Boolean = Me._Timer3 IsNot Nothing
				If flag Then
					Me._Timer3.Tick -= value2
				End If
				Me._Timer3 = value
				flag = (Me._Timer3 IsNot Nothing)
				If flag Then
					Me._Timer3.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Timer4() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer4
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer4_Tick)
				Dim flag As Boolean = Me._Timer4 IsNot Nothing
				If flag Then
					Me._Timer4.Tick -= value2
				End If
				Me._Timer4 = value
				flag = (Me._Timer4 IsNot Nothing)
				If flag Then
					Me._Timer4.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Timer5() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer5
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer5_Tick_1)
				Dim flag As Boolean = Me._Timer5 IsNot Nothing
				If flag Then
					Me._Timer5.Tick -= value2
				End If
				Me._Timer5 = value
				flag = (Me._Timer5 IsNot Nothing)
				If flag Then
					Me._Timer5.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Button7() As Button
			<DebuggerNonUserCode()>
			Get
				Return Me._Button7
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Button)
				Dim value2 As EventHandler = New EventHandler(Me.Button7_Click)
				Dim flag As Boolean = Me._Button7 IsNot Nothing
				If flag Then
					Me._Button7.Click -= value2
				End If
				Me._Button7 = value
				flag = (Me._Button7 IsNot Nothing)
				If flag Then
					Me._Button7.Click += value2
				End If
			End Set
		End Property

		Friend Overridable Property Label7() As Label
			<DebuggerNonUserCode()>
			Get
				Return Me._Label7
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Label)
				Me._Label7 = value
			End Set
		End Property

		Friend Overridable Property Label6() As Label
			<DebuggerNonUserCode()>
			Get
				Return Me._Label6
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As Label)
				Me._Label6 = value
			End Set
		End Property

		Friend Overridable Property Timer6() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer6
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer6_Tick)
				Dim flag As Boolean = Me._Timer6 IsNot Nothing
				If flag Then
					Me._Timer6.Tick -= value2
				End If
				Me._Timer6 = value
				flag = (Me._Timer6 IsNot Nothing)
				If flag Then
					Me._Timer6.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Timer7() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer7
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer7_Tick)
				Dim flag As Boolean = Me._Timer7 IsNot Nothing
				If flag Then
					Me._Timer7.Tick -= value2
				End If
				Me._Timer7 = value
				flag = (Me._Timer7 IsNot Nothing)
				If flag Then
					Me._Timer7.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Timer8() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer8
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer8_Tick)
				Dim flag As Boolean = Me._Timer8 IsNot Nothing
				If flag Then
					Me._Timer8.Tick -= value2
				End If
				Me._Timer8 = value
				flag = (Me._Timer8 IsNot Nothing)
				If flag Then
					Me._Timer8.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property Timer9() As System.Windows.Forms.Timer
			<DebuggerNonUserCode()>
			Get
				Return Me._Timer9
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As System.Windows.Forms.Timer)
				Dim value2 As EventHandler = New EventHandler(Me.Timer9_Tick)
				Dim flag As Boolean = Me._Timer9 IsNot Nothing
				If flag Then
					Me._Timer9.Tick -= value2
				End If
				Me._Timer9 = value
				flag = (Me._Timer9 IsNot Nothing)
				If flag Then
					Me._Timer9.Tick += value2
				End If
			End Set
		End Property

		Friend Overridable Property CheckBox1() As CheckBox
			<DebuggerNonUserCode()>
			Get
				Return Me._CheckBox1
			End Get
			<DebuggerNonUserCode()>
			<MethodImpl(MethodImplOptions.Synchronized)>
			Set(value As CheckBox)
				Dim value2 As EventHandler = New EventHandler(Me.CheckBox1_CheckedChanged_1)
				Dim flag As Boolean = Me._CheckBox1 IsNot Nothing
				If flag Then
					Me._CheckBox1.CheckedChanged -= value2
				End If
				Me._CheckBox1 = value
				flag = (Me._CheckBox1 IsNot Nothing)
				If flag Then
					Me._CheckBox1.CheckedChanged += value2
				End If
			End Set
		End Property

		<DebuggerNonUserCode()>
		Public Sub New()
			MyBase.Load += New EventHandler(Me.Form1_Load)
			Form1.__ENCAddToList(Me)
			Me.InitializeComponent()
		End Sub

		<DebuggerNonUserCode()>
		Private Shared Sub __ENCAddToList(value As Object)
			Dim _ENCList As List(Of WeakReference) = Form1.__ENCList
			Dim flag As Boolean = False
			' The following expression was wrapped in a checked-statement
			Try
				Monitor.Enter(_ENCList, flag)
				Dim flag2 As Boolean = Form1.__ENCLis*****unt = Form1.__ENCList.Capacity
				If flag2 Then
					Dim num As Integer = 0
					Dim arg_44_0 As Integer = 0
					Dim num2 As Integer = Form1.__ENCLis*****unt - 1
					Dim num3 As Integer = arg_44_0
					While True
						Dim arg_95_0 As Integer = num3
						Dim num4 As Integer = num2
						If arg_95_0 > num4 Then
							Exit While
						End If
						Dim weakReference As WeakReference = Form1.__ENCList(num3)
						flag2 = weakReference.IsAlive
						If flag2 Then
							Dim flag3 As Boolean = num3 <> num
							If flag3 Then
								Form1.__ENCList(num) = Form1.__ENCList(num3)
							End If
							num += 1
						End If
						num3 += 1
					End While
					Form1.__ENCList.RemoveRange(num, Form1.__ENCLis*****unt - num)
					Form1.__ENCList.Capacity = Form1.__ENCLis*****unt
				End If
				Form1.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
			Finally
				Dim flag3 As Boolean = flag
				If flag3 Then
					Monitor.[Exit](_ENCList)
				End If
			End Try
		End Sub

		<DebuggerNonUserCode()>
		Protected Overrides Sub Dispose(disposing As Boolean)
			Try
				Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing
				If flag Then
					Me.components.Dispose()
				End If
			Finally
				MyBase.Dispose(disposing)
			End Try
		End Sub

		<DebuggerStepThrough()>
		Private Sub InitializeComponent()
			Me.components = New Container()
			Me.Button1 = New Button()
			Me.Button2 = New Button()
			Me.GroupBox1 = New GroupBox()
			Me.Label7 = New Label()
			Me.Label6 = New Label()
			Me.Button5 = New Button()
			Me.Label2 = New Label()
			Me.Label3 = New Label()
			Me.Button4 = New Button()
			Me.TextBox1 = New TextBox()
			Me.Label1 = New Label()
			Me.Button3 = New Button()
			Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
			Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
			Me.Button6 = New Button()
			Me.NumericUpDown1 = New NumericUpDown()
			Me.Label4 = New Label()
			Me.Label5 = New Label()
			Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
			Me.Timer4 = New System.Windows.Forms.Timer(Me.components)
			Me.Timer5 = New System.Windows.Forms.Timer(Me.components)
			Me.Button7 = New Button()
			Me.Timer6 = New System.Windows.Forms.Timer(Me.components)
			Me.Timer7 = New System.Windows.Forms.Timer(Me.components)
			Me.Timer8 = New System.Windows.Forms.Timer(Me.components)
			Me.Timer9 = New System.Windows.Forms.Timer(Me.components)
			Me.CheckBox1 = New CheckBox()
			Me.GroupBox1.SuspendLayout()
			(CType(Me.NumericUpDown1, ISupportInitialize)).BeginInit()
			Me.SuspendLayout()
			Dim arg_1B8_0 As Control = Me.Button1
			Dim location As Point = New Point(12, 118)
			arg_1B8_0.Location = location
			Me.Button1.Name = "Button1"
			Dim arg_1E2_0 As Control = Me.Button1
			Dim size As Size = New Size(75, 23)
			arg_1E2_0.Size = size
			Me.Button1.TabIndex = 0
			Me.Button1.Text = "Start [F2]"
			Me.Button1.UseVisualStyleBackColor = True
			Dim arg_229_0 As Control = Me.Button2
			location = New Point(256, 118)
			arg_229_0.Location = location
			Me.Button2.Name = "Button2"
			Dim arg_253_0 As Control = Me.Button2
			size = New Size(75, 23)
			arg_253_0.Size = size
			Me.Button2.TabIndex = 1
			Me.Button2.Text = "Stop [F3]"
			Me.Button2.UseVisualStyleBackColor = True
			Me.GroupBox1.Controls.Add(Me.Label7)
			Me.GroupBox1.Controls.Add(Me.Label6)
			Me.GroupBox1.Controls.Add(Me.Button5)
			Me.GroupBox1.Controls.Add(Me.Label2)
			Me.GroupBox1.Controls.Add(Me.Label3)
			Me.GroupBox1.Controls.Add(Me.Button4)
			Me.GroupBox1.Controls.Add(Me.TextBox1)
			Me.GroupBox1.Controls.Add(Me.Label1)
			Me.GroupBox1.Controls.Add(Me.Button3)
			Dim arg_365_0 As Control = Me.GroupBox1
			location = New Point(12, 4)
			arg_365_0.Location = location
			Me.GroupBox1.Name = "GroupBox1"
			Dim arg_392_0 As Control = Me.GroupBox1
			size = New Size(319, 108)
			arg_392_0.Size = size
			Me.GroupBox1.TabIndex = 2
			Me.GroupBox1.TabStop = False
			Me.GroupBox1.Text = "Options"
			Me.Label7.AutoSize = True
			Me.Label7.Font = New Font("Microsoft Sans Serif", 8.25F, FontStyle.Bold, GraphicsUnit.Point, 0)
			Dim arg_404_0 As Control = Me.Label7
			location = New Point(163, 16)
			arg_404_0.Location = location
			Me.Label7.Name = "Label7"
			Dim arg_42E_0 As Control = Me.Label7
			size = New Size(63, 13)
			arg_42E_0.Size = size
			Me.Label7.TabIndex = 10
			Me.Label7.Text = "Modehere"
			Me.Label6.AutoSize = True
			Dim arg_473_0 As Control = Me.Label6
			location = New Point(126, 16)
			arg_473_0.Location = location
			Me.Label6.Name = "Label6"
			Dim arg_49D_0 As Control = Me.Label6
			size = New Size(37, 13)
			arg_49D_0.Size = size
			Me.Label6.TabIndex = 9
			Me.Label6.Text = "Mode:"
			Dim arg_4D8_0 As Control = Me.Button5
			location = New Point(238, 56)
			arg_4D8_0.Location = location
			Me.Button5.Name = "Button5"
			Dim arg_502_0 As Control = Me.Button5
			size = New Size(75, 23)
			arg_502_0.Size = size
			Me.Button5.TabIndex = 3
			Me.Button5.Text = "Settings"
			Me.Button5.UseVisualStyleBackColor = True
			Me.Label2.AutoSize = True
			Dim arg_556_0 As Control = Me.Label2
			location = New Point(241, 16)
			arg_556_0.Location = location
			Me.Label2.Name = "Label2"
			Dim arg_580_0 As Control = Me.Label2
			size = New Size(45, 13)
			arg_580_0.Size = size
			Me.Label2.TabIndex = 3
			Me.Label2.Text = "Interval:"
			Me.Label3.AutoSize = True
			Dim arg_5C7_0 As Control = Me.Label3
			location = New Point(282, 16)
			arg_5C7_0.Location = location
			Me.Label3.Name = "Label3"
			Dim arg_5F1_0 As Control = Me.Label3
			size = New Size(14, 13)
			arg_5F1_0.Size = size
			Me.Label3.TabIndex = 4
			Me.Label3.Text = "#"
			Dim arg_62B_0 As Control = Me.Button4
			location = New Point(238, 79)
			arg_62B_0.Location = location
			Me.Button4.Name = "Button4"
			Dim arg_655_0 As Control = Me.Button4
			size = New Size(75, 23)
			arg_655_0.Size = size
			Me.Button4.TabIndex = 5
			Me.Button4.Text = "Clear"
			Me.Button4.UseVisualStyleBackColor = True
			Dim arg_699_0 As Control = Me.TextBox1
			location = New Point(9, 32)
			arg_699_0.Location = location
			Me.TextBox1.Multiline = True
			Me.TextBox1.Name = "TextBox1"
			Dim arg_6D3_0 As Control = Me.TextBox1
			size = New Size(223, 70)
			arg_6D3_0.Size = size
			Me.TextBox1.TabIndex = 4
			Me.Label1.AutoSize = True
			Dim arg_705_0 As Control = Me.Label1
			location = New Point(6, 16)
			arg_705_0.Location = location
			Me.Label1.Name = "Label1"
			Dim arg_72F_0 As Control = Me.Label1
			size = New Size(50, 13)
			arg_72F_0.Size = size
			Me.Label1.TabIndex = 3
			Me.Label1.Text = "Message"
			Dim arg_769_0 As Control = Me.Button3
			location = New Point(238, 32)
			arg_769_0.Location = location
			Me.Button3.Name = "Button3"
			Dim arg_793_0 As Control = Me.Button3
			size = New Size(75, 23)
			arg_793_0.Size = size
			Me.Button3.TabIndex = 3
			Me.Button3.Text = "Interval"
			Me.Button3.UseVisualStyleBackColor = True
			Me.Timer2.Enabled = True
			Me.Timer2.Interval = 1
			Dim arg_7F4_0 As Control = Me.Button6
			location = New Point(12, 145)
			arg_7F4_0.Location = location
			Me.Button6.Name = "Button6"
			Dim arg_81E_0 As Control = Me.Button6
			size = New Size(75, 23)
			arg_81E_0.Size = size
			Me.Button6.TabIndex = 4
			Me.Button6.Text = "Start"
			Me.Button6.UseVisualStyleBackColor = True
			Dim arg_865_0 As Control = Me.NumericUpDown1
			location = New Point(93, 147)
			arg_865_0.Location = location
			Me.NumericUpDown1.Name = "NumericUpDown1"
			Dim arg_88F_0 As Control = Me.NumericUpDown1
			size = New Size(40, 20)
			arg_88F_0.Size = size
			Me.NumericUpDown1.TabIndex = 5
			Me.Label4.AutoSize = True
			Dim arg_8C8_0 As Control = Me.Label4
			location = New Point(185, 154)
			arg_8C8_0.Location = location
			Me.Label4.Name = "Label4"
			Dim arg_8F2_0 As Control = Me.Label4
			size = New Size(47, 13)
			arg_8F2_0.Size = size
			Me.Label4.TabIndex = 6
			Me.Label4.Text = "Timeleft:"
			Me.Label5.AutoSize = True
			Dim arg_93C_0 As Control = Me.Label5
			location = New Point(234, 154)
			arg_93C_0.Location = location
			Me.Label5.Name = "Label5"
			Dim arg_966_0 As Control = Me.Label5
			size = New Size(13, 13)
			arg_966_0.Size = size
			Me.Label5.TabIndex = 7
			Me.Label5.Text = "0"
			Me.Timer3.Interval = 1000
			Me.Timer4.Enabled = True
			Me.Timer4.Interval = 1
			Me.Timer5.Enabled = True
			Me.Timer5.Interval = 1
			Dim arg_9E8_0 As Control = Me.Button7
			location = New Point(256, 145)
			arg_9E8_0.Location = location
			Me.Button7.Name = "Button7"
			Dim arg_A12_0 As Control = Me.Button7
			size = New Size(75, 23)
			arg_A12_0.Size = size
			Me.Button7.TabIndex = 8
			Me.Button7.Text = "Stop"
			Me.Button7.UseVisualStyleBackColor = True
			Me.Timer6.Enabled = True
			Me.Timer6.Interval = 1
			Me.Timer7.Enabled = True
			Me.Timer7.Interval = 1
			Me.Timer8.Enabled = True
			Me.Timer8.Interval = 1
			Me.Timer9.Enabled = True
			Me.Timer9.Interval = 1
			Me.CheckBox1.AutoSize = True
			Dim arg_ACE_0 As Control = Me.CheckBox1
			location = New Point(169, 122)
			arg_ACE_0.Location = location
			Me.CheckBox1.Name = "CheckBox1"
			Dim arg_AF8_0 As Control = Me.CheckBox1
			size = New Size(86, 17)
			arg_AF8_0.Size = size
			Me.CheckBox1.TabIndex = 9
			Me.CheckBox1.Text = "Super speed"
			Me.CheckBox1.UseVisualStyleBackColor = True
			Dim autoScaleDimensions As SizeF = New SizeF(6F, 13F)
			Me.AutoScaleDimensions = autoScaleDimensions
			Me.AutoScaleMode = AutoScaleMode.Font
			size = New Size(343, 146)
			Me.ClientSize = size
			Me.Controls.Add(Me.CheckBox1)
			Me.Controls.Add(Me.Button7)
			Me.Controls.Add(Me.Label5)
			Me.Controls.Add(Me.Label4)
			Me.Controls.Add(Me.NumericUpDown1)
			Me.Controls.Add(Me.Button6)
			Me.Controls.Add(Me.GroupBox1)
			Me.Controls.Add(Me.Button2)
			Me.Controls.Add(Me.Button1)
			Me.FormBorderStyle = FormBorderStyle.FixedSingle
			Me.MaximizeBox = False
			Me.Name = "Form1"
			Me.ShowIcon = False
			Me.Text = "Cycrux Spammer"
			Me.GroupBox1.ResumeLayout(False)
			Me.GroupBox1.PerformLayout()
			(CType(Me.NumericUpDown1, ISupportInitialize)).EndInit()
			Me.ResumeLayout(False)
			Me.PerformLayout()
		End Sub

		Private Shared Declare Ansi Function GetAsyncKeyState Lib "user32" (vbkey As Short) As Integer

		Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs)
		End Sub

		Private Sub Timer1_Tick(sender As Object, e As EventArgs)
			SendKeys.Send(Me.TextBox1.Text)
			SendKeys.Send("{ENTER}")
		End Sub

		Private Sub Button3_Click(sender As Object, e As EventArgs)
			MyProject.Forms.Interval.Show()
		End Sub

		Private Sub Button1_Click(sender As Object, e As EventArgs)
			Me.Timer1.Start()
			MyProject.Forms.Settings.NotifyIcon1.ShowBalloonTip(1)
		End Sub

		Private Sub Button2_Click(sender As Object, e As EventArgs)
			Me.Timer1.[Stop]()
		End Sub

		Private Sub Button4_Click(sender As Object, e As EventArgs)
			Me.TextBox1.Text = ""
		End Sub

		Private Sub Timer2_Tick(sender As Object, e As EventArgs)
			Me.Label3.Text = MyProject.Forms.Interval.Label1.Text
		End Sub

		Private Sub Button5_Click(sender As Object, e As EventArgs)
			MyProject.Forms.Settings.Show()
		End Sub

		Private Sub Button6_Click(sender As Object, e As EventArgs)
			Me.Timer3.Start()
			Me.Timer1.Start()
		End Sub

		Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs)
			Me.Label5.Text = Conversions.ToString(Me.NumericUpDown1.Value)
		End Sub

		Private Sub Timer3_Tick(sender As Object, e As EventArgs)
			Dim flag As Boolean = Me.Timer3.Enabled
			If flag Then
				Me.NumericUpDown1.[ReadOnly] = False
			End If
			flag = Not Me.Timer3.Enabled
			If flag Then
				Me.NumericUpDown1.[ReadOnly] = True
			End If
			Me.Label5.Text = Conversions.ToString(Conversion.Val(Me.Label5.Text) - Conversion.Val(1))
			flag = (Operators.CompareString(Me.Label5.Text, "0", False) = 0)
			If flag Then
				Me.Timer3.[Stop]()
			End If
			flag = (Operators.CompareString(Me.Label5.Text, "0", False) = 0)
			If flag Then
				Me.Timer1.[Stop]()
			End If
			flag = (Operators.CompareString(Me.Label5.Text, "-1", False) = 0)
			If flag Then
				Me.Label5.Text = "0"
			End If
		End Sub

		Private Sub Timer4_Tick(sender As Object, e As EventArgs)
			Dim flag As Boolean = Me.Timer3.Enabled
			If flag Then
				Me.NumericUpDown1.[ReadOnly] = False
			End If
			flag = Not Me.Timer3.Enabled
			If flag Then
				Me.NumericUpDown1.[ReadOnly] = True
			End If
		End Sub

		Private Sub Timer5_Tick(sender As Object, e As EventArgs)
		End Sub

		Private Sub Timer5_Tick_1(sender As Object, e As EventArgs)
			Dim [readOnly] As Boolean = Me.NumericUpDown1.[ReadOnly]
			If [readOnly] Then
				Me.NumericUpDown1.Value = Conversions.ToDecimal(Me.Label5.Text)
			End If
		End Sub

		Private Sub Button7_Click(sender As Object, e As EventArgs)
			Me.Timer3.[Stop]()
			Me.Timer1.[Stop]()
		End Sub

		Private Sub Timer6_Tick(sender As Object, e As EventArgs)
			Dim flag As Boolean = Me.Timer1.Enabled
			If flag Then
				Me.Label7.Text = "Running"
			End If
			flag = Me.Timer1.Enabled
			If flag Then
				Me.Label7.ForeColor = Color.LightGreen
			End If
			flag = Not Me.Timer1.Enabled
			If flag Then
				Me.Label7.Text = "Not running"
			End If
			flag = Not Me.Timer1.Enabled
			If flag Then
				Me.Label7.ForeColor = Color.Red
			End If
		End Sub

		Private Sub Button8_Click(sender As Object, e As EventArgs)
		End Sub

		Private Sub Form1_Load(sender As Object, e As EventArgs)
		End Sub

		Private Sub Timer7_Tick(sender As Object, e As EventArgs)
			Dim flag As Boolean = Form1.GetAsyncKeyState(113) > 0
			Dim flag2 As Boolean = flag
			If flag2 Then
				Me.Button1.PerformClick()
			End If
		End Sub

		Private Sub Timer8_Tick(sender As Object, e As EventArgs)
			Dim flag As Boolean = Form1.GetAsyncKeyState(114) > 0
			Dim flag2 As Boolean = flag
			If flag2 Then
				Me.Button2.PerformClick()
			End If
		End Sub

		Private Sub ToolStripSeparator1_Click(sender As Object, e As EventArgs)
		End Sub

		Private Sub Timer9_Tick(sender As Object, e As EventArgs)
			Dim flag As Boolean = Me.Timer1.Enabled
			If flag Then
				Me.TextBox1.Enabled = False
			End If
			flag = Not Me.Timer1.Enabled
			If flag Then
				Me.TextBox1.Enabled = True
			End If
		End Sub

		Private Sub Timer10_Tick(sender As Object, e As EventArgs)
		End Sub

		Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
		End Sub

		Private Sub CheckBox1_CheckedChanged_1(sender As Object, e As EventArgs)
			Dim flag As Boolean = Me.CheckBox1.Checked
			If flag Then
				Me.Timer1.Interval = 1
			End If
			flag = Not Me.CheckBox1.Checked
			If flag Then
				Me.Timer1.Interval = 100
			End If
		End Sub
	End Class
End Namespace

		Private Sub Timer1_Tick(sender As Object, e As EventArgs)
			SendKeys.Send(Me.TextBox1.Text)
			SendKeys.Send("{ENTER}")
		End Sub