[GoldenDict]AutoHotKey 划词翻译脚本

V2EX = way to explore

V2EX 是一个关于分享和探索的地方

现在注册

已注册用户请登录

爱意满满的作品展示区。

这是一个创建于 2191 天前的主题，其中的信息可能已经有所发展或是发生改变。

需搭配 GoldenDict 使用, 启用 /禁用快捷键 Alt + 5, 默认禁用

双击翻译划词翻译

脚本代码

; goldendict 查词
; 使用方法 
; 在需翻译单词上双击 /划词
; 启用 /禁用快捷键
; Alt + 5
Translate := false
!5:: 
    Translate := !Translate
    return
~LButton:: 
    if (!Translate) {
        return
    }
    CoordMode, Mouse, Screen
    MouseGetPos, x1, y1
    KeyWait, LButton
    MouseGetPos, x2, y2
    if (abs(x1-x2) > 10 || abs(y1-y2) > 10) {
        Translate()
    } 
    if (A_priorHotKey == "~LButton" && A_TimeSincePriorHotkey < 400) {
        Translate()
    }
    return
Translate() {
    Send, ^c
    len := strlen(Clipboard)
    if (len > 20 || len < 2)  { 
        ;MsgBox %len%
        return
    }
    FoundPos := RegExMatch(Clipboard, "[^A-Za-z' ]")
    if (FoundPos > 0) {
        return
    }
    ; 将此处替换为 GoldenDict.exe 所在位置的绝对路径
    run E:\GoldenDict\GoldenDict.exe  %Clipboard%
    Clipboard =
    return
}

4 条回复