AutoHotkey v2中仅部分热键的MsgBox与GUI生效问题咨询

问题 #

我编写了如下AutoHotkey v2代码：

#Requires AutoHotkey v2.0

global MyGui := ""
global uNID := "", Password := ""
global EditUsername := "", EditPassword := ""
global CurrentDay := A_DD
global Oct31MessageShown := false
global SavesFilePath := A_ScriptDir . "\\julia present\\Julias present saves"

^END::Reload
^+END::ExitApp
^!T::MsgBox("Test hotkey works!")

^+U:: {
Run("https://go.utah.edu/cas/login?service=https%3A%2F%2Fincommon2.sso.utah.edu%2Fidp%2FAuthn%2FExternal%3Fconversation%3De1s1&entityId=http%3A%2F%2Futah.instructure.com%2Fsaml2")

    ; Wait for the page to load (adjust the sleep time if needed)
    Sleep(1000)
    
    ; Read the saved credentials
    savedUNID := ReadSavedCredential("uNID")
    savedPassword := ReadSavedCredential("Password")
    
    ; Ensure the window is active
    if WinExist("A")
        WinActivate
    
    ; Paste the username
    if (savedUNID != "") {
        SendInput(savedUNID)
        Sleep(100)  ; Increased delay before tabbing to next field
        SendInput("{Tab}")
    }
    
    ; Paste the password
    if (savedPassword != "") {
        Sleep(100)  ; Increased delay before pasting password
        SendInput(savedPassword)
        Sleep(100)  ; Increased delay before pressing Enter
        SendInput("{Enter}")
    }

}

^+!U:: {
global MyGui, uNID, Password, EditUsername, EditPassword

    MyGui := Gui()
    MyGui.Add("Text",,, "Please enter your U of U ID:")
    EditUsername := MyGui.Add("Edit", "vuNID w200")
    MyGui.Add("Text",,, "Please enter your U of U Password:")
    EditPassword := MyGui.Add("Edit", "vPassword w200 Password")
    SubmitButton := MyGui.Add("Button", "w100", "Submit").OnEvent("Click", ButtonSubmit)
    
    ; Create a hotkey that's only active when the GUI is open
    HotIfWinactive("ahk_class AutoHotkeyGUI")
    Hotkey("Enter", HandleEnter)
    
    MyGui.Show()

}

ButtonSubmit(*) {
; Retrieve the values from the GUI controls
savedUNID := EditUsername.Text
savedPassword := EditPassword.Text

    ; Close the GUI
    MyGui.Destroy()
    
    ; Save the credentials to file
    SaveCredentials(savedUNID, savedPassword)
    
    ; Display the entered information
    MsgBox("Credentials saved successfully!`nuNID: " . savedUNID . "`nPassword: " . savedPassword)
    
    ; Update global variables
    global uNID := savedUNID
    global Password := savedPassword

}

; Function to handle Enter key press
HandleEnter(*) {
if (MyGui.FocusedCtrl = EditUsername) {
EditPassword.Focus()
} else if (MyGui.FocusedCtrl = EditPassword) {
ButtonSubmit()
}
}

; Function to save credentials to the file
SaveCredentials(uNID, Password) {
try {
; Clear the file by opening it in write mode (which truncates the file)
fileObj := FileOpen(SavesFilePath, "w")
if (fileObj) {
; Write the new credentials
fileObj.Write("uNID:" . uNID . "\`n")
fileObj.Write("Password:" . Password)
fileObj.Close()
} else {
throw Error("Unable to open file for writing")
}
} catch as err {
MsgBox("Error saving credentials: " . err.Message)
}
}

; Function to read a specific credential from the file
ReadSavedCredential(credentialType) {
try {
fileContent := FileRead(SavesFilePath)
lines := StrSplit(fileContent, "\`n")
for line in lines {
if (InStr(line, credentialType . ":") == 1) {
return StrSplit(line, ":")[2]
}
}
} catch as err {
MsgBox("Error reading credentials: " . err.Message)
}
return ""
}

UpdateCurrentDay() {
global CurrentDay, Oct31MessageShown
newDay := A_DD
MsgBox("current day" . CurrentDay . "newDay" . newDay)
if (newDay != CurrentDay) {
CurrentDay := newDay

        ; Reset the flag if it's a new day
        Oct31MessageShown := false
        
        ; Check if it's October 31st, 2024
        if (A_MM = "9" and A_DD = "4" and !Oct31MessageShown) {
            SoundBeep
            MsgBox("About to call OpenSpecialWindow")
            OpenSpecialWindow()
            Oct31MessageShown := true
        }
    }

}

OpenSpecialWindow() {
MsgBox("OpenSpecialWindow function called")

    specialGui := Gui()
    specialGui.Add("Text",,, "Happy Birthday Julia, and Happy Halloween")
    specialGui.Add("Text",,, "This is a special message for October 31st")
    specialGui.Add("Button", "w100", "Close").OnEvent("Click", (*) => specialGui.Destroy())
    
    specialGui.Show()
    
    MsgBox("GUI should be visible now")

}

SetTimer(UpdateCurrentDay, 60000)
UpdateCurrentDay()

目前仅^+U和^+!U热键对应的GUI与MsgBox能正常显示，而^!T热键的MsgBox、脚本加载时的MsgBox以及UpdateCurrentDay函数中的MsgBox均无法弹出，请问这是什么原因？

原因分析与解决方案 #

1. 函数内全局变量声明语法错误 #

AutoHotkey v2不允许在函数内使用global var := value的语法，必须先声明全局变量，再单独赋值。你的ButtonSubmit函数中存在这个错误，会导致脚本执行到该函数时崩溃，甚至影响整体后续逻辑。

修复方法：

ButtonSubmit(*) {
    ; ... 现有代码 ...
    ; 先声明全局变量，再赋值
    global uNID, Password
    uNID := savedUNID
    Password := savedPassword
}

2. 热键触发条件未重置 #

在^+!U的函数中，你用HotIfWinactive("ahk_class AutoHotkeyGUI")设置了Enter热键的窗口触发条件，但未在GUI关闭后重置全局热键条件，可能导致热键触发逻辑异常。

修复方法：在ButtonSubmit函数中添加热键条件重置：

ButtonSubmit(*) {
    ; ... 现有代码 ...
    HotIf() ; 重置热键触发条件为全局生效
}

3. 文件读写的换行符错误 #

你在保存和读取凭证时使用了"\n"作为换行分隔符，但AutoHotkey v2中换行符是`` "n" ``，不需要额外反斜杠。这个错误会导致凭证读取失败，甚至引发异常影响脚本运行。

修复两处：

• 在SaveCredentials函数中：

  fileObj.Write("uNID:" . uNID . "`n") ; 去掉反斜杠
  

• 在ReadSavedCredential函数中：

  lines := StrSplit(fileContent, "`n") ; 去掉反斜杠
  

4. 系统权限或弹窗拦截问题 #

如果上述修复后仍无法显示MsgBox，排查以下两点：

• 右键脚本选择以管理员身份运行，部分系统环境下非管理员权限的脚本无法在前台弹出MsgBox。
• 暂时关闭杀毒软件、Windows Defender弹窗拦截等工具，确认是否有软件阻止了MsgBox弹出。

内容的提问来源于stack exchange，提问作者Lucas Hicken