板 1- 前 次 新 ﾚｽ
スクリプト投稿スレ
[62]unnamed.ahk：05/02/02 03:41 ID:???
適当に書いた非常駐のウィンドウ最前面/透明化スクリプト
しょぼいけど晒してみる
SetTimer,ShowTooltip,300
t=OFF
Esc::
RButton::
ExitApp
ShowToolTip:
ToolTip,LButton `:最前面表示ON/OFF`nMButton `:透明度変更(%t%)`nShift+MButton `: 特定色透明化`nEsc/RButton `: キャンセル
return
LButton::
MouseGetPos,,,wnd
WinSet,Topmost,Toggle,ahk_id %wnd%
ExitApp
WheelDown::
If t=OFF
t=224
else
If t>0
t-=32
return
WheelUp::
If t<>OFF
{
t+=32
If t>0xFF
t=OFF
}
return
MButton::
MouseGetPos,,,wnd
WinSet,Trans,%t%,ahk_id %wnd%
ExitApp
+MButton::
MouseGetPos,xx,yy,wnd
PixelGetColor,cl,%xx%,%yy%,RGB
WinSet,TransColor,%cl% %t%,ahk_id %wnd%
ExitApp
前 次