From 8f738c31b5349860e4daebee9cf0390c2823f2b9 Mon Sep 17 00:00:00 2001 From: 1204244136 <1204244136@qq.com> Date: Fri, 13 Jun 2025 09:51:08 +0800 Subject: [PATCH] =?UTF-8?q?build:=20=E7=A7=BB=E9=99=A4=E4=B8=8D=E5=BF=85?= =?UTF-8?q?=E8=A6=81=E7=9A=84=E4=BE=9D=E8=B5=96?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/DoroDebugger.ahk | 325 ------------------------------------------- 1 file changed, 325 deletions(-) delete mode 100644 lib/DoroDebugger.ahk diff --git a/lib/DoroDebugger.ahk b/lib/DoroDebugger.ahk deleted file mode 100644 index 0a15587..0000000 --- a/lib/DoroDebugger.ahk +++ /dev/null @@ -1,325 +0,0 @@ -#Requires AutoHotkey v2.0 -#SingleInstance Force - -; --- 全局变量定义 --- -Global MyGui := "" ; GUI 对象 -Global gFocusedProgramEdit := "" ; 聚焦窗口编辑框 -Global gCalculatedCoordsEdit := "" ; 换算坐标编辑框 (可编辑) -Global gStatusText := "" ; 状态信息文本 -Global gMouseCoordsEdit := "" ; 鼠标屏幕坐标显示框 -Global gRelativeMouseCoordsEdit := "" ; 鼠标窗口相对坐标显示框 -Global gClientAreaEdit := "" ; 客户区矩形显示框 -Global gPixelColorEdit := "" ; 位置颜色显示框 (十六进制) -Global gPixelCharacterBlock := "" ; 显示颜色字符的 Text 控件 -Global gSelectedRefWidth := 3840 ; 默认目标宽度 (4K) -Global gSelectedRefHeight := 2160 ; 默认目标高度 (4K) -Global gTargethWnd := "" ; 存储上次记录的目标窗口句柄 - -; --- 目标分辨率映射表 --- -resolutions := Map( - "4K", [3840, 2160], - "2K", [2560, 1440], - "1080p", [1920, 1080] -) -defaultRefKey := "4K" - -; --- 获取当前屏幕分辨率 --- -currentW := A_ScreenWidth -currentH := A_ScreenHeight -currentResText := "当前屏幕分辨率: " . currentW . "x" . currentH - -; --- 创建图形用户界面 (GUI) --- -MyGui := Gui("+AlwaysOnTop") -MyGui.Title := "DDB v1.0" - -; 提示信息 -MyGui.Add("Text", "xm y+10", "注意：标题栏和边框均不属于客户区") - -; --- 行 1: 当前分辨率 --- -MyGui.Add("Text", "xm y+10", currentResText) - -; --- 行 2: 目标分辨率 --- -MyGui.Add("Text", "xm y+15", "目标分辨率:") -radio4k := MyGui.Add("Radio", "x+m yp vSelectedResName Checked Group", "4K") -radio2k := MyGui.Add("Radio", "x+m yp", "2K") -radio1080p := MyGui.Add("Radio", "x+m yp", "1080p") - -; --- 行 3: 聚焦窗口 --- -MyGui.Add("Text", "xm y+15", "聚焦窗口:") -gFocusedProgramEdit := MyGui.Add("Edit", "x+m yp w150 ReadOnly Left") - -; --- 行 4: 屏幕位置 --- -MyGui.Add("Text", "xm y+10", "屏幕位置:") -gMouseCoordsEdit := MyGui.Add("Edit", "x+m yp w150 ReadOnly Left") - -; --- 行 5: 窗口位置 --- -MyGui.Add("Text", "xm y+10", "窗口位置:") -gRelativeMouseCoordsEdit := MyGui.Add("Edit", "x+m yp w150 ReadOnly Left") - -; --- 行 6: 客户区矩形 --- -MyGui.Add("Text", "xm y+10", "客户区: ") ; 注意标签后的空格是用户特意加的 -gClientAreaEdit := MyGui.Add("Edit", "x+m yp w150 ReadOnly Left") - -; --- 行 7: 位置颜色 & 复制按钮 & 颜色字符 --- -MyGui.Add("Text", "xm y+10", "位置颜色:") ; 标签 -gPixelColorEdit := MyGui.Add("Edit", "x+m yp w100 ReadOnly Left") ; 显示框 -copyColorButton := MyGui.Add("Button", "x+m yp", "复制") ; 复制按钮 -copyColorButton.OnEvent("Click", CopyPixelColor) -; 使用带颜色的文本字符 '■' 显示颜色，初始为灰色 -myGui.SetFont("s12") -gPixelCharacterBlock := MyGui.Add("Text", "x+m yp c808080", "■") -myGui.SetFont("") - - -; --- 行 8: 换算坐标 & 复制按钮 & 跳转按钮 --- -MyGui.Add("Text", "xm y+10", "换算坐标:") -gCalculatedCoordsEdit := MyGui.Add("Edit", "x+m yp w100 Left", "") ; 允许输入 -copyCoordsButton := MyGui.Add("Button", "x+m yp", "复制") -copyCoordsButton.OnEvent("Click", CopyCalculatedCoords) -jumpButton := MyGui.Add("Button", "y+10", "跳转") ; 跳转按钮另起一行 -jumpButton.OnEvent("Click", JumpToCoords) - -; --- 行 9: 状态信息 --- -gStatusText := MyGui.Add("Text", "xm y+10 w300 vStatusMessage", "按 Ctrl+Alt+Q 获取鼠标信息") ; 初始提示 - -; --- 绑定其他 GUI 事件 --- -radio4k.OnEvent("Click", ResolutionChange) -radio2k.OnEvent("Click", ResolutionChange) -radio1080p.OnEvent("Click", ResolutionChange) -MyGui.OnEvent("Close", GuiClose) - -; --- 显示 GUI --- -MyGui.Show() - -; ============================================================================== -; --- 函数定义 --- -; ============================================================================== - -; --- GUI 事件处理: 分辨率选择变化 --- -ResolutionChange(GuiCtrlObj, Info) { - global gSelectedRefWidth, gSelectedRefHeight, gStatusText, resolutions - selectedName := MyGui["SelectedResName"].Value - logMsg := "" - if RegExMatch(selectedName, "^\w+", &match) { - selectedKey := match[0] - if resolutions.Has(selectedKey) { - gSelectedRefWidth := resolutions[selectedKey][1] - gSelectedRefHeight := resolutions[selectedKey][2] - logMsg := "目标分辨率已更改为 " . selectedKey . " (" . gSelectedRefWidth . "x" . gSelectedRefHeight . ")" - gStatusText.Value := logMsg - } - } -} - -; --- 热键定义: Ctrl+Alt+Q --- -; --- 热键定义: Ctrl+Alt+Q --- -^!Q:: { - ; 引用全局变量 - global MyGui, gFocusedProgramEdit, gCalculatedCoordsEdit, gStatusText, gSelectedRefWidth, gSelectedRefHeight, gMouseCoordsEdit, gRelativeMouseCoordsEdit, gClientAreaEdit, gTargethWnd, gPixelColorEdit, gPixelCharacterBlock - ; 定义局部变量 - local hWnd, progName, winTitle, displayProgInfo, mX, mY, winX, winY, winW, relX, relY, propX, propY, finalX, finalY, isInside := False - local pixelColorRGB, strColor, sixDigitColor - - ; 检查 gPixelCharacterBlock 是否有效 (保留) - if !IsObject(gPixelCharacterBlock) { - MsgBox("脚本错误: 颜色字符控件 'gPixelCharacterBlock' 未初始化。" . "请检查 GUI 创建部分代码是否正确执行。", "初始化错误", "IconError") - Return - } - - ; 强制坐标模式 - CoordMode "Mouse", "Screen" - CoordMode "Pixel", "Screen" - - ; 清空或重置显示字段 - gCalculatedCoordsEdit.Value := "" - gRelativeMouseCoordsEdit.Value := "" - gStatusText.Value := "正在处理..." - gMouseCoordsEdit.Value := "" - gClientAreaEdit.Value := "" - gPixelColorEdit.Value := "" - ; --- ↓↓↓ 直接重置颜色，不再使用 try-catch ↓↓↓ --- - gPixelCharacterBlock.Opt("c808080") ; 重置字符颜色为灰色 (依赖上面的 IsObject 检查) - - ; 获取当前活动窗口 - hWnd := WinActive("A") - if (!hWnd) { - gStatusText.Value := "错误: 未找到活动窗口。" - gFocusedProgramEdit.Value := "N/A" - gTargethWnd := "" - gPixelCharacterBlock.Opt("c808080") ; ★★★ 直接重置 ★★★ - Return - } - gTargethWnd := hWnd - - ; 获取并显示窗口信息 - progName := WinGetProcessName("A") - winTitle := WinGetTitle("A") - displayProgInfo := progName ? progName : (winTitle ? winTitle : "N/A") - gFocusedProgramEdit.Value := displayProgInfo - - ; 获取并显示鼠标屏幕坐标 - MouseGetPos(&mX, &mY) - gMouseCoordsEdit.Value := mX . ", " . mY - - ; 获取并显示像素颜色 及 更新颜色字符 (保留此处的 try-catch) - try { - pixelColorRGB := PixelGetColor(mX, mY, "RGB") - sixDigitColor := Format("{:06X}", pixelColorRGB) - strColor := "0x" . sixDigitColor - gPixelCharacterBlock.Opt("c" . sixDigitColor) ; 设置字符颜色 - gPixelColorEdit.Value := strColor - } catch Error as e { - gPixelColorEdit.Value := "获取失败: " e.Message - gPixelCharacterBlock.Opt("c808080") ; ★★★ 直接重置 ★★★ - } - - ; 获取并显示窗口客户区信息 (保留此处的 try-catch) - try { - WinGetClientPos(&winX, &winY, &winW, &winH, hWnd) - gClientAreaEdit.Value := Format("{},{} {}x{}", winX, winY, winW, winH) - } catch Error as e { - gStatusText.Value := "错误: 获取客户区失败 - " . e.Message - gClientAreaEdit.Value := "Error" - gPixelCharacterBlock.Opt("c808080") ; ★★★ 直接重置 ★★★ - Return - } - - ; 检查窗口尺寸是否有效 - if (winW <= 0 or winH <= 0) { - gStatusText.Value := "错误: 无效窗口尺寸 W:" . winW . ", H:" . winH - gClientAreaEdit.Value := Format("{},{} {}x{}", winX, winY, winW, winH) - gPixelCharacterBlock.Opt("c808080") ; ★★★ 直接重置 ★★★ - Return - } - - ; 进行边界检查 - isInside := (mX >= winX and mX < (winX + winW) and mY >= winY and mY < (winY + winH)) - - ; 根据边界检查结果进行计算和显示 - if (isInside) { - relX := mX - winX - relY := mY - winY - gRelativeMouseCoordsEdit.Value := relX . ", " . relY - - propX := relX / winW - propY := relY / winH - finalX := Round(propX * gSelectedRefWidth) - finalY := Round(propY * gSelectedRefHeight) - gCalculatedCoordsEdit.Value := finalX . ", " . finalY - - gStatusText.Value := "边界检查: 内部" - } else { - gRelativeMouseCoordsEdit.Value := "N/A" - gCalculatedCoordsEdit.Value := "" - gStatusText.Value := "边界检查: 外部(请重新聚焦鼠标)" - } -} ; 热键函数结束 ; 热键函数结束 - -; --- 跳转按钮点击处理函数 --- -JumpToCoords(GuiCtrlObj, Info) { - ; 引用全局变量 - global MyGui, gCalculatedCoordsEdit, gStatusText, gSelectedRefWidth, gSelectedRefHeight, gTargethWnd - - ; 定义局部变量 - local targetX, targetY, propX, propY, desiredRelX, desiredRelY, finalScreenX, finalScreenY - local hWnd, winX, winY, winW, winH - local inputText, match - - gStatusText.Value := "正在处理跳转..." - - ; 检查并使用存储的目标窗口句柄 - if (!gTargethWnd or !WinExist("ahk_id " . gTargethWnd)) { - gStatusText.Value := "错误: 请先用 Ctrl+Alt+Q 记录一个有效的目标窗口。" - gTargethWnd := "" - Return - } - hWnd := gTargethWnd - - ; 获取并验证用户输入的坐标 - inputText := gCalculatedCoordsEdit.Value - if (!RegExMatch(inputText, "^\s*(-?\d+)\s*[,; ]\s*(-?\d+)\s*$", &match)) { - gStatusText.Value := "错误: 无效坐标格式 (请输入 X, Y)" - Return - } - targetX := Integer(match[1]) - targetY := Integer(match[2]) - - ; 可选: 检查输入坐标范围 - if (targetX < 0 or targetX >= gSelectedRefWidth or targetY < 0 or targetY >= gSelectedRefHeight) { - gStatusText.Value := "提示: 输入坐标可能超出目标分辨率范围。" - } - - ; 获取目标窗口的客户区信息 - try { - WinGetClientPos(&winX, &winY, &winW, &winH, hWnd) - if (winW <= 0 or winH <= 0) { - throw Error("无效窗口尺寸 W:" . winW . ", H:" . winH) - } - } catch Error as e { - gStatusText.Value := "错误: 获取目标窗口客户区失败 - " . e.Message - Return - } - - ; 执行反向换算 - if (gSelectedRefWidth <= 0 or gSelectedRefHeight <= 0) { - gStatusText.Value := "错误: 无效的目标分辨率尺寸用于计算。" - Return - } - propX := targetX / gSelectedRefWidth - propY := targetY / gSelectedRefHeight - desiredRelX := propX * winW - desiredRelY := propY * winH - finalScreenX := Round(winX + desiredRelX) - finalScreenY := Round(winY + desiredRelY) - - ; 尝试重新激活目标窗口 - try { - WinActivate("ahk_id " . hWnd) - Sleep 100 - } catch Error as e { - gStatusText.Value := "警告: 激活目标窗口失败 - " e.Message "，仍尝试跳转。" - } - - ; 移动鼠标 - CoordMode "Mouse", "Screen" - MouseMove finalScreenX, finalScreenY, 0 - - ; 更新状态 - gStatusText.Value := "鼠标已跳转至目标窗口对应坐标: " . finalScreenX . ", " . finalScreenY -} - -; --- GUI 关闭处理函数 --- -GuiClose(GuiObj) { - ExitApp() -} - -; --- 复制按钮事件处理函数 --- -CopyPixelColor(GuiCtrlObj, Info) { - global gPixelColorEdit, gStatusText - local colorValue - - colorValue := gPixelColorEdit.Value - if (colorValue != "" && colorValue != "获取失败") { ; 检查是否有有效内容 - A_Clipboard := colorValue - gStatusText.Value := "颜色值 '" colorValue "' 已复制!" - SetTimer(() => (gStatusText.Value == "颜色值 '" colorValue "' 已复制!" ? gStatusText.Value := "" : ""), -2000) - } else { - gStatusText.Value := "没有有效颜色值可复制。" - SetTimer(() => (gStatusText.Value == "没有有效颜色值可复制。" ? gStatusText.Value := "" : ""), -2000) - } -} - -CopyCalculatedCoords(GuiCtrlObj, Info) { - global gCalculatedCoordsEdit, gStatusText - local coordsValue - - coordsValue := gCalculatedCoordsEdit.Value - if (coordsValue != "") { - A_Clipboard := coordsValue - gStatusText.Value := "换算坐标 '" coordsValue "' 已复制!" - SetTimer(() => (gStatusText.Value == "换算坐标 '" coordsValue "' 已复制!" ? (gStatusText.Value := "") : ""), -2000) - } else { - gStatusText.Value := "没有换算坐标可复制。" - SetTimer(() => (gStatusText.Value == "没有换算坐标可复制。" ? (gStatusText.Value := "") : ""), -2000) - } -} \ No newline at end of file