在任务栏上滚动滚轮来改变系统音量
#If MouseIsOver("ahk_class Shell_TrayWnd")
WheelUp::Send {Volume_Up}
WheelDown::Send {Volume_Down}
MouseIsOver(WinTitle) {
MouseGetPos,,, Win
return WinExist(WinTitle . " ahk_id " . Win)
}
#If
任意窗口置顶
;窗口控制
!a::
MouseGetPos , , , zdwid , ; 得到鼠标所在位置窗口的id及控件名称
WinSet, AlwaysOnTop, toggle,ahk_id %zdwid%
WinGet,zd_pd, ExStyle,ahk_id %zdwid%
if (zd_pd & 0x8) ; 0x8 为 WS_EX_TOPMOST
ToolTip,窗口已置顶
Else
ToolTip,窗口已取消置顶
sleep,3000
ToolTip
return
移除活动窗口的标题栏,获大更大视觉空间
!e::
biaotyic+=1
MouseGetPos , , , btwid , ; 得到鼠标所在位置窗口的id及控件名称
if biaotyic>0
{
WinSet, Style, -0xC00000,ahk_id %btwid%; 移除活动窗口的标题栏 (WS_CAPTION).
biaotyic*=-1
}
else
{
WinSet, Style, +0xC00000,ahk_id %btwid%; 恢复活动窗口的标题栏 (WS_CAPTION).
}
return
任意窗口透明化
!t::
MouseGetPos,,, MouseWin
WinGet, Transparent, Transparent, ahk_id %MouseWin%
;ToolTip Translucency:`t"%Transparent%"`nTransColor:`t%TransColor%
if Transparent!=
WinSet, TransColor, Off, ahk_id %MouseWin%
;关闭透明
else
{
MouseGetPos, MouseX, MouseY, MouseWin
PixelGetColor, MouseRGB, %MouseX%, %MouseY%, RGB
; 似乎有必要首先关闭任何现有的透明度:
WinSet, TransColor, Off, ahk_id %MouseWin%
WinSet, TransColor, %MouseRGB% 192, ahk_id %MouseWin%
}
return
>---
转载于:https://www.cnblogs.com/pxyufeng/p/4161628.html