调整大小 – AutoHotKey – 调整Windows大小

每当窗口第一次显示时,它就会被标准化.如果它已关闭并重新打开,则会再次标准化.

下面是脚本的功能版本,应该满足原始问题的要求.

我使用的版本要复杂得多,因为它有更多功能,例如它支持多个监视器并调整窗口大小,同时考虑Windows任务栏的高度.我使用脚本使打开/保存对话框更大(默认情况下它们太小).我还用它来自动登录某些网站和应用程序.

; This script "normalizes" windows,i.e. resizes,moves,and performs other
; actions to make a window confirm to my personal preference.

SettitleMatchMode,2

; Go into an infinite loop
loop
{
    ; Pause so other apps can execute. 250 milliseconds seems to work well.
    Sleep,250

    ; If hotkeys are suspended for this script,then suspend all functionality
    if A_IsSuspended
        conTinue

    ; We will build a unique window name using the window title and window handle.
    ; Store each unique name in an array.
    WinGet,HWND,ID,A
    WinGettitle,Windowtitle,A
    WinGetClass,WindowClass,A

    ; Remember the prevIoUs window we processed
    WindowtitleCleanPrevIoUs := WindowtitleClean

    ; Only normalize windows that we haven't seen before.
    ; If we haven't already normalized the window,we do
    ; the normalize,then set a flag so we don't normalize the same window again.

    ; Strip out all chars that may be invalid in an AHK variable name.
    WindowtitleCleanTemp := StringRemoveAllNonAlphaNum(WindowtitlE)
    ; Variable names can be at most 254 chars,so truncate to less than that.
    StringLeft,WindowtitleClean,WindowtitleCleanTemp,230

    ; Process the window if:
    ; (1) It wasn't prevIoUsly processed (i.e. not in our window-name list named WinList)
    ; (2) And we aren't sitTing on the same window during each loop.
    if (WinList%HWND%%WindowtitleClean% != 1 and WindowtitleClean != WindowtitleCleanPrevIoUs)
    {
        ; Get the window's position and size
        WinGetPos,WinX,WinY,WinWidth,WinHeight,A

        ; Is this an MS Word window?
        if (WindowClass == "OpusApp")
        {
            ; Center the window and resize so it is 80% of the monitor width and 90% of height.
            WinMove,A,(A_ScreenWidth/2)-(WinWidth/2),(A_ScreenHeight/2)-(WinHeight/2),A_ScreenWidth * .8,A_ScreenHeight * .9
        }
        ; Is this the Calculator window?
        else if (WindowClass == "SciCalc")
        {
            ; Center the window
            WinMove,(A_ScreenHeight/2)-(WinHeight/2) 
        }

        ; Set a flag inDicaTing this window has been processed so it is
        ; not processed again.
        WinList%HWND%%WindowtitleClean% = 1
    }
}


; --- Win+F5 will Reload this script ---
~#F5::reload

; --- Win+Escape will Pause this script ---
~#Escape::Suspend,Toggle

; --- Win+Alt+Escape will Exit this script ---
; Close this script
~#!Escape::ExitApp



; ===========================================================================
; Removes all non-alphabetic and non-numeric characters from the given
; String.  The resulTing String is returned.
; ===========================================================================
StringRemoveAllNonAlphaNum(sourceString)
{
    StringSplit,SplitsourceString,sourceString

    OutputString =
    Loop,%splitsourceString0%
    {
        Char := SplitsourceString%A_Index%
        if (Char >= "a") and (Char <= "z")
            OutputString := OutputString Char
        else if (Char >= "0") and (Char <= "9")
            OutputString := OutputString Char
    }

    return OutputString
}