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

    [How to]Make a spammer with hotkeys

    95er

    By 95er,
    in Microsoft .NET

     Share

    Recommended Posts

    • 2 weeks later...
    • 2 weeks later...
    SoZiaLh1Lfe

    SoZiaLh1Lfe 0

    Posted
    Posted
    Code:

     

    [hide_me]Public Class Form1

    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short

     

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Me.WindowState = FormWindowState.Normal

    Timer2.Enabled = False

    End Sub

     

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Dim hotkey1 As Boolean

    hotkey1 = GetAsyncKeyState(Keys.Up)

     

    If hotkey1 = True Then

    Timer2.Enabled = True

    End If

    End Sub

     

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    Dim hotkey2 As Boolean

    hotkey2 = GetAsyncKeyState(Keys.Down)

    My.Computer.Keyboard.SendKeys(TextBox1.Text)

    My.Computer.Keyboard.SendKeys("{Enter}")

    If hotkey2 = True Then

    Timer2.Enabled = False

    End If

     

    End Sub

    End Class[/hide_me]

     

     

     

    Ps:it must work! I make with this code ever spammers with hotkeys!

     

    PRESS THANKS

    Link to comment
    Share on other sites
    • 2 weeks later...
    cracy113

    cracy113 0

    Posted
    Posted
    Code:

     

    [hide_me]Public Class Form1

    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short

     

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Me.WindowState = FormWindowState.Normal

    Timer2.Enabled = False

    End Sub

     

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Dim hotkey1 As Boolean

    hotkey1 = GetAsyncKeyState(Keys.Up)

     

    If hotkey1 = True Then

    Timer2.Enabled = True

    End If

    End Sub

     

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    Dim hotkey2 As Boolean

    hotkey2 = GetAsyncKeyState(Keys.Down)

    My.Computer.Keyboard.SendKeys(TextBox1.Text)

    My.Computer.Keyboard.SendKeys("{Enter}")

    If hotkey2 = True Then

    Timer2.Enabled = False

    End If

     

    End Sub

    End Class[/hide_me]

     

     

     

    Ps:it must work! I make with this code ever spammers with hotkeys!

     

    PRESS THANKS

    Link to comment
    Share on other sites
    -♥D1sLiKe♥-

    -♥D1sLiKe♥- 0

    Posted
    Posted
    Code:

     

    [hide_me]Public Class Form1

    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short

     

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Me.WindowState = FormWindowState.Normal

    Timer2.Enabled = False

    End Sub

     

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Dim hotkey1 As Boolean

    hotkey1 = GetAsyncKeyState(Keys.Up)

     

    If hotkey1 = True Then

    Timer2.Enabled = True

    End If

    End Sub

     

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    Dim hotkey2 As Boolean

    hotkey2 = GetAsyncKeyState(Keys.Down)

    My.Computer.Keyboard.SendKeys(TextBox1.Text)

    My.Computer.Keyboard.SendKeys("{Enter}")

    If hotkey2 = True Then

    Timer2.Enabled = False

    End If

     

    End Sub

    End Class[/hide_me]

     

     

     

    Ps:it must work! I make with this code ever spammers with hotkeys!

     

    PRESS THANKS

    Link to comment
    Share on other sites
    Guest
    This topic is now closed to further replies.
     Share
    Go to topic listing

    • Recently Browsing   0 members

      • No registered users viewing this page.
    ×
    ×
    • Create New...