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

天气不好，用AHK写个小软件玩玩，见笑了。

写了一个模拟windows7的窗口透明效果（AeroPeek）。

网上流传的老外写的一个软件，需要.net 3.5,而且很占系统资源。

还很粗糙，请达人改造指正。

*bug issue：会导致 qq音乐桌面歌词变黑。

############

版本:
V0.1
功能:
鼠标悬停在任务栏下方，自动引发flip 3d （VISTA）。
在屏幕右下角点击，窗口透明化，可以看到桌面 （XP,VISTA）。
截图：

http://dl.getdropbox.com/u/220429/aeropeek_sim.png
下载：
http://dl.getdropbox.com/u/220429/Autohide_V0.1.rar
包括脚本源代码和可执行文件。

代码：

 

Code
;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  逍遥猪葛亮

 

转载于:https://www.cnblogs.com/bsmagic/archive/2009/04/06/1430490.html