Middle Mouse Button Hotkey Toggle

[orly2173]

Hello there,

I was trying to make a script which starts by pressing the middle mousebutton and pauses by pressing the middle mouse button.

I already did some research and found out, that you can't use the middle mouse button as a hotkey through HotKeySet.

But you can use 

_IsPressed

This is my code so far

#include <misc.au3>

Global $A = 0

while (1)
If _IsPressed(4) Then
   If $A = 0 Then
      $A = 1
   Else
      $A = 0
   EndIf
EndIf

If $A Then
   Send ("{ENTER}", 0)
   Sleep (1000)
EndIf
WEnd

The script basically starts when I press the middle Mouse button but it doesn't pause when I press it.

I think the Problem is that _IsPressed(4) only scans between 2-1000-millisecond-sleep-intervals,

If any of you guys have an idea how to solve this problem I would be very glad.

 

Thanks in advance

[BrewManNH]

The _IsPressed function doesn't require a long sleep, it will detect the key very quickly. The problem with your script is that you have too long of a sleep in the loop, and it's in the wrong place.

Here's a modification that should do what you're attempting to do, it should give you a better idea of where to go from here.

#include <misc.au3>

Global $A = False

While (1)
    If _IsPressed(4) Then
        $A = Not $A
        While _IsPressed(4) ; prevents the _IsPressed from retriggering until you've released the button
        WEnd
    EndIf

    If $A = True Then
;~      Send("{ENTER}", 0)
        ConsoleWrite("Test" & @CRLF)
    EndIf
    Sleep(100) ; sleep should be outside the previous If conditional, and 1 second is a little too long to detect quick key presses.
WEnd

 

[orly2173]

The _IsPressed function doesn't require a long sleep, it will detect the key very quickly. The problem with your script is that you have too long of a sleep in the loop, and it's in the wrong place.

Here's a modification that should do what you're attempting to do, it should give you a better idea of where to go from here.

#include <misc.au3>

Global $A = False

While (1)
    If _IsPressed(4) Then
        $A = Not $A
        While _IsPressed(4) ; prevents the _IsPressed from retriggering until you've released the button
        WEnd
    EndIf

    If $A = True Then
;~      Send("{ENTER}", 0)
        ConsoleWrite("Test" & @CRLF)
    EndIf
    Sleep(100) ; sleep should be outside the previous If conditional, and 1 second is a little too long to detect quick key presses.
WEnd

 

First of all thank you for your answer.

I tried it and it works great!

If I want the script to Press Enter, then sleep for 500ms and then Press the "A"-Key - where am I supposed to place the Sleep then?

 

Thank you

[BrewManNH]

You can do it all in one Send command if you want to alter the SendKeyDelay time to 500ms

SendKeyDelay Alters the length of the brief pause in between sent keystrokes. A value of 0 removes the delay completely.
             Time in milliseconds to pause (default=5).

 

[orly2173]

You can do it all in one Send command if you want to alter the SendKeyDelay time to 500ms

SendKeyDelay Alters the length of the brief pause in between sent keystrokes. A value of 0 removes the delay completely.
             Time in milliseconds to pause (default=5).

 

Thanks alot - it works.

 

The last thing that bothers me is that sometimes when i press the middle mouse button it doesnt trigger (pause) 

but I guess that is not fixable?

Edited September 10, 2015 by orly2173