Home › Forum › Programming › Visual Basic Programming › [Help]Hotkeys for combat arms

[Help]Hotkeys for combat arms

Posts 1–13 of 13 · Page 1 of 1

Hey guys i have made a spammer for combat arms with hotkeys but at the moment the hotkeys only work in notepad and not for combat arms

This is my hotkey code so far

Code:

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16
    Dim maybe1 As Boolean
    Dim maybe2 As Boolean

Code:

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.F7) Then
            Button1_Click(sender, e)
        End If
        If GetAsyncKeyState(Keys.F8) Then
            Button2_Click(sender, e)
        End If
    End Sub
End Class

now im just wondering if you guys could plz help me get the code to work in combat arms.

The following lines can be removed, as they are not used.

Code:

    Dim maybe1 As Boolean
    Dim maybe2 As Boolean

And this just clicks your FORM's button :

Code:

Button1_Click(sender, e)

What kind of a spammer are you trying to do?

Originally Posted by freedompeace

The following lines can be removed, as they are not used.

Code:

    Dim maybe1 As Boolean
    Dim maybe2 As Boolean

And this just clicks your FORM's button :

Code:

Button1_Click(sender, e)

What kind of a spammer are you trying to do?

a spammer that spams game chat.

Originally Posted by Kallisti

a spammer that spams game chat.

Are you completely sure?

yea i want it to spam the ingame chat thing in combat arms

and the code u said i should get rid of is important

You will have to use the virtual keyboard API. Sendkeys or any other faulty method won't work in DX.

First declare this in your form:

Code:

Declare Function keybd_event Lib "user32" Alias "keybd_event" _
     (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long) As Long
Private Const KEYEVENTF_KEYUP = &H2

Then add this sub-procedure to your form:

Code:

 
Sub PressKey(K as Keys)
Call keybd_event(k, 0, 0, 0)
System.Threading.Thread.Sleep(20)
Call keybd_event(k,0,KEYEVENTF_KEYUP, 0)
End Sub

After that modify the code you posted, so it looks like this:

Code:

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.F7) Then
'Press the required key by using the following line. Use the following statement multiple times to stimulate multiple keys at a time. (Combination)
            PressKey(Keys.A)
 
        End If
        If GetAsyncKeyState(Keys.F8) Then
           'Press the required key by using the following line. Use the following statement multiple times to stimulate multiple keys at a time. (Combination)
 
'Prints the screen            
PressKey(Keys.PrintScreen)
 
        End If
    End Sub
End Class

This should work if done correctly. Tested and working !!

hi where do i add the sub-procedure to the form

Originally Posted by bayley60

hi where do i add the sub-procedure to the form

Any white space in the form but between:

Code:

 
 
Class Form1
 
 
Sub here...
 
End Class

ok dude for this

If GetAsyncKeyState(Keys.F7) Then
'Press the required key by using the following line. Use the following statement multiple times to stimulate multiple keys at a time. (Combination)
PressKey(Keys.A)

End If
If GetAsyncKeyState(Keys.F8) Then
'Press the required key by using the following line. Use the following statement multiple times to stimulate multiple keys at a time. (Combination)

'Prints the screen
PressKey(Keys.PrintScreen)

does the user press f8 or the printscreen button?
and what is this bit for?
'Press the required key by using the following line. Use the following statement multiple times to stimulate multiple keys at a time. (Combination)

'Prints the screen
PressKey(Keys.PrintScreen)

http://www.mpgh.net/forum/33-visual-...ender-dll.html

Basically sort of the same as what Xscapism just told you to do, I wrote a whole thread with a tutorial about the .DLL so you should be able to pick it up pretty easily.

thanks bt im looking 4 code not dll things bt ill try

Originally Posted by bayley60

thanks bt im looking 4 code not dll things bt ill try

It is code, but compacted into a neat .DLL. Have you even attempted to read the thread to see what it's about?

no i have not had time just started school again after holidays

Posts 1–13 of 13 · Page 1 of 1

Post a Reply

Similar Threads

i need help finding a hack or speedhack for combat armsBy kibbles18 in General Game Hacking
0Last post 17y ago
Help me to make a Hack for Combat ArmsBy cheatmaker in Visual Basic Programming
10Last post 17y ago
HELP I NEED HACKS FOR COMBAT ARMS EU SONO ITALIANOBy slafer in Combat Arms Europe Hacks
3Last post 17y ago
i need hack bypass for combat arms can some one help me?By haven377 in Combat Arms Hacks & Cheats
12Last post 17y ago
HELP ME NED AIMBOT FOR COMBAT ARMSBy alex11598 in General Game Hacking
2Last post 16y ago

Tags for this Thread

#combat arms #hotkeys

Home › Forum › Programming › Visual Basic Programming › [Help]Hotkeys for combat arms

[Help]Hotkeys for combat arms

Posts 1–13 of 13 · Page 1 of 1

[Help]Hotkeys for combat arms

Hey guys i have made a spammer for combat arms with hotkeys but at the moment the hotkeys only work in notepad and not for combat arms

This is my hotkey code so far

Code:

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16
    Dim maybe1 As Boolean
    Dim maybe2 As Boolean

Code:

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.F7) Then
            Button1_Click(sender, e)
        End If
        If GetAsyncKeyState(Keys.F8) Then
            Button2_Click(sender, e)
        End If
    End Sub
End Class

now im just wondering if you guys could plz help me get the code to work in combat arms.

The following lines can be removed, as they are not used.

Code:

    Dim maybe1 As Boolean
    Dim maybe2 As Boolean

And this just clicks your FORM's button :

Code:

Button1_Click(sender, e)

What kind of a spammer are you trying to do?

Originally Posted by freedompeace

The following lines can be removed, as they are not used.

Code:

    Dim maybe1 As Boolean
    Dim maybe2 As Boolean

And this just clicks your FORM's button :

Code:

Button1_Click(sender, e)

What kind of a spammer are you trying to do?

a spammer that spams game chat.

Originally Posted by Kallisti

a spammer that spams game chat.

Are you completely sure?

yea i want it to spam the ingame chat thing in combat arms

and the code u said i should get rid of is important

You will have to use the virtual keyboard API. Sendkeys or any other faulty method won't work in DX.

First declare this in your form:

Code:

Declare Function keybd_event Lib "user32" Alias "keybd_event" _
     (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long) As Long
Private Const KEYEVENTF_KEYUP = &H2

Then add this sub-procedure to your form:

Code:

 
Sub PressKey(K as Keys)
Call keybd_event(k, 0, 0, 0)
System.Threading.Thread.Sleep(20)
Call keybd_event(k,0,KEYEVENTF_KEYUP, 0)
End Sub

After that modify the code you posted, so it looks like this:

Code:

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If GetAsyncKeyState(Keys.F7) Then
'Press the required key by using the following line. Use the following statement multiple times to stimulate multiple keys at a time. (Combination)
            PressKey(Keys.A)
 
        End If
        If GetAsyncKeyState(Keys.F8) Then
           'Press the required key by using the following line. Use the following statement multiple times to stimulate multiple keys at a time. (Combination)
 
'Prints the screen            
PressKey(Keys.PrintScreen)
 
        End If
    End Sub
End Class

This should work if done correctly. Tested and working !!

hi where do i add the sub-procedure to the form

Originally Posted by bayley60

hi where do i add the sub-procedure to the form

Any white space in the form but between:

Code:

 
 
Class Form1
 
 
Sub here...
 
End Class

thanks bt im looking 4 code not dll things bt ill try

Originally Posted by bayley60

thanks bt im looking 4 code not dll things bt ill try

It is code, but compacted into a neat .DLL. Have you even attempted to read the thread to see what it's about?

no i have not had time just started school again after holidays

Posts 1–13 of 13 · Page 1 of 1

Post a Reply

Similar Threads

i need help finding a hack or speedhack for combat armsBy kibbles18 in General Game Hacking
0Last post 17y ago
Help me to make a Hack for Combat ArmsBy cheatmaker in Visual Basic Programming
10Last post 17y ago
HELP I NEED HACKS FOR COMBAT ARMS EU SONO ITALIANOBy slafer in Combat Arms Europe Hacks
3Last post 17y ago
i need hack bypass for combat arms can some one help me?By haven377 in Combat Arms Hacks & Cheats
12Last post 17y ago
HELP ME NED AIMBOT FOR COMBAT ARMSBy alex11598 in General Game Hacking
2Last post 16y ago

Tags for this Thread

#combat arms #hotkeys