[Release]Spammer and auto-clicker

V!rus · March 4, 2009

UPDATED

2009-02-03

* Fixed Hotkey

* Added Terms And Condition page

* Fixed some bug

* And little bit better

Extract it on your desktop

UPADATED

2009-24-02

* Modified look

* Added Option

* Modified source

* And a lot more.

2009-23-02

* AutoClicker X,Y

* Hotkey:

* Spammer - On/off ctrl+z

* AutoClicker - On/off ctrl+x

* Put position - Left click ( need to click on button before )

* And a lot more.

Some bug with hotkey

I made little spammer

screenshot->

Module

	Public Declare Function GetAsyncKeyState Lib \"user32\" Alias \"GetAsyncKeyState\" (ByVal vKey As Long) As Integer

Form1

Public Class Form1
Dim sec As Integer
Dim RandomNumber As Integer
Dim RandomClass As New Random()
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Sub mouse_event Lib \"user32\" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwextrainfo As Long)
Public Declare Function SetCursorPos Lib \"user32\" (ByVal X As Int32, ByVal Y As Long) As Long
Dim tell As Integer
Dim OriginalPoint As Point
Dim X As Integer
Dim Y As Integer


Private Sub BtnSpam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSpam.Click
	\'It is button for spam
	BtnSpam.Visible = False \' Put button invisible
	BtnStop.Visible = True   \' show button 2
	If BtnSpam.Enabled Then
		Spam.Enabled = True
	End If
End Sub

Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
	\'Button off ( stop )
	BtnSpam.Visible = True \' Put button 1 visible
	BtnStop.Visible = False \' show button 1
	If BtnStop.Enabled Then
		Spam.Enabled = False
		Counter.Enabled = False
	End If
End Sub

Private Sub Spam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spam.Tick
	If BtnSpam.Enabled Then
		BtnSpam.Visible = False \' Put button invisible
		BtnStop.Visible = True   \' show button 2
		Spam.Enabled = True \' Start timer
		Counter.Enabled = True
		If ComboBox1.Text = \"Speed\" Then
			Spam.Enabled = False
			Counter.Enabled = False
			BtnSpam.Visible = True
			BtnStop.Visible = False
			MsgBox(\"You need to choose the speed\")
		Else
			Spam.Interval = ComboBox1.Text
		End If
	End If
	RandomNumber = RandomClass.Next(0, 100)
	If CheckBox1.Checked = True Then
		SendKeys.Send(TextBox1.Text & RandomNumber)

		If CheckBox2.Checked = True Then
			SendKeys.Send((ChrW(13))) \' Hit enter every time shout
		Else
		End If
	Else
		SendKeys.Send(TextBox1.Text) \'Spam text in textbox
		If CheckBox2.Checked = True Then
			SendKeys.Send((ChrW(13))) \' Hit enter every time shout
		Else

		End If
	End If
	If GetAsyncKeyState(vKey:=(17)) And GetAsyncKeyState(vKey:=(49)) Then
		BtnSpam.Visible = True \' Put button 1 visible
		BtnStop.Visible = False \' show button 1
		If BtnStop.Enabled Then
			Spam.Enabled = False
			Counter.Enabled = False
		End If
	End If
End Sub
\' I done it, I will not start it because it will lag like the hell.
\' BUT INTERVAL to 100 MANIMUN ... dont try 1 it will LAG LAG LAG LAG LAG!!
Private Sub Counter_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Counter.Tick
	sec = sec + 1
	Label1.Text = sec
End Sub
Private Sub Daate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Daate.Tick
	Me.Text = System.DateTime.Now
End Sub
Private Sub HotKeySpam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotkeySpam.Tick
	If GetAsyncKeyState(vKey:=(17)) And GetAsyncKeyState(vKey:=(49)) Then
		Spam.Enabled = True
		BtnSpam.Visible = False \' Put button 1 visible
		BtnStop.Visible = True \' show button 1
		If BtnSpam.Enabled Then
			Spam.Enabled = True
			Counter.Enabled = True
		End If
	End If
End Sub
Private Sub BtnPosition_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPosition.Click
	Position1.Enabled = True
	MsgBox(\"Click on left button of your mouse for Save position\")
End Sub

Private Sub Position1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Position1.Tick
	If Position1.Enabled = True Then

		Label7.Text = Cursor.Position.X
		Label6.Text = Cursor.Position.Y
		If GetAsyncKeyState(vKey:=(2)) Then
			Label7.Text = Cursor.Position.X
			Label6.Text = Cursor.Position.Y
			Position1.Enabled = False
		End If
	End If
End Sub
Private Sub BtnAutoClicker_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAutoClicker.Click
	BtnAutoClicker.Visible = False \' Put button invisible
	BtnStop2.Visible = True   \' show button 2
	AutoClicker.Enabled = True
End Sub

Private Sub AutoClicker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoClicker.Tick
	OriginalPoint = System.Windows.Forms.Cursor.Position
	If BtnAutoClicker.Enabled Then
		BtnAutoClicker.Visible = False \' Put button invisible
		BtnStop2.Visible = True   \' show button 2
		AutoClicker.Enabled = True \' Start timer
		If Label6.Text = \"\" Then
			AutoClicker.Enabled = False
			BtnAutoClicker.Visible = True
			BtnStop2.Visible = False
			MsgBox(\"You need to choose position\")
		End If
		If ComboBox1.Text = \"Speed\" Then
			AutoClicker.Enabled = False
			BtnAutoClicker.Visible = True
			BtnStop2.Visible = False
			MsgBox(\"You need to choose the speed\")
		Else
			Spam.Interval = ComboBox1.Text
			X = Label7.Text
			Y = Label6.Text
		End If
	End If
	SetCursorPos(X, Y)
	mouse_event(MOUSEEVENTF_LEFTDOWN, OriginalPoint.X, OriginalPoint.Y, 0, 0)
	mouse_event(MOUSEEVENTF_LEFTUP, OriginalPoint.X, OriginalPoint.Y, 0, 0)
	If GetAsyncKeyState(vKey:=(17)) And GetAsyncKeyState(vKey:=(50)) Then
		BtnAutoClicker.Visible = True \' Put button 1 visible
		BtnStop2.Visible = False \' show button 1
		If BtnStop2.Enabled Then
			AutoClicker.Enabled = False
		End If
	End If
End Sub

Private Sub BtnStop2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop2.Click
	BtnAutoClicker.Visible = True \' Put button 1 visible
	BtnStop2.Visible = False \' show button 1
	If BtnStop.Enabled Then
		AutoClicker.Enabled = False
	End If
End Sub

Private Sub HotkeyAutoClicker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotkeyAutoClicker.Tick
	If HotkeyAutoClicker.Enabled Then
		If GetAsyncKeyState(vKey:=(17)) And GetAsyncKeyState(vKey:=(50)) Then
			BtnAutoClicker.Visible = False \' Put button 1 visible
			BtnStop2.Visible = True \' show button 1
			If BtnAutoClicker.Enabled Then
				AutoClicker.Enabled = True
			End If
		End If
	End If
End Sub
Private Sub Label8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
	Form2.Show()
End Sub
End Class

Form2

Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Me.ShowInTaskbar = False
End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
	Me.Close()
End Sub
End Class

Vb.net Spammer4 : Click here

Edited March 4, 2009 by D3lisle

Sign In

Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum

[Release]Spammer and auto-clicker

Recommended Posts

V!rus 0

Link to comment

Share on other sites

Recently Browsing 0 members

BUY VIP

Cheat List

Important Tutorials

Browse

Activity