[AHK-] AutoHotKey 官方範例 - 移動改變視窗

看板EzHotKey作者VElysian (家瑀致中和)時間16年前 (2008/08/05 17:13)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

AutoHotkey Script Showcase http://www.autohotkey.com/docs/scripts/index.htm Easy Window Dragging -- KDE style (requires XP/2k/NT) -- by Jonny http://www.autohotkey.com/docs/scripts/EasyWindowDrag_(KDE).htm 說明：移動視窗 Alt + 滑鼠左鍵改變視窗大小 Alt + 滑鼠右鍵視窗縮到最小 Alt 放開，再按 Alt + 滑鼠左鍵視窗放到最大 Alt 放開，再按 Alt + 滑鼠右鍵關閉視窗 Alt 放開，再按 Alt + 滑鼠中鍵載點： http://www.autohotkey.com/docs/scripts/EasyWindowDrag_(KDE).ahk 程式碼： ; This script was inspired by and built on many like it ; in the forum. Thanks go out to ck, thinkstorm, Chris, ; and aurelian for a job well done. ; Change history: ; November 07, 2006: Optimized resizing code in !RButton, ; courtesy of bluedawn. ; February 05, 2006: Fixed double-alt (the ~Alt hotkey) ; to work with latest versions of AHK. ; The Double-Alt modifier is activated by pressing ; Alt twice, much like a double-click. Hold the second ; press down until you click. ; ; The shortcuts: ; Alt + Left Button : Drag to move a window. ; Alt + Right Button : Drag to resize a window. ; Double-Alt + Left Button : Minimize a window. ; Double-Alt + Right Button : Maximize/Restore a window. ; Double-Alt + Middle Button : Close a window. ; ; You can optionally release Alt after the first ; click rather than holding it down the whole time. If (A_AhkVersion < "1.0.39.00") { MsgBox,20,,This script may not work properly with your version of AutoHotkey. Continue? IfMsgBox,No ExitApp } ; This is the setting that runs smoothest on my ; system. Depending on your video card and cpu ; power, you may want to raise or lower this value. SetWinDelay,2 CoordMode,Mouse return !LButton:: If DoubleAlt { MouseGetPos,,,KDE_id ; This message is mostly equivalent to WinMinimize, ; but it avoids a bug with PSPad. PostMessage,0x112,0xf020,,,ahk_id %KDE_id% DoubleAlt := false return } ; Get the initial mouse position and window id, and ; abort if the window is maximized. MouseGetPos,KDE_X1,KDE_Y1,KDE_id WinGet,KDE_Win,MinMax,ahk_id %KDE_id% If KDE_Win return ; Get the initial window position. WinGetPos,KDE_WinX1,KDE_WinY1,,,ahk_id %KDE_id% Loop { GetKeyState,KDE_Button,LButton,P ; Break if button has been released. If KDE_Button = U break MouseGetPos,KDE_X2,KDE_Y2 ; Get the current mouse position. KDE_X2 -= KDE_X1 ; Obtain an offset from the initial mouse position. KDE_Y2 -= KDE_Y1 KDE_WinX2 := (KDE_WinX1 + KDE_X2) ; Apply this offset to the window position. KDE_WinY2 := (KDE_WinY1 + KDE_Y2) WinMove,ahk_id %KDE_id%,,%KDE_WinX2%,%KDE_WinY2% ; Move the window to the new position. } return !RButton:: If DoubleAlt { MouseGetPos,,,KDE_id ; Toggle between maximized and restored state. WinGet,KDE_Win,MinMax,ahk_id %KDE_id% If KDE_Win WinRestore,ahk_id %KDE_id% Else WinMaximize,ahk_id %KDE_id% DoubleAlt := false return } ; Get the initial mouse position and window id, and ; abort if the window is maximized. MouseGetPos,KDE_X1,KDE_Y1,KDE_id WinGet,KDE_Win,MinMax,ahk_id %KDE_id% If KDE_Win return ; Get the initial window position and size. WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id% ; Define the window region the mouse is currently in. ; The four regions are ; Up and Left, Up and Right, Down and Left, Down and Right. If (KDE_X1 < KDE_WinX1 + KDE_WinW / 2) KDE_WinLeft := 1 Else KDE_WinLeft := -1 If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 2) KDE_WinUp := 1 Else KDE_WinUp := -1 Loop { GetKeyState,KDE_Button,RButton,P ; Break if button has been released. If KDE_Button = U break MouseGetPos,KDE_X2,KDE_Y2 ; Get the current mouse position. ; Get the current window position and size. WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id% KDE_X2 -= KDE_X1 ; Obtain an offset from the initial mouse position. KDE_Y2 -= KDE_Y1 ; Then, act according to the defined region. WinMove,ahk_id %KDE_id%,, KDE_WinX1 + (KDE_WinLeft+1)/2*KDE_X2 ; X of resized window , KDE_WinY1 + (KDE_WinUp+1)/2*KDE_Y2 ; Y of resized window , KDE_WinW - KDE_WinLeft *KDE_X2 ; W of resized window , KDE_WinH - KDE_WinUp *KDE_Y2 ; H of resized window KDE_X1 := (KDE_X2 + KDE_X1) ; Reset the initial position for the next iteration. KDE_Y1 := (KDE_Y2 + KDE_Y1) } return ; "Alt + MButton" may be simpler, but I ; like an extra measure of security for ; an operation like this. !MButton:: If DoubleAlt { MouseGetPos,,,KDE_id WinClose,ahk_id %KDE_id% DoubleAlt := false return } return ; This detects "double-clicks" of the alt key. ~Alt:: DoubleAlt := A_PriorHotKey = "~Alt" AND A_TimeSincePriorHotkey < 400 Sleep 0 KeyWait Alt ; This prevents the keyboard's auto-repeat feature from interfering. return -- 戰略高手遊戲, 數位, 程設 [jzs/lostname DigitalWare 軟體 Σ軟體應用技巧 [lostname] EzHotKey 軟體 ◎簡化複雜工作的快速鍵軟體 VElysian EzHotKey 主要討論一種可以把複雜的滑鼠鍵盤動作變成簡單的快速鍵的軟體。例如：重複的剪下貼上，或是將滑鼠調整音量的動作簡化成只按 +/- 鍵。包括： AutoHotKey、AutoIt、EZScript、VBScript、Windows 批次檔。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.64.172.234