当前位置：首页 > article >正文

[AHK]用大模型写ahk脚本

article 2025/1/5 14:20:45

问题背景

遇到程序在运行，但是在屏幕上看不到的窘境，于是想用AHK来实现一键在主屏幕上居中显示。

解决思路

手撸是不可能手撸的，我有豆包我有cursor，于是想看看她俩到底能力咋样。

提示词

用AHK v2实现：热键Win+C 使当前窗口显示在主屏幕中间

先登场的是豆包

在这里插入图片描述
原始代码如下

#c:: ; #代表Windows键，这里定义了Win+C的热键组合
{
    WinGetPos, x, y, width, height, A ; 获取当前活动窗口（A表示活动窗口）的位置和尺寸信息
    SysGet, MonitorWorkArea, MonitorWorkArea ; 获取主屏幕的工作区域（去除任务栏等占用的区域）信息
    newX := (MonitorWorkAreaRight - MonitorWorkAreaLeft - width) / 2 ; 计算新的X坐标，让窗口在水平方向居中
    newY := (MonitorWorkAreaBottom - MonitorWorkAreaTop - height) / 2 ; 计算新的Y坐标，让窗口在垂直方向居中
    WinMove, A,, newX, newY ; 将活动窗口（A）移动到计算好的新坐标位置，实现居中显示
}

点评，代码根本就不是AHK v2的语法，明显就是AHK v1的，试了一下的确能用，好吧应该是豆包还不擅长AHK v2

后登场的是Cursor用的是claude-3.5-sonnet

在这里插入图片描述
代码说明很人性化

代码说明：

#Requires AutoHotkey v2.0 - 指定需要 AHK v2 运行环境

#SingleInstance Force - 确保脚本只运行一个实例

#c:: - 定义热键为 Win+C

WinExist(“A”) - 获取当前活动窗口的句柄

WinGetPos() - 获取窗口的当前位置和大小

MonitorGetPrimary() - 获取主显示器

MonitorGetWorkArea() - 获取显示器的工作区域（排除任务栏）

计算新的窗口位置，使其在主屏幕中居中
WinMove() - 移动窗口到新位置

使用方法：

保存并运行脚本

选择要居中的窗口
按下 Win+C
窗口将自动移动到主屏幕中间

原始代码

#Requires AutoHotkey v2.0
#SingleInstance Force

; Win+C 将当前窗口居中显示在主屏幕
#c:: {
    ; 获取当前活动窗口
    activeWin := WinExist("A")
    
    ; 获取窗口大小
    winPos := WinGetPos()
    winWidth := winPos.Width
    winHeight := winPos.Height
    
    ; 获取主屏幕分辨率
    mainScreen := MonitorGetPrimary()
    monitorInfo := MonitorGetWorkArea(mainScreen)
    
    ; 计算居中位置
    newX := monitorInfo.Left + (monitorInfo.Right - monitorInfo.Left - winWidth) // 2
    newY := monitorInfo.Top + (monitorInfo.Bottom - monitorInfo.Top - winHeight) // 2
    
    ; 移动窗口到居中位置
    WinMove(newX, newY,,, activeWin)
}

点评，这个脚本看着很现代，不过有点太超前了，据我了解AHK 2.1-alpha.14 也还不支持 winPos := WinGetPos() 这种返回值为对象的方式，所以 winWidth := winPos.Width , winHeight := winPos.Height 报错是必然的。

稍微改下：

#Requires AutoHotkey v2.0
#SingleInstance Force

; Win+C 将当前窗口居中显示在主屏幕
#c:: {
    ; 获取当前活动窗口
    activeWin := WinExist("A")
    ; 获取窗口大小
     WinGetPos( &X, &Y, &winWidth, &winHeight, activeWin)
    ; 获取主屏幕分辨率
    mainScreen := MonitorGetPrimary()
    monitorInfo := MonitorGetWorkArea(mainScreen)
    IsExisting := MonitorGetWorkArea(mainScreen, &Left, &Top, &Right, &Bottom)
    ; 计算居中位置
    newX := Left + (Right - Left - winWidth) // 2
    newY := Top + (Bottom - Top - winHeight) // 2
    ; 移动窗口到居中位置
    WinMove(newX, newY,,, activeWin)
}

可以在AHK v2 中运行了。