• Amused
  • Angry
  • Annoyed
  • Awesome
  • Bemused
  • Cocky
  • Cool
  • Crazy
  • Crying
  • Down
  • Drunk
  • Embarrased
  • Enraged
  • Friendly
  • Geeky
  • Godly
  • Happy
  • Hateful
  • Hungry
  • Innocent
  • Meh
  • Piratey
  • Poorly
  • Sad
  • Secret
  • Shy
  • Sneaky
  • Tired
  • Wtf
  • At Work
  • CodenzHub
  • Coding
  • Deejaying
  • Donating
  • Drinking
  • Eating
  • Editing
  • Hacking
  • Hate Mailing
  • Jamin'
  • Lagging
  • Live Streaming
  • Lurking
  • No Status
  • Pawning
  • PC Gaming
  • PS Gaming
  • Raging
  • Reversing
  • Sleeping
  • Steam Gaming
  • Trolling
  • TwitchStreamer
  • Vodka!
  • Watching TV/Movie
  • Xbox Gaming
  • Youtuber
  • Zombies
  • Results 1 to 5 of 5
    1. #1
      Newbie
      VB.NET & C++
       
      Coding
       
      mcdeliver18's Avatar
      Join Date
      Apr 2013
      Location
      127.0.0.1
      Posts
      17
      Thanks (-->)
      3
      Thanks (<--)
      0

      VB.net code help

      Silent VPN
      Hello folk, i want to make a Piano bot for garry's mod but it seems not to work in game,
      could someone help me with it

      This is my code

      Public Class Form1

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Threading.Thread.Sleep(5000)
      SendKeys.Send("{G}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{G}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{A}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{H}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{H}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{R}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{J}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{L}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{T}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{I}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{P}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{E}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{Q}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{5}")
      Threading.Thread.Sleep(200)
      SendKeys.Send("{0}")
      End Sub
      End Class

    2. #2
      Newbie
      Where Omega is not defined...
       
      Hacking
       
      OmegaExtern's Avatar
      Join Date
      Jan 2014
      Location
      https://www.bit.ly/OmegaExtern
      Posts
      10
      Thanks (-->)
      2
      Thanks (<--)
      1
      Well, first post >.< mine too xD
      Use C++ for much less pain in your ass.. Look at SendMessage/PostMessage, or SendInput(aka keyb_event/mouse_event) Windows APIs documentation on MSDN/pinvoke.net.
      Or either use AutoIt/AutoHotkey/WinAutomation...

    3. #3
      Newbie
      VB.NET & C++
       
      Coding
       
      mcdeliver18's Avatar
      Join Date
      Apr 2013
      Location
      127.0.0.1
      Posts
      17
      Thanks (-->)
      3
      Thanks (<--)
      0
      This does the job but it is pressing just 1 key

      Public Class Form1

      Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16

      Dim sSend As New StringSender.StringClass

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Timer1.Enabled = True
      End Sub

      Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Timer1.Enabled = False
      Application.Exit()
      End Sub

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

      If GetAsyncKeyState(Keys.F1) Then
      Threading.Thread.Sleep(2000)

      sSend.SendKey(Keys.P)
      Threading.Thread.Sleep(300)
      sSend.SendKey(Keys.O)
      Threading.Thread.Sleep(300)
      sSend.SendKey(Keys.I)

      End If

      End Sub


      End Class
      Last edited by mcdeliver18; 03-30-2014 at 01:54 PM.

    4. #4
      Newbie
      Where Omega is not defined...
       
      Hacking
       
      OmegaExtern's Avatar
      Join Date
      Jan 2014
      Location
      https://www.bit.ly/OmegaExtern
      Posts
      10
      Thanks (-->)
      2
      Thanks (<--)
      1
      You could also use a Scripting engine that is implemented in Source Engine.. And/or combine with Lua
      By the way, I wonder, how is this working...?
      First off, why using VB6 definition (GetAsyncKeyState)?!
      You defined GetAsyncKeyState(Short) : Short.
      >> If GetAsyncKeyState(Keys.F1) Then
      And now, you except to get boolean out of GetAsyncKeyState, and also Keys can't be assigned to Short.
      You totally screwed up data types, and/or do not know what the heck you're actually doing. I recommend you to turn on option script in project settings (or put a definition for it on top of your code, before everything "Option Script On").
      Last edited by OmegaExtern; 03-31-2014 at 07:58 AM. Reason: Removed URL bbcode from VB code.

    5. #5
      Newbie
      VB.NET & C++
       
      Coding
       
      mcdeliver18's Avatar
      Join Date
      Apr 2013
      Location
      127.0.0.1
      Posts
      17
      Thanks (-->)
      3
      Thanks (<--)
      0
      Silent VPN
      Quote Originally Posted by OmegaExtern View Post
      Well, first post >.< mine too xD
      Use C++ for much less pain in your ass.. Look at SendMessage/PostMessage, or SendInput(aka keyb_event/mouse_event) Windows APIs documentation on MSDN/pinvoke.net.
      Or either use AutoIt/AutoHotkey/WinAutomation...
      yea but i don't know C++, i only use C# and VB.Net

    Similar Game Hacker Threads

    1. [Help] C++ ESP AIMBOT SOURCE CODE GDI Drawing Source Code Help Please
      By PimpinRice in forum GH Tutorials Help
      Replies: 10
      Last Post: 10-25-2014, 04:14 PM

    Tags for this Thread