SHARE
TWEET

Aero Peek Click Through Script

a guest Oct 8th, 2011 136 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Aero Peek Clickthrough
  2. ;
  3. ; Author:         Jordan Klassen
  4. ;
  5. ; Script Function:
  6. ;       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 :)
  7. ; Source: http://jordoex.wordpress.com/2011/03/02/aero-peek-click-through-script/
  8.  
  9. #NoEnv
  10. SendMode Input
  11. SetWorkingDir %A_ScriptDir%
  12. SetControlDelay -1
  13.  
  14. tout:= False
  15.  
  16. #IfWinExist ahk_class LivePreview
  17. #LButton::
  18. {
  19.     MouseGetPos , PosX, PosY,
  20.     ControlFocus , SysListView321, Program Manger
  21.     if tout {
  22.         tout:= False
  23.         ControlSend , SysListView321, {Enter}, Program Manager,,,
  24.         ; PostMessage , 0x203, 0, PosX&0xFFFF | PoxY<<16, SysListView321 ; WM_LBUTTONDBLCLCK
  25.     }
  26.     else {
  27.     tout:= True
  28.     SetTimer , resetTimeout, -300
  29.         ControlClick , SysListView321, Program Manager,,,,x %PosX% y %PosY% D
  30.     }
  31.  
  32.     return
  33. }
  34. #LButton Up::
  35. {
  36.     MouseGetPos , PosX, PosY,
  37.     ControlClick , SysListView321, Program Manager,,,,x %PosX% y %PosY% U
  38.     return
  39. }
  40. #RButton::
  41. {
  42.     MouseGetPos , PosX, PosY,
  43.     ControlClick , SysListView321, Program Manager,,,2 ,x %PosX% y %PosY% NA
  44.     ; ControlClick2 ( PosX, PosY, Program Manager,,,)
  45.     return
  46. }
  47.  
  48. resetTimeout:
  49. tout := False
  50. return
  51.  
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top