实用AutoHotkey功能展示

在任务栏上滚动滚轮来改变系统音量

#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

转载于: