Jump to content
Welcome, Guest
Existing user? Sign In

Sign In



Sign Up
The MatriX
  • Welcome To Ghbsys
  • CS GO Streaming Version is released. Have fun streaming while cheating!
  • Have a Payment Issue? Send us a Support ticket.
  • Make a thread if you need support or join our discord for live support.
  • Have Suggestions? Make a thread and you'll earn Ghbsys Points for implemented suggestions.
  • Join our discord to stay well connected! Don't forget to integrate your discord to the site

  • Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum

    Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum, like most online communities you must register to view or post in our community, but don't worry this is a simple free process that requires minimal information for you to signup. Be apart of [GHB] - GAmEhAcKbAsTaRdS Forum by signing in or creating an account.
    • Start new topics and reply to others
    • Subscribe to topics and forums to get email updates
    • Get your own profile page and make new friends
    • Send personal messages to other members.

    Guest Message by DevFuse

    V!rus

    Members
     View Profile  See their activity

    • Posts

      40

    • Joined

    • Last visited

     Content Type 

    Posts posted by V!rus

    10. [Release] Spammer/AutoClicker Source

      in Microsoft .NET

      Posted

      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

    12. [Release] Spammer/AutoClicker Source

      in Microsoft .NET

      Posted

      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->

      Spammer.gif

       

      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

    15. [vb08] Need bit help

      in Microsoft .NET

      Posted

      wrong you right warrock doesnt use PB anymore but the update of PB is stil in the SYSTEM OF WARROCK SO vb.net = patched!

      Lol. No it is not patched, never got patched. YOu just don't know how to hack wr that doesn't mean it patched. I will not arguement on it anymore cause you don't know it.

    ×
    ×
    • Create New...