Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Aero Peek Clickthrough
- ;
- ; Author: Jordan Klassen
- ;
- ; Script Function:
- ; While the script is running on Windows 7, hold Windows Key + Space to activate Aero Peek, and notice you can now click on your icons :)
- ; Source: http://jordoex.wordpress.com/2011/03/02/aero-peek-click-through-script/
- #NoEnv
- SendMode Input
- SetWorkingDir %A_ScriptDir%
- SetControlDelay -1
- tout:= False
- #IfWinExist ahk_class LivePreview
- #LButton::
- {
- MouseGetPos , PosX, PosY,
- ControlFocus , SysListView321, Program Manger
- if tout {
- tout:= False
- ControlSend , SysListView321, {Enter}, Program Manager,,,
- ; PostMessage , 0x203, 0, PosX&0xFFFF | PoxY<<16, SysListView321 ; WM_LBUTTONDBLCLCK
- }
- else {
- tout:= True
- SetTimer , resetTimeout, -300
- ControlClick , SysListView321, Program Manager,,,,x %PosX% y %PosY% D
- }
- return
- }
- #LButton Up::
- {
- MouseGetPos , PosX, PosY,
- ControlClick , SysListView321, Program Manager,,,,x %PosX% y %PosY% U
- return
- }
- #RButton::
- {
- MouseGetPos , PosX, PosY,
- ControlClick , SysListView321, Program Manager,,,2 ,x %PosX% y %PosY% NA
- ; ControlClick2 ( PosX, PosY, Program Manager,,,)
- return
- }
- resetTimeout:
- tout := False
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement