一、HK简单介绍


AutoHotkey（简称AHK）是一款功能强大的自动化脚本语言，主要用于Windows系统。它可以用于创建快捷键（Hotkeys）、自动化任务、文本替换、窗口管理等。它可以帮助我们提高工作效率。下面是其可以实现的具体功能

1.快捷键与快捷方式：可以为键盘、鼠标、游戏手柄等创建快捷键，提高工作效率。
2.自动化操作：模拟键盘输入、鼠标点击、窗口管理等，实现重复性任务的自动化。
3.文本替换：输入一些字符自动扩展为完整的句子或句子，适合输入大量文本的用户。
4.GUI开发：可以创建简单的图形界面（GUI），如工具箱、弹窗提醒等。
轻量级且易学：语法简单，适合初学者，同时也能编写复杂的自动化脚本。

二、功能介绍


本篇文章主要博主自己编写的一段HK程序，方便学习进行英文联想学习
在选中文本后可实现：
1.shift+a搜索关联图片
2.shift+t翻译单词
3.ctrl+alt+space固定当前窗p口在最上层

三、源码


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
/*
made by Pirrow
welcome to my website:
https://sigma-pirrow.github.io/
*/

^!SPACE::  
{
    Winset, Alwaysontop, , A
}

+T::
{
    __UrlA:="https://dict.youdao.com/result?word="
    __UrlB:="&lang=en"
    __WebsiteName:=""
    clipboard_save:= clipboard
    clipboard:=""
    Send ^{c}
    Sleep 100
    __keyWord:= clipboard
    Clipboard = %clipboard_save%
    if not __keyWord {
        if not __WebsiteName{
            __WebsiteName:=__UrlA
        }
        InputBox, __keyWord,搜索关键字,%__WebsiteName%,,,150
    }
    if (ErrorLevel=0 and __keyWord!=""){
        VarSetCapacity(__Var, StrPut(__keyWord, "UTF-8"), 0)
        StrPut(__keyWord, &__Var, "UTF-8")
        f := A_FormatInteger
        SetFormat, IntegerFast, H
        While __Code := NumGet(__Var, A_Index - 1, "UChar")
            If (__Code >= 0x30 && __Code <= 0x39 ; 0-9
                || __Code >= 0x41 && __Code <= 0x5A ; A-Z
                || __Code >= 0x61 && __Code <= 0x7A) ; a-z
                __Res .= Chr(__Code)
            Else
                __Res .= "%" . SubStr(__Code + 0x100, -1)
        SetFormat, IntegerFast, %f%
        Run %__UrlA%%__Res%%__UrlB%
        __Res:=""
        __Var:=""
    }
    _keyWord:=""
    Return
}

+A::
{
    __UrlA:="https://cn.bing.com/images/search?q="
    __UrlB:="&qs=n&form=QBIR&sp=-1&lq=0&pq=tuna&sc=10-4&cvid=78EEC2FA15E44A6B8B130E90EE2064B9&ghsh=0&ghacc=0&first=1"
       __WebsiteName:=""
    clipboard_save:= clipboard
    clipboard:=""
    Send ^{c}
    Sleep 100
    __keyWord:= clipboard
    Clipboard = %clipboard_save%
    if not __keyWord {
        if not __WebsiteName{
            __WebsiteName:=__UrlA
        }
        InputBox, __keyWord,搜索关键字,%__WebsiteName%,,,150
    }
    if (ErrorLevel=0 and __keyWord!=""){
        VarSetCapacity(__Var, StrPut(__keyWord, "UTF-8"), 0)
        StrPut(__keyWord, &__Var, "UTF-8")
        f := A_FormatInteger
        SetFormat, IntegerFast, H
        While __Code := NumGet(__Var, A_Index - 1, "UChar")
            If (__Code >= 0x30 && __Code <= 0x39 ; 0-9
                || __Code >= 0x41 && __Code <= 0x5A ; A-Z
                || __Code >= 0x61 && __Code <= 0x7A) ; a-z
                __Res .= Chr(__Code)
            Else
                __Res .= "%" . SubStr(__Code + 0x100, -1)
        SetFormat, IntegerFast, %f%
        Run %__UrlA%%__Res%%__UrlB%
        __Res:=""
        __Var:=""
    }
    _keyWord:=""
    Return
}

+S::
{
    ClipSaved := ClipboardAll
    FilePath := "C:\Users\DELL\Desktop\picture.docx" 
    if FileExist(FilePath)
    {
        Run, % "winword.exe " . FilePath
    }
    else
    {
        MsgBox, The file path is invalid or the file does not exist.
        return
    }
    WinWait, ahk_class OpusApp, , 10

    WinActivate, ahk_class OpusApp

    WinWaitActive, ahk_class OpusApp, , 10 
    Send ^v
    Clipboard := ClipSaved
    ClipSaved := ""
    return
}

/*
made by Pirrow
welcome to my website:
https://sigma-pirrow.github.io/
*/

四、GitHub开源链接


https://github.com/Sigma-Pirrow/-HK-Quick-word-search-tool-based-on-HK

撰写不易，感谢支持！！！pirrow爱你！