; @Author : liuyuqi ; @Contact : liuyuqi.gov@msn.cn ; @Time : 2015/07/21 ; @Version : 1.0 ; @Desc : 左shift + 鼠标滚轮调整窗口透明度(设置30-255的透明度) ; 左侧shift + 滚轮下滑:减少透明度,一次10 ; 左侧shift + 滚轮上滑:增加透明度,一次20 ; 左侧shift + 中键按下:恢复透明度至255(完全不透明). ~LShift & WheelUp:: ; 透明度调整,增加。 WinGet, Transparent, Transparent,A If (Transparent = "") Transparent = 255 ;Transparent_New: = Transparent + 10 Transparent_New: = Transparent + 20 ;透明度增加速度。 If (Transparent_New > 254) Transparent_New = 255 WinSet,Transparent,%Transparent_New%,A tooltip now: %Transparent_New%`nmae: __%Transparent% ;查看当前透明度(操作之后的)。 ;sleep 1500 SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式,label在最后。 Return ~LShift & WheelDown:: ;透明度调整,减少。 WinGet, Transparent, Transparent,A If (Transparent = "") Transparent = 255 Transparent_New: = Transparent-10 ;透明度减少速度。 ;msgbox,Transparent_New = %Transparent_New% If (Transparent_New < 30) ;最小透明度限制。 Transparent_New = 30 WinSet,Transparent,%Transparent_New%,A tooltip now: %Transparent_New%`nmae: __%Transparent% ;查看当前透明度(操作之后的)。 ;sleep 1500 SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式,label在最后。 Return ;设置Lwin &Mbutton直接恢复透明度到255。 ~Lshift & Mbutton:: WinGet, Transparent, Transparent,A WinSet,Transparent,255,A tooltip Restored ;查看当前透明度(操作之后的)。 ;sleep 1500 SetTimer, RemoveToolTip_transparent_Lwin, 1500 ;设置统一的这个格式,label在最后。 Return removetooltip_transparent_Lwin: ;LABEL tooltip SetTimer, RemoveToolTip_transparent_Lwin, Off Return