模拟Windows 7 AeroPeek效果的小工具（0.1 alpha）

;Desktop Utility
;bsmagic
;2009
;v0.01
#Persistent
#SingleInstance,Force
SetWinDelay,0
SetBatchLines,-1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
x2:=A_ScreenWidth-5
y2:=A_ScreenHeight-3
time_cum_flip=0
;menu ,tray,NoStandard
menu ,tray,add
menu ,tray,icon,shell32.dll,049,1
CoordMode ,mouse,screen
SetTimer, CheckMouse2, 250

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

~LButton::
    MouseGetPos,x,y
    if(x>=x2 and y>=y2) {
    ;    run,"%A_WorkingDir%\showdesktop.scf"
        TransAll()
    }
Return
~LButton UP::
    MouseGetPos,x,y
    if(x>=x2 and y>=y2) {
    ;    run,"%A_WorkingDir%\showdesktop.scf"
        UnTransAll()
    }
Return
CheckMouse2:
    MouseGetPos,x,y
    if(y>=y2 and x<=x2) {
        time_cum_flip+=250
        if(time_cum_flip>=1000) {
            run,"%A_WorkingDir%\Flip 3d.lnk"
            time_cum_flip=0
        }
    }else{
            time_cum_flip=0
    }
return

UnTransAll() {
    WinGet,id_,List,,,Program Manager
    Loop,%id_%
    {
      StringTrimRight,id,id_%A_Index%,0
      WinGetClass,class,ahk_id %id%
          if(class="Shell_TrayWnd" or class="Progman" or class="kfwindow" or class="Button") {
      }else{
        WinSet,Transparent,Off,ahk_id %id%
      }
    }
    ;WinSet,Transparent,Off,ahk_class Progman
    ;WinSet,Transparent,0,ahk_class Button
}
TransAll(){
    WinGet,id_,List,,,Program Manager
    id:=0
    trans=50
    Loop,%id_%
    {
      StringTrimRight,id,id_%A_Index%,0
      WinGetClass,class,ahk_id %id%
      if(class="Shell_TrayWnd" or class="Progman" or class="kfwindow" or class="Button") {
      }else{
        WinSet,Transparent,%trans%,ahk_id %id%
      }
    }
    WinGet,id,Id,A
    WinGetClass,class,ahk_id %id%
    WinSet,Transparent,Off,ahk_id %id%
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;参考
;TransOther.ahk
; Make transparent all but the active window
;Skrommel @ 2005

;Win7 Appin show desktop
;Appin Sfufoet  逍遥猪葛亮