[Release] Spammer/AutoClicker Source

V!rus · April 27, 2009

UPDATED

2009-03-29

*New Hotkey:

*1 for spammer

*2 for auto-clicker

*New skin

*Lesser lag

*Fixed hotkey

UPDATED

2009-02-03

* Fixed Hotkey

* Added Terms And Condition page

* Fixed some bug

* And little bit better [/color]

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:=(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:=(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:=(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:=(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

zeeeeeeek1 · April 27, 2009

DONT POST HACKS WITHOUT CREDITS, VIRUSSCAN AND DONT USE THE HIDE FUNCTION. YOU HAVE TO UPLOAD THE HACK AS A ATTACHMENT ON THE FORUMS

IGNORING THIS WILL RESULT INTO A BAN!

I am nur shure but I think a hack and this program is the same...

V!rus · April 27, 2009

hmm use it at your own risk. Don't trust me don't download it.

Credit: Me.

Just delete the link if your not happy.

Edited April 27, 2009 by V!rus

CHASER · April 27, 2009

post a virustest !

V!rus · April 27, 2009

Thx

http://www.virustotal.com/fr/analisis/a7a0...4daabea073f6c43

 Fichier Delisle.rar reçu le 2009.03.03 03:17:31 (CET)
Situation actuelle: terminé
Résultat: 0/39 (0.00%)
Formaté Formaté
Impression des résultats Impression des résultats
Antivirus 	Version 	Dernière mise à jour 	Résultat
a-squared 	4.0.0.101 	2009.03.03 	-
AhnLab-V3 	5.0.0.2 	2009.02.27 	-
AntiVir 	7.9.0.98 	2009.03.02 	-
Authentium 	5.1.0.4 	2009.03.03 	-
Avast 	4.8.1335.0 	2009.03.02 	-
AVG 	8.0.0.237 	2009.03.03 	-
BitDefender 	7.2 	2009.03.03 	-
CAT-QuickHeal 	10.00 	2009.03.02 	-
ClamAV 	0.94.1 	2009.03.02 	-
Comodo 	986 	2009.02.20 	-
DrWeb 	4.44.0.09170 	2009.03.03 	-
eSafe 	7.0.17.0 	2009.03.02 	-
eTrust-Vet 	31.6.6380 	2009.03.02 	-
F-Prot 	4.4.4.56 	2009.03.02 	-
F-Secure 	8.0.14470.0 	2009.03.03 	-
Fortinet 	3.117.0.0 	2009.03.02 	-
GData 	19 	2009.03.03 	-
Ikarus 	T3.1.1.45.0 	2009.03.03 	-
K7AntiVirus 	7.10.654 	2009.03.02 	-
Kaspersky 	7.0.0.125 	2009.03.03 	-
McAfee 	5541 	2009.03.02 	-
McAfee+Artemis 	5541 	2009.03.02 	-
Microsoft 	1.4306 	2009.03.02 	-
NOD32 	3902 	2009.03.02 	-
Norman 	6.00.06 	2009.03.02 	-
nProtect 	2009.1.8.0 	2009.03.02 	-
Panda 	10.0.0.10 	2009.03.02 	-
PCTools 	4.4.2.0 	2009.03.02 	-
Prevx1 	V2 	2009.03.03 	-
Rising 	21.19.02.00 	2009.03.02 	-
SecureWeb-Gateway 	6.7.6 	2009.03.03 	-
Sophos 	4.39.0 	2009.03.03 	-
Sunbelt 	3.2.1858.2 	2009.03.02 	-
Symantec 	10 	2009.03.03 	-
TheHacker 	6.3.2.6.269 	2009.03.02 	-
TrendMicro 	8.700.0.1004 	2009.03.02 	-
VBA32 	3.12.10.1 	2009.03.03 	-
ViRobot 	2009.3.2.1630 	2009.03.02 	-
VirusBuster 	4.5.11.0 	2009.03.02 	-
Information additionnelle
File size: 210923 bytes
MD5...: 29e0c058ccd5f72d3783ded08cbba6e6
SHA1..: 4668f2ac974c77a324c2764b8031ddb89b74a89c
SHA256: ed8622425a8146bc60faeeb2f8e35c75e775d2ff51f5dada4190f160a1824673
Sghbsys.net2: 6cdc22e698dda92e123aad576b1f64947853507014ee07c5c5800a0488e28c13
04c503093ae6a29e59fdefc31d35cf48fdbfbd078b815ddd6eb13dedda2b38f7
ssdeep: 6144:TS/NGddnwXBdbzajXGWe7bi+t2+TbWzm9QnghOZgjFcOs:m/BBBaDGRtym9
bhOZAVs
PEiD..: -
TrID..: File type identification
RAR Archive (83.3%)
REALbasic Project (16.6%)
PEInfo: -
packers (F-Prot): UTF-8

Sign In

Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum

[Release] Spammer/AutoClicker Source

Recommended Posts

V!rus 0

Link to comment

Share on other sites

zeeeeeeek1 74

Link to comment

Share on other sites

V!rus 0

Link to comment

Share on other sites

CHASER 3

Link to comment

Share on other sites

V!rus 0

Link to comment

Share on other sites

Recently Browsing 0 members

BUY VIP

Cheat List

Important Tutorials

Browse

Activity