<Ctrl+鼠标中键>移动窗口
2016-07-12 本文已影响42人
sixtyone
;<Ctlr+鼠标中键> 移动窗口
SetWindelay,0
CoordMode,Mouse,Screen
^mbutton::
MouseGetPos,x,y,win
WinGetPos,x1,y1,,,ahk_id %win%
a=%x1%
b=%y1%
loop
{
MouseGetPos,x2,y2
c=%x2%
d=%y2%
c-=%x%
d-=%y%
a+=%c%
b+=%d%
x=%x2%
y=%y2%
Winmove,ahk_id %win%,,%a%,%b%
getkeystate,var,Mbutton,p
if var=U
return
Sleep,20
continue
}
return
