Sign in to follow this  
Followers 0
Wouter

Bind middle mouse and shift to a single key

9 posts in this topic

Hello everyone,

I've been trying to write a script for use in a CAD program which does the following:

When I press and hold a single key, e.g. F1 the script should press and hold down SHIFT and the middle mouse button down. Then when I release the key again, it should 'unpress' these buttons again.

I've been playing with a hotkey script that sends keydown and keyup commands, but it doesn't unpress and it slows down the computer very much.

Below is how it looks a.t.m.

Does anyone know how to get this thing working? Or a totally different approach that would work?

Thanks in advance!

Script:

--------

Global $Mouse

HotKeySet("{F1}", "move")

HotKeySet("{F5}", "Terminate")

While 1

Sleep(100)

WEnd

Func move()

;toggle $mouse between 0 and 1 (false / true)

$Mouse = NOT $Mouse

While $Mouse = 1

Send("{SHIFTDOWN}")

MouseDown("middle")

WEnd

Send("{SHIFTUP}")

MouseUp("middle")

EndFunc

Func Terminate()

Exit 0

EndFunc

Share this post


Link to post
Share on other sites



did u try _IsPressed ?


Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

did u try _IsPressed ?

Only for reading the F1 indeed

Edited by MrSpacely

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

#Include <Misc.au3>

HotKeySet("{F5}", "Terminate")

While 1
    Sleep(100)
    If _IsPressed("70") Then
        ToolTip("down")
        Send("{SHIFTDOWN}")
        MouseDown("middle")
        While _IsPressed("70")
            Sleep(10)
        WEnd
        ToolTip("")
        MouseUp("middle")
        Send("{SHIFTUP}")
    EndIf
WEnd

Func Terminate()
    Exit 0
EndFunc
nice code

Hmm it is what he wanted weird I just fixed his code but that one toggled it

Hmm anyway here the code I thought he wanted maybe someone find it usefull

HotKeySet("{F1}", "move")
HotKeySet("+{F1}", "move")
HotKeySet("{F5}", "Terminate")
HotKeySet("+{F5}", "Terminate")

global $Mouse = -2

While 1
    Sleep(100) 
    if $Mouse = 1 then
        Send("{SHIFTDOWN}")
        MouseDown("middle") 
        beep(1000,100)
        $Mouse = 2
    endif
    if $Mouse = -1 then
        Send("{SHIFTUP}")
        MouseUp("middle")
        beep(800,100)
        $Mouse = -2
    endif
    SplashTextOn ( "bla", $Mouse, 100,100, 0 ,0)
WEnd

Func move()
;toggle $mouse between 0 and 1 (false / true)
    if $Mouse = 2 then 
        $Mouse = -1
    elseif $Mouse = -2 then 
        $Mouse = 1
    endif
    
EndFunc

Func Terminate()
    Send("{SHIFTUP}")
    MouseUp("middle")
    Exit 0
EndFunc
Edited by MrSpacely

Share this post


Link to post
Share on other sites

First of all, thank you all for the megafast replies!

@ Larry: My Autoit version (3.1.1) doesn't know about '_ispressed' (and neither about 'beep'), so I seem to need the latest beta version :-) I will try this tomorrow.

@ MrSpacely: Although you programmed the key to have a toggle function (instead of having to hold it pressed down), it seems to be working great without slowing down te program! :-)

Thank you both! I will try to make some extra adjustments I just thought of and will bother you again if I have another problem :-)

Share this post


Link to post
Share on other sites

OK, now I'm REALLY confused. For another use I've been trying this for CTRL also by just replacing every instance of SHIFT with CTRL like this:

HotKeySet("{F1}", "move")
HotKeySet("+{F1}", "move")

HotKeySet("{F5}", "Terminate")
HotKeySet("+{F5}", "Terminate")

global $Mouse = -2

While 1
    Sleep(100)
    if $Mouse = 1 then
        Send("{CTRLDOWN}")
        MouseDown("middle") 
        $Mouse = 2
    endif
    if $Mouse = -1 then
        Send("{CTRLUP}")
        MouseUp("middle")
        $Mouse = -2
    endif
    SplashTextOn ( "bla", $Mouse, 100,100, 0 ,0)
WEnd

Func move()
;toggle $mouse between 0 and 1 (false / true)
    if $Mouse = 2 then
        $Mouse = -1
    elseif $Mouse = -2 then
        $Mouse = 1
    endif
EndFunc

Func Terminate()
    Send("{CTRLUP}")
    MouseUp("middle")
    Exit 0
EndFunc

But after testing half an hour it seems to me that Send("{CTRLUP}") does nothing! The script seems to pause somehow and CTRL keeps being pressed. Is this a bug or am I doing something wrong?

BTW please ignore the other name, 'Zest' is my old login and I just found the old login after I had made a new account .... java script:emoticon(":P",

smilie

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

OK, now I'm REALLY confused. For another use I've been trying this for CTRL also by just replacing every instance of SHIFT with CTRL like this:

HotKeySet("{F1}", "move")
HotKeySet("+{F1}", "move")

HotKeySet("{F5}", "Terminate")
HotKeySet("+{F5}", "Terminate")

global $Mouse = -2

While 1
    Sleep(100)
    if $Mouse = 1 then
        Send("{CTRLDOWN}")
        MouseDown("middle") 
        $Mouse = 2
    endif
    if $Mouse = -1 then
        Send("{CTRLUP}")
        MouseUp("middle")
        $Mouse = -2
    endif
    SplashTextOn ( "bla", $Mouse, 100,100, 0 ,0)
WEnd

Func move()
;toggle $mouse between 0 and 1 (false / true)
    if $Mouse = 2 then
        $Mouse = -1
    elseif $Mouse = -2 then
        $Mouse = 1
    endif
EndFunc

Func Terminate()
    Send("{CTRLUP}")
    MouseUp("middle")
    Exit 0
EndFunc

But after testing half an hour it seems to me that Send("{CTRLUP}") does nothing! The script seems to pause somehow and CTRL keeps being pressed. Is this a bug or am I doing something wrong?

BTW please ignore the other name, 'Zest' is my old login and I just found the old login after I had made a new account .... java script:emoticon(":P",

smilie

i understand why

see

HotKeySet("+{F1}", "move")

the + sign is for shift I added this because when the program does shiftdown

the hotkeysend will not respond

quote from manual

'!'

This tells AutoIt to send an ALT keystroke, therefore Send("This is text!a") would send the keys "This is text" and then press "ALT+a".

N.B. Some programs are very choosy about capital letters and ALT keys, i.e. "!A" is different to "!a". The first says ALT+SHIFT+A, the second is ALT+a. If in doubt, use lowercase!

'+'

This tells AutoIt to send a SHIFT keystroke, therefore Send("Hell+o") would send the text "HellO". Send("!+a") would send "ALT+SHIFT+a".

'^'

This tells AutoIt to send a CONTROL keystroke, therefore Send("^!a") would send "CTRL+ALT+a".

So change the + sign in both hotkey sends with the + to ^ then it would work

Functions not supported are because we both (larry and me(also lots of other people)) use beta why well the beta has lots of more functions.

Only sometimes some bugs occur (not often actually) but these are fixed within days.

I often use beta because its also more stable the 3.1.1 version crashed on me more then the beta

Also if you use beta and find a bug you can just download a older beta wich doesn;t have that bug.

Thats what I do but in my point of view the beta works well.

ow yeah the fixed code also see that I removed the splashtexton that was just for testing

also the beep was for testing (I forgot to remove that)

HotKeySet("{F1}", "move")
HotKeySet("^{F1}", "move")

HotKeySet("{F5}", "Terminate")
HotKeySet("^{F5}", "Terminate")

global $Mouse = -2

While 1
    Sleep(100)
    if $Mouse = 1 then
        Send("{CTRLDOWN}")
        MouseDown("middle") 
        $Mouse = 2
    endif
    if $Mouse = -1 then
        Send("{CTRLUP}")
        MouseUp("middle")
        $Mouse = -2
    endif
WEnd

Func move()
;toggle $mouse between 0 and 1 (false / true)
    if $Mouse = 2 then
        $Mouse = -1
    elseif $Mouse = -2 then
        $Mouse = 1
    endif
EndFunc

Func Terminate()
    Send("{CTRLUP}")
    MouseUp("middle")
    Exit 0
EndFunc
Edited by MrSpacely

Share this post


Link to post
Share on other sites

Okay I got it all to work!

Now I'm trying to combine both into 1 script, but I think I will get it right myself this time :-).

I have already implemented a check so that the shortcuts only work while I'm in the correct program.

Thank you all for your help!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0