Bisma - How would I do this? - MPGH - MultiPlayer Game Hacking & Cheats

Bisma - How would I do this?

Hello and I'm .DLL,
At the moment Im a newbie at VB.NET and I had a thought one day while playing Combat Arms,
"Me : Why not make a quick switcher in VB.NET..."

Whats a quick switcher you might ask?
It's basically , hmm can't explain that well.
Well you know when your sniping and you click the letter 'Q' two times to re-duce the recoil or accuracy and such
basically a quick switcher would allow you to set some options so when you shoot/click (LMB) about 0.02 seconds after you
shoot it would activate the quick switcher allowing it to click 'Q' two times with-out you moving a figure.

Well why cant you make such a simple program?
As I stated above Im still a VB.NET newbie and I really don't want to work on the basic kind-of programs I want to move on
to the 'Intermediate' level programs and leave the 'Beginner' level.

Here is my code so far (I've been working on this for about 10minutes);

Code:

'Bisma - QuickSwitcher
Public Class Form1

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    '------------------------------------------------------

    'Other(s)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Enabled = False
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Q) Then
            SendKeys.Send("{Q}")
            SendKeys.Send("{Q}")
            Status.Text = "Quicking!"
        Else
            Status.Text = "Waiting for input..."
        End If
    End Sub
    '------------------------------------------------------

    'Buttons

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Button1.Enabled = False
        Button2.Enabled = True
        Status.Text = "[B]Quicking!"
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        Button2.Enabled = False
        Button1.Enabled = True
        Status.Text = "[B]Waiting for input..."
    End Sub
    '------------------------------------------------------

    'Tool Strips

    Private Sub SupportsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupportsToolStripMenuItem.Click
        MessageBox.Show("Combat Arms Only (MULTI SOON)")
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
    '------------------------------------------------------

But I'm having a problem in-game/out-of game when ever I actually run the program I get an error with this code,

Code:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Q) Then
            SendKeys.Send("{Q}")
            SendKeys.Send("{Q}")
            Status.Text = "Quicking!"
        Else
            Status.Text = "Waiting for input..."
        End If
    End Sub

Anyone mind helping? :/

seem like it was over done cuz ur looking for a spammer with out the iniifite loop
correct me if im wrong

Off : Why bother making it in VB ? Far more easier in AHK ... :P
On : I dont quite understand this code, im pretty much a newb too :l

Try changing

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

to

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

If I'm not mistaking, Sendkeys does not work on combat arms because it is a DirectX Game.
You can use an alternative to sendkeys which can be found here:
http://www.mpgh.net/forum/378-open-s...-code-sdk.html
Thanks to NextGen1

Bisma - How would I do this?

Post a Reply

Similar Threads

Tags for this Thread