连点器

.版本 2

.支持库 shellEx

.支持库 eAPI

.支持库 vclbase



.程序集 窗口程序集1

.程序集变量 q

.程序集变量 b

.程序集变量 d, 逻辑型



.子程序 __启动窗口_创建完毕







热键框1.获取焦点 ()

b ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键)



.子程序 _标签1_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型



.如果真 (参数一 ＝ q)

    .如果真 (编辑框1.内容 ＝ “”)

        信息框 (“请设置秒数！”, 0, )

        返回 ()

    .如果真结束

    .如果 (d ＝ 真)

        d ＝ 假

        时钟1.时钟周期 ＝ 到整数 (编辑框1.内容)

    .否则

        d ＝ 真

        时钟1.时钟周期 ＝ 0

    .如果结束



.如果真结束

.如果真 (参数一 ＝ b)

    .判断开始 (_启动窗口.可视 ＝ 真)

        _启动窗口.可视 ＝ 假

    .默认

        _启动窗口.可视 ＝ 真

    .判断结束



.如果真结束





.子程序 _按钮1_被单击



时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 1000



.子程序 _时钟1_周期事件



.如果真 (组合框1.现行选中项 ＝ 0)

    模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 0)

.如果真结束

.如果真 (组合框1.现行选中项 ＝ 1)

    模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 1)

.如果真结束

.如果真 (组合框1.现行选中项 ＝ 2)

    模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 2)

.如果真结束

.如果真 (组合框1.现行选中项 ＝ 3)

    模拟鼠标点击 (取鼠标水平位置 (), 取鼠标垂直位置 (), 3)

.如果真结束





.子程序 _按钮2_被单击



信息框 (“左键单击一分钟3836次” ＋ #换行符 ＋ #换行符 ＋ “左键双击一分钟7672次！” ＋ #换行符 ＋ #换行符 ＋ “设置完热键后开始使用的时候请先按一下热键！”, 0, )



.子程序 _按钮3_被单击



.如果 (按钮3.标题 ＝ “最前”)

    总在最前 ＝ 真

    按钮3.标题 ＝ “取消”

.否则

    总在最前 ＝ 假

    按钮3.标题 ＝ “最前”

.如果结束





.子程序 _按钮4_被单击



热键框1.禁止 ＝ 假



.子程序 _按钮5_被单击



结束 ()



.子程序 __启动窗口_将被销毁



_启动窗口.销毁 ()



.子程序 _热键框1_热键被改变



连续赋值 (假, 按钮1.禁止, 编辑框1.禁止, 组合框1.禁止)

d ＝ 假

q ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, 热键框1.键)

编辑框1.获取焦点 ()

热键框1.禁止 ＝ 真