- 1 名前：名無しさん＠お腹いっぱい。 [2009/05/23(土) 00:23:38 ID:78PWRd9v0]
- ■公式
www.autohotkey.com/
■解説
AutoHotkeyを流行らせるページ
lukewarm.s101.xrea.com/
■過去スレ
1 pc7.2ch.net/test/read.cgi/software/1098531338/
2 pc7.2ch.net/test/read.cgi/software/1129836713/
3 pc11.2ch.net/test/read.cgi/software/1157043396/
4 pc11.2ch.net/test/read.cgi/software/1184556627/
5 pc11.2ch.net/test/read.cgi/software/1201502896/
6 pc11.2ch.net/test/read.cgi/software/1219130051/
7 pc12.2ch.net/test/read.cgi/software/1230694774/
■派生版
AutoHotkey_L
www.autohotkey.net/~Lexikos/AutoHotkey_L/
駄目文字微対策版
yak.myhome.cx/junks/#ahk.cp932
関連リンク>>2以降も参照
- 76 名前：1/2 mailto:sage [2009/05/29(金) 13:22:46 ID:u1yo0xzx0]
- >>63 のマウス追従Ver 作ってみた。 タイマ未使用、Shiftで固定、ESCで終了
#1:: ClipWindow_MouseFollows()
ClipWindow_MouseFollows(size=200, Pause="Shift",endKey="ESC", ignoreClassPattern="Shell_TrayWnd|BaseBar") {
static list
IfNotEqual,list,, return ;semaphore
DetectHiddenWindows, Off
CoordMode, Mouse, Screen
WinGet, list, List
Loop, %list%
l := list%A_Index% . (l ? "|" : "|0x0") . l
While !GetKeyState(endKey) && Instr(l,WinActive("A")) {
if GetKeyState(pause) {
KeyWait,%pause%
pmode := (pmode!=1 ? 1 : 0)
}
IfEqual,pmode,1, continue
MouseGetPos, mx, my
if ((mxs-10 < mx) && (mx < mxs+10) && (mys-10 < my) && (my < mys+10))
continue
mxs:=mx, mys=my
- 77 名前：2/2 mailto:sage [2009/05/29(金) 13:24:56 ID:u1yo0xzx0]
- Loop, % (list-1) {
IfWinNotExist, % "ahk_id " list%A_Index%
continue
WinGetClass, class
If ignoreClassPattern && RegExMatch(class, ignoreClassPattern)
continue
WinGetPos, x, y, w, h
mx1:=mx-x-size//2, my1:=my-y-size//2, mx2:=mx-x+size//2, my2:=my-y+size//2
If (mx1>w || my1>h || mx2<0 || my2<0)
continue
WinSet, Region, 0-0 %w%-0 %w%-%h% 0-%h% %mx1%-%my1% %mx2%-%my1% %mx2%-%my2% %mx1%-%my2% %mx1%-%my1% 0-%h%
if !Instr(clipped,list%A_Index%)
clipped := list%A_Index% . (clipped ? "|" : "") . clipped
}
Sleep,50
}
DetectHiddenWindows, On
Loop, PARSE, clipped, |
WinSet, Region,, ahk_id %A_LoopField%
list=
}
>>67
プリインスコのメーカーロゴ、エロいの持ってねぇ(´･ω･｀)
|
 |
