_IsPressed Mouse AutoFire?

[ozone]

Here is an interesting question. I'm using the IsPressed function to detect when my left mousebutton is pressed down. When I press it down, I want AutoIt to send "repeated" leftclicks... then when I let up on the left mousebutton, I want AutoIt to stop sending leftclicks.

The interesting problem though is AutoIt can't sense that I am holding down the left mousebutton AND send multiple left mouseclicks at the same time... or at least I think that's what the problem is. Here is my code.

Global $activate
AutoItSetOption ( "MouseClickDelay", 10)

$letter = "^p"
HotKeySet($letter, "ToggleActivate")
Func ToggleActivate()
    $activate = NOT $activate
    While $activate
         If _IsPressed('01') = 1 Then MouseClick("left",800,600,1,0)
         Sleep(40);this compensates for the mouseclick delay being at 0
    Wend
EndFunc

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.
 Local $aR
 $hexKey = '0x' & $hexKey
 $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
 If Not @error And BitAND($aR[0],0x8000) = 0x8000 Then Return 1
 Return 0
EndFunc

While 1
    Sleep(100);infinite loop
WEnd

Does anyone have a solution? Oh, and if you're confused about my problem, then think of it this way... I'm trying to build a rapid-fire script (i.e., hold down a button and the thing auto-fires until I release the button).

Edited June 3, 2005 by ozone

[therks]

The _IsPressed is also detecting mouse action by the MouseClick() function.

Here's a simple flowchart:

1. User: Left click and hold.

2. IsPressed: Detects left mouse down.

3. MouseClick: Sends left mouse down, then up.

4. IsPressed: Detects Step 3's mouse up, thinks the user released left click.

5. User: Releases left click whenever, it doesn't matter cus the script is ignoring it.

[buzz44]

Instead of using _IsPressed() I used the GUI event message. Because it only works for GUI's it creates a window that fills the whole screen and then sets the transparency to zero like its not even there. I think it should work but... I cant even get the hot key work. The theory and coding is correct for everything I think, except for the hot key. Any if you can get the hot key it should work .

#include <GUIConstants.au3>

AutoItSetOption ( "MouseClickDelay", 10)
HotKeySet("^p", "ToggleActivate")
Global $activate

$gui = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_BORDER, $WS_POPUP), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
WinSetTrans ($gui, "", 0)
GUISetState()

While 1
    Sleep(100)
WEnd

Func ToggleActivate()
    $activate = NOT $activate
    While $activate
       $msg = GUIGetMsg()
       If $msg = $GUI_EVENT_PRIMARYDOWN Then
         Do
            $msg = GUIGetMsg()
            MouseClick("left",800,600,1,0)
         Until $msg = $GUI_EVENT_PRIMARYUP
       EndIf
    Wend
EndFunc

[haXor4life]

Instead of using _IsPressed() I used the GUI event message. Because it only works for GUI's it creates a window that fills the whole screen and then sets the transparency to zero like its not even there. I think it should work but... I cant even get the hot key work. The theory and coding is correct for everything I think, except for the hot key. Any if you can get the hot key it should work .

#include <GUIConstants.au3>

AutoItSetOption ( "MouseClickDelay", 10)
HotKeySet("^p", "ToggleActivate")
Global $activate

$gui = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_BORDER, $WS_POPUP), BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
WinSetTrans ($gui, "", 0)
GUISetState()

While 1
    Sleep(100)
WEnd

Func ToggleActivate()
    $activate = NOT $activate
    While $activate
       $msg = GUIGetMsg()
       If $msg = $GUI_EVENT_PRIMARYDOWN Then
         Do
            $msg = GUIGetMsg()
            MouseClick("left",800,600,1,0)
         Until $msg = $GUI_EVENT_PRIMARYUP
       EndIf
    Wend
EndFunc

It doesn't work at all. Can someone fix this code, I don't know what's the problem. And I don't get this hotkey part, no one needs it.

[Jos]

It doesn't work at all. Can someone fix this code, I don't know what's the problem. And I don't get this hotkey part, no one needs it.

So let me get this strait: you resurrect a thread from 2005 and now WANT someone to fix this code for you?

What is stopping you for have a go at it first?

[haXor4life]

So let me get this strait: you resurrect a thread from 2005 and now WANT someone to fix this code for you?

What is stopping you for have a go at it first?

This is too hard for me, I don't understand this code at all.

[kaotkbliss]

Follow the code line by line. Look at just 1 line at a time and see what it does. If you don't know what a command does, look it up in the help file as it explains it very simply.

This should be very easy to follow.

[haXor4life]

Follow the code line by line. Look at just 1 line at a time and see what it does. If you don't know what a command does, look it up in the help file as it explains it very simply.

This should be very easy to follow.

Even the person WHO MADE the code couldn't get it run, for me it's impossible.

[kaotkbliss]

Probably because they didn't make their gui clickthrough

I can't remember how to do it offhand, but there are examples in the forum.

[Maffe811]

I'm trying to build a rapid-fire script (i.e., hold down a button and the thing auto-fires until I release the button).

Doesnt that mean its for a game, or can atleast be used for that?

I hate rapid-fire mods/scripts/programs

[Jos]

Folks, this is a 6 years old thread ... lets close this discussion as I am pretty sure the OP will not respond as he didn't check in since 2009.

*click*

Edited June 2, 2011 by Jos