Advertisement
Guest User

Aero Peek Click Through Script

a guest
Oct 8th, 2011
244
0
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.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement