两个独立正常的AutoHotkey脚本合并后致资源管理器冻结求助

我编写了两个AutoHotkey脚本，单独运行时均能正常实现预期功能，但合并为同一个脚本后频繁出现异常：

• 鼠标卡在滚动模式，需再次按下并释放鼠标中键才能恢复；
• 任务栏冻结，需通过重新加载脚本、结束AutoHotkey进程、结束资源管理器进程甚至重启系统恢复，每小时会发生多次。

两个脚本的功能与代码 #

脚本1：按住鼠标中键时移动鼠标实现滚动（适配指点杆） #

MyScroll:
    MouseGetPos, xnew, ynew
    If ((xold<>xnew) or (yold<>ynew))   {
        MouseMove, xold, yold
    }
    
    if (ynew>yold) {
      Send {WheelDown}
    }
    
    if (ynew<yold) {
      Send {WheelUp}
    }
    
    if (xnew>xold) {
      Send {WheelRight}
    }
    
    if (xnew<xold) {
      Send {WheelLeft}
    }
return

MButton::
    MouseGetPos, xold, yold
    settimer, MyScroll, 20
return

MButton Up::settimer, MyScroll, off

脚本2：按住鼠标中键时重映射按键（无需移动手腕使用方向键） #

#if GetKeyState("MButton", "P")

j::Left
+j::+Left
^j::^Left
+^j::+^Left
!j::!Left
!^j::!^Left
!+j::!+Left
!^+j::!^+Left

k::Down
+k::+Down
^k::^Down
+^k::+^Down
!k::!Down
!^k::!^Down
!+k::!+Down
!^+k::!+Down

; ...（其余按键重映射代码省略）

脚本头部代码 #

#NoEnv  ; 提升性能并兼容未来AHK版本
#Warn  ; 启用警告检测常见错误
SendMode Input  ; 新脚本推荐模式，速度快且可靠
SetWorkingDir %A_ScriptDir%  ; 确保工作目录一致

冲突原因分析 #

1. 中键状态检测逻辑冲突：脚本1用MButton::和MButton Up::拦截原生中键消息来控制定时器，而脚本2用#if GetKeyState("MButton", "P")检测按键状态。合并后，拦截行为会导致GetKeyState的状态检测出现延迟或不一致，定时器无法被正确关闭，进而引发滚动模式卡住的问题。
2. 高频率资源竞争：脚本1的定时器每20ms触发一次，频繁执行MouseMove和Send指令；同时脚本2的按键重映射会实时拦截按键消息，两者同时运行时会占用大量系统资源，导致依赖资源管理器的任务栏响应卡顿甚至冻结。
3. 消息队列堵塞：中键按下时，定时器启动与按键重映射的触发存在时序冲突，会堵塞系统消息队列，引发界面无响应。

解决方案 #

方案1：统一中键状态管理，不拦截原生消息 #

修改中键触发逻辑，用~前缀保留原生中键消息传递，同时结合KeyWait和GetKeyState确保定时器状态同步：

#Persistent

~MButton::
    MouseGetPos, xold, yold
    SetTimer, MyScroll, 20
    ; 等待中键释放后关闭定时器
    KeyWait, MButton
    SetTimer, MyScroll, Off
return

MyScroll:
    ; 实时检测中键状态，防止异常情况下定时器未关闭
    if !GetKeyState("MButton", "P") {
        SetTimer, MyScroll, Off
        return
    }
    MouseGetPos, xnew, ynew
    If ((xold<>xnew) or (yold<>ynew)) {
        MouseMove, xold, yold, 0  ; 0表示瞬间移动，降低延迟
    }
    
    if (ynew > yold) {
        Send {WheelDown}
    } else if (ynew < yold) {
        Send {WheelUp}
    }
    
    if (xnew > xold) {
        Send {WheelRight}
    } else if (xnew < xold) {
        Send {WheelLeft}
    }
    ; 更新坐标，避免重复触发无效滚动
    xold := xnew
    yold := ynew
return

; 保留原按键重映射逻辑
#if GetKeyState("MButton", "P")
j::Left
+j::+Left
; ...其余重映射代码
#if

方案2：优化定时器与指令执行，降低资源占用 #

降低定时器触发频率，同时添加滚动动作去重逻辑，减少不必要的指令执行：

; 修改定时器间隔为50ms，减少触发次数
~MButton::
    MouseGetPos, xold, yold
    SetTimer, MyScroll, 50
    KeyWait, MButton
    SetTimer, MyScroll, Off
return

MyScroll:
    static lastAction := ""
    if !GetKeyState("MButton", "P") {
        SetTimer, MyScroll, Off
        lastAction := ""
        return
    }
    MouseGetPos, xnew, ynew
    currentAction := ""
    
    If ((xold<>xnew) or (yold<>ynew)) {
        MouseMove, xold, yold, 0
    }
    
    if (ynew > yold) {
        currentAction := "Down"
    } else if (ynew < yold) {
        currentAction := "Up"
    } else if (xnew > xold) {
        currentAction := "Right"
    } else if (xnew < xold) {
        currentAction := "Left"
    }
    
    ; 仅当动作变化时发送滚动指令，避免重复执行
    if currentAction != lastAction {
        Send {Wheel%currentAction%}
        lastAction := currentAction
    }
    xold := xnew
    yold := ynew
return

; 按键重映射部分保持不变
#if GetKeyState("MButton", "P")
j::Left
; ...其余重映射代码
#if

方案3：拆分功能为独立脚本，通过全局变量同步状态 #

如果合并脚本的冲突难以彻底解决，可将两个功能拆分为独立脚本，用全局变量传递中键状态：

• 滚动功能脚本：负责检测中键状态并控制滚动，设置全局变量IsMButtonPressed
• 按键重映射脚本：通过#if IsMButtonPressed判断是否启用重映射

滚动脚本示例：

#Persistent
#SingleInstance Force
global IsMButtonPressed := false

~MButton::
    IsMButtonPressed := true
    MouseGetPos, xold, yold
    SetTimer, MyScroll, 20
    KeyWait, MButton
    IsMButtonPressed := false
    SetTimer, MyScroll, Off
return

MyScroll:
    if !IsMButtonPressed {
        SetTimer, MyScroll, Off
        return
    }
    MouseGetPos, xnew, ynew
    If ((xold<>xnew) or (yold<>ynew)) {
        MouseMove, xold, yold, 0
    }
    
    if (ynew > yold) {
        Send {WheelDown}
    } else if (ynew < yold) {
        Send {WheelUp}
    }
    
    if (xnew > xold) {
        Send {WheelRight}
    } else if (xnew < xold) {
        Send {WheelLeft}
    }
    xold := xnew
    yold := ynew
return

按键重映射脚本示例：

#Persistent
#SingleInstance Force
global IsMButtonPressed := false

#if IsMButtonPressed
j::Left
+j::+Left
; ...其余重映射代码
#if

内容的提问来源于stack exchange，提问作者Andrey Mikhaylov - lolmaus