Left Mouse Problem

[tittenkalle]

Hi,

first THX for this great tool!

But:

Ich got an problem with my left mouse button. 02 For the right Mouse works well, but 01 works only in Windows not in Applications. Can u help me?

Here´s the Code:

If (_IsPressed('01') = 1) Then

;msgBox(4096, "Test", "Works")

FireBurst()

EndIf

Func _IsPressed($hexKey)

; $hexKey must be the value of one of the keys.

; _IsPressed will return 0 if the key is not pressed, 1 if it is.

; $hexKey should entered as a string, don't forget the quotes!

; (yeah, layer. This is for you)

Local $aR, $bO

$hexKey = '0x' & $hexKey

$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)

If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then

$bO = 1

Else

$bO = 0

EndIf

Return $bO

EndFunc

[PsaltyDS]

Hi,

first THX for this great tool!

But:

Ich got an problem with my left mouse button. 02 For the right Mouse works well, but 01 works only in Windows not in Applications. Can u help me?

Here´s the Code:

If (_IsPressed('01') = 1) Then

;msgBox(4096, "Test", "Works")

FireBurst()

EndIf

Func _IsPressed($hexKey)

; $hexKey must be the value of one of the keys.

; _IsPressed will return 0 if the key is not pressed, 1 if it is.

; $hexKey should entered as a string, don't forget the quotes!

; (yeah, layer. This is for you)

Local $aR, $bO

$hexKey = '0x' & $hexKey

$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)

If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then

$bO = 1

Else

$bO = 0

EndIf

Return $bO

EndFunc

You can pass hex numbers directly by using the 0x prefix. Then _IsPressed(0x0A) would need no conversion or checking, for example. With numbers less than decimal ten, there is no difference anyway, so you could just pass _IsPressed(1) or _IsPressed(2) with no quotes. I haven't learned much yet about making DLL calls from AutoIt, but if your call to GetAsyncKeyState in user32.dll expects an integer at $hexKey, it is instead getting the ascii string for "0x01". If that is a problem you could do it this way:

If _IsPressed(0x01) Then FireBurst()

Func _IsPressed($hexKey)
    ; $hexKey must be the hex value of one of the keys.
    ; _IsPressed will return 0 if the key is not pressed, 1 if it is.
    
    Local $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
    If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

Edited July 15, 2006 by PsaltyDS

[tittenkalle]

Hi,

I took your code an pasted it in. It doesn´t work with left mouse. The 0x02 works fine, but 0x01 only is executed once and then doesn´t repeat. :-(