易语言后台暗码监控源码（精易模块版本）

.版本 2
.支持库 spec
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 记录, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 钩子, 类_钩子

钩子.安装钩子_键盘 (取窗口句柄 (), &回调函数, 真)


.子程序 回调函数
.参数 按键类型, 整数型
.参数 键代码, 整数型

调试输出 (按键类型)
调试输出 (键代码)
.如果真 (按键类型 ＝ 257)
    .如果真 (键代码 ＝ #键1)
        记录 ＝ 记录 ＋ 到文本 (键代码)
        .如果真 (记录 ＝ “49”)
            返回 ()
        .如果真结束
        记录 ＝ “”
        返回 ()

    .如果真结束
    .如果真 (键代码 ＝ #键2)
        记录 ＝ 记录 ＋ 到文本 (键代码)
        .如果真 (记录 ＝ “4950”)
            返回 ()
        .如果真结束
        记录 ＝ “”
        返回 ()

    .如果真结束

    .如果真 (键代码 ＝ #键3)
        记录 ＝ 记录 ＋ 到文本 (键代码)
        .如果真 (记录 ＝ “495051”)
            返回 ()
        .如果真结束
        记录 ＝ “”
        返回 ()

    .如果真结束

    .如果真 (键代码 ＝ #键4)
        记录 ＝ 记录 ＋ 到文本 (键代码)
        .如果真 (记录 ＝ “49505152”)
            返回 ()
        .如果真结束
        记录 ＝ “”
        返回 ()

    .如果真结束

    .如果真 (键代码 ＝ #键5)
        记录 ＝ 记录 ＋ 到文本 (键代码)
        .如果真 (记录 ＝ “4950515253”)
            返回 ()
        .如果真结束
        记录 ＝ “”
        返回 ()

    .如果真结束

    .如果真 (键代码 ＝ #键6)
        记录 ＝ 记录 ＋ 到文本 (键代码)
        .如果真 (记录 ＝ “495051525354”)
            启动线程 (&子程序1, , )
            返回 ()
        .如果真结束
        记录 ＝ “”
        返回 ()

    .如果真结束

    记录 ＝ “”
.如果真结束


.子程序 子程序1

信息框 (“ok ”, 0, , )