AutoHotkey Community

F1::     ; LClick toggle
pressed := !pressed
If pressed {
   Click down
        }
Else
   Click up
Exit

*F4:: ;shift + LClick toggle...
pressed := !pressed
If pressed
Send {Shift Down}{Click down}
Else
Send {Shift Up}{Click Up}
Return

#UseHook
SendMode, Input

Modifiers = Ctrl|Alt|Shift
; Set up OSD
Gui, +ToolWindow -Caption +AlwaysOnTop
Gui, Margin, 0, 0
Gui, Font, S10 C002040, Arial
Gui, Add, Progress, BackgroundFFFFFF w87 h25 vbk1
Gui, Add, Progress, x+0 y0 BackgroundFFFFFF w87 h25 vbk2
Gui, Add, Progress, x+0 y0 BackgroundFFFFFF w87 h25 vbk3
Gui, Add, Text, x2 y2 w85 h21 center vtm1 BackgroundTrans, F1
Gui, Add, Text, x+2 y2 w85 h21 center vtm2 BackgroundTrans, F2
Gui, Add, Text, x+2 y2 w85 h21 center vtm3 BackgroundTrans, F3
Gui, Show, y0 NoActivate, [VxE]'s inactive mouse/modifier assistant.
OnMessage( WM_LBUTTONDOWN := 0x201, "WM_LBUTTONDOWN" )
Return
GuiEscape:
Exitapp

#IfWinExist, [VxE]'s inactive mouse/modifier assistant.
; These hotkeys are only active if the script is in 'inactive' mode
*F1:: ; press F1 to hold down the left mouse button
*F2:: ; press F2 to hold down the middle button
*F3:: ; press F3 to hold down the right button
   KeyWait, % SubStr( A_ThisHotkey, 2 )
   Btn := SubStr( A_ThisHotkey, 0 ) ; either 1, 2, or 3
   GuiControl, +BackGroundFCBA2C, bk%Btn%
   %Btn%State := 1
   Click, % SubStr( "LMR", Btn, 1 ) . " Down"
   Prompt := ""
   Loop, Parse, Modifiers, |
      If GetKeyState( A_LoopField )
         Prompt .= "+" A_LoopField
   StringTrimLeft, Prompt, Prompt, 1
   Prompt := StrLen( Prompt ) ? Prompt : "_ _ _"
   GuiControl,, tm%Btn%, %Prompt%
   Gui, Show, NoActivate, [VxE]'s active mouse/modifier assistant.
Return

#IfWinExist, [VxE]'s active mouse/modifier assistant.
; All these hotkeys are context sensitive based on the gui window's title
*F1:: ; press F1 again to release the left button
*F2:: ; when the script is no longer holding a button,
*F3:: ; normal mouse function is restored
   KeyWait, % SubStr( A_ThisHotkey, 2 )
   Btn := SubStr( A_ThisHotkey, 0 ) ; either 1, 2, or 3
   %Btn%State := !%Btn%State
   Click, % SubStr( "LMR", Btn, 1 ) . ( %Btn%State ? " Down" : " Up" )
   GuiControl,, tm%btn%, % ( %Btn%State ? Prompt : "F" Btn )
   GuiControl, % "+BackGround" . ( %Btn%State ? "FCBA2C" : "FFFFFF" ), bk%Btn%
   If ( 3 = !1State + !2State + !3State )
   {
      Loop, 3
         GuiControl,, tm%A_Index%, F%A_Index%
      Gui, Show, NoActivate, [VxE]'s inactive mouse/modifier assistant.
   }
Return

; Block normal mouse clicks, these work just fine

*LButton::
*MButton::
*RButton::
*LButton Up::
*MButton Up::
*RButton Up::

; These SHOULD block the modifier key PRESSES AND RELEASES
; but I couldn't get it to work in my tests.

*LCtrl::
*LAlt::
*LShift::
*LCtrl Up::
*LAlt Up::
*LShift Up::

*RCtrl::
*RAlt::
*RShift::
*RCtrl Up::
*RAlt Up::
*RShift Up::
Return

#IfWinActive
#esc::Exitapp

WM_LBUTTONDOWN( wparam, lparam, msg, hwnd ) {
   Gui, %A_Gui%:+LastFound
   PostMessage, 0xA1, 2
}

#NoEnv
SetTitleMatchMode, 2
WinTitle := "PSPad" ; "Maya window's title"
GroupAdd, Maya, %WinTitle%
Action := False
F_LButton := "F1"
F_MButton := "F2"
F_RButton := "F3"
Btn_F1 := "LButton"
Btn_F2 := "MButton"
Btn_F3 := "RButton"
Key_F1 := False
Key_F2 := False
Key_F3 := False
Key_Alt := False
Key_Ctrl := False
Key_Shift := False
SetMouseHotkeys("Off")
SetTimer, KeyState, 500
Return
; ------------------------------------------------------------------------------
KeyState:
   TT := ""
   If WinActive("ahk_group Maya") && (Action = True) {
      TT .= GetKeyState("Alt") ? "Alt`n" : ""
      TT .= GetKeyState("Ctrl") ? "Ctrl`n" : ""
      TT .= GetKeyState("Shift") ? "Shift`n" : ""
      TT .= GetKeyState("LButton") ? "LButton`n" : ""
      TT .= GetKeyState("MButton") ? "MButton`n" : ""
      TT .= GetKeyState("RButton") ? "RButton`n" : ""
   }
   ToolTip, %TT%
Return
; ------------------------------------------------------------------------------
SetMouseHotkeys(State) {
   Global
   Hotkey, IfWinActive, ahk_group Maya
   Loop, 3 {
      Hotkey, % "*" . Btn_F%A_Index%, %State%
      Hotkey, % "*" . Btn_F%A_index% . " Up", %State%
   }
   Hotkey, IfWinActive
}
#IfWinActive ahk_group Maya
; ------------------------------------------------------------------------------
*F1::
*F2::
*F3::
   HK := SubStr(A_ThisHotkey, 2)
   SI := ""
   If (Key_%HK%) {
      SI .= Key_Alt ? "{Alt Up}" : ""
      SI .= Key_Ctrl ? "{Ctrl Up}" : ""
      SI .= Key_Shift ? "{Shift Up}" : ""
      SI .= "{" . Btn_%HK% . " Up}"
      SendInput %SI%
      Key_Alt := Key_Ctrl := Key_Shift := Key_%HK% := Action := False
      SetMouseHotkeys("Off")
      ; MsgBox, %SI%
   }
   Else {
      Key_Alt := GetKeyState("Alt")
      Key_Ctrl := GetKeyState("Ctrl")
      Key_Shift := GetKeyState("Shift")
      KeyWait, %HK%
      KeyWait, Alt
      KeyWait, Ctrl
      KeyWait, Shift
      SI .= Key_Alt ? "{Alt Down}" : ""
      SI .= Key_Ctrl ? "{Ctrl Down}" : ""
      SI .= Key_Shift ? "{Shift Down}" : ""
      SI .= "{" . Btn_%HK% . " Down}"
      SendInput %SI%
      Key_%HK% := Action := True
      SetMouseHotkeys("On")
      ; MsgBox, %SI%
   }
Return
; ------------------------------------------------------------------------------
*LButton::
*MButton::
*RButton::
Return
; ------------------------------------------------------------------------------
*LButton Up::
*MButton Up::
*RButton Up::
   HK := SubStr(A_ThisHotkey, 2, 7)
   FK := F_%HK%
   SI := ""
   If (FK) {
      SI .= Key_Alt ? "{Alt Up}" : ""
      SI .= Key_Ctrl ? "{Ctrl Up}" : ""
      SI .= Key_Shift ? "{Shift Up}" : ""
      SI .= "{" . HK . " Up}"
      SendInput %SI%
      Key_Alt := Key_Ctrl := Key_Shift := Key_%FK% := Action := False
      SetMouseHotkeys("Off")
      ; MsgBox, %SI%
   }
Return
#IfWinActive