QQ三国模拟按键源码（解放双手）

yq_ryan

装备定时修理


如果 (项链修理.选中 ＝ 真)
    戒指修理.选中 ＝ 真
    倒计时 ＝ 倒计时 － 1
    超级延时 (2000)
    编辑框_定时1.禁止 ＝ 真
    .如果 (倒计时 ＝ 0)
        按键消息 (游戏窗口句柄, 取代码 (组合框9.内容, ), 3 ＋ 4)
        超级延时 (2000)
        鼠标移动 (游戏窗口句柄, 214, 213)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框14.内容), 1000)
        超级延时 (3000)
        鼠标移动 (游戏窗口句柄, 221, 382)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框14.内容), 1000)
        超级延时 (2000)
        按键 (#Esc键)
        倒计时 ＝ 到数值 (编辑框_定时1.内容)
    .否则
    .如果结束
.否则
.如果结束
.如果 (戒指修理.选中 ＝ 真)
    项链修理.选中 ＝ 真
.否则
.如果结束

.子程序 _上衣下装_周期事件

.如果 (上衣修理.选中 ＝ 真)
    下装修理.选中 ＝ 真
    倒计时1 ＝ 倒计时1 － 1
    超级延时 (2000)
    编辑框_定时2.禁止 ＝ 真
    .如果 (倒计时1 ＝ 0)
        按键消息 (游戏窗口句柄, 取代码 (组合框9.内容, ), 3 ＋ 4)
        超级延时 (2000)
        鼠标移动 (游戏窗口句柄, 215, 259)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框15.内容), 1000)
        超级延时 (2000)
        鼠标移动 (游戏窗口句柄, 379, 260)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框15.内容), 1000)
        超级延时 (2000)
        按键 (#Esc键)
        倒计时1 ＝ 到数值 (编辑框_定时2.内容)
    .否则
    .如果结束
.否则
.如果结束
.如果 (下装修理.选中 ＝ 真)
    上衣修理.选中 ＝ 真
.否则
.如果结束

.子程序 _鞋子护手_周期事件

.如果 (鞋子修理.选中 ＝ 真)
    护手修理.选中 ＝ 真
    倒计时2 ＝ 倒计时2 － 1
    超级延时 (2000)
    编辑框_定时3.禁止 ＝ 真
    .如果 (倒计时2 ＝ 0)
        按键消息 (游戏窗口句柄, 取代码 (组合框9.内容, ), 3 ＋ 4)
        超级延时 (2000)
        鼠标移动 (游戏窗口句柄, 375, 302)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框16.内容), 1000)
        超级延时 (2000)
        鼠标移动 (游戏窗口句柄, 211, 299)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框16.内容), 1000)
        超级延时 (2000)
        按键 (#Esc键)
        倒计时2 ＝ 到数值 (编辑框_定时3.内容)
    .否则
    .如果结束
.否则
.如果结束
.如果 (护手修理.选中 ＝ 真)
    鞋子修理.选中 ＝ 真
.否则
.如果结束

.子程序 _头盔武器_周期事件

.如果 (头盔修理.选中 ＝ 真)
    武器修理.选中 ＝ 真
    倒计时3 ＝ 倒计时3 － 1
    超级延时 (2000)
    编辑框_定时4.禁止 ＝ 真
    .如果 (倒计时3 ＝ 0)
        按键消息 (游戏窗口句柄, 取代码 (组合框9.内容, ), 3 ＋ 4)
        超级延时 (2000)
        鼠标移动 (游戏窗口句柄, 218, 176)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框16.内容), 1000)
        超级延时 (2000)
        鼠标移动 (游戏窗口句柄, 372, 341)
        超级延时 (2000)
        鼠标键2 (1, 到整数 (组合框16.内容), 1000)
        超级延时 (2000)
        按键 (#Esc键)
        倒计时3 ＝ 到数值 (编辑框_定时4.内容)
    .否则
    .如果结束
.否则
.如果结束
.如果 (武器修理.选中 ＝ 真)
    头盔修理.选中 ＝ 真
.否则
.如果结束

.子程序 _启动修理_被单击
倒计时 ＝ 到整数 (编辑框_定时1.内容)
倒计时1 ＝ 到整数 (编辑框_定时2.内容)
倒计时2 ＝ 到整数 (编辑框_定时3.内容)
倒计时3 ＝ 到整数 (编辑框_定时4.内容)
.判断开始 (项链修理.选中 ＝ 真)
    项链戒指.时钟周期 ＝ 1000
    项链修理.禁止 ＝ 真
    戒指修理.禁止 ＝ 真
.默认
    项链戒指.时钟周期 ＝ 0
.判断结束
.判断开始 (上衣修理.选中 ＝ 真)
    上衣下装.时钟周期 ＝ 1000
    上衣修理.禁止 ＝ 真
    下装修理.禁止 ＝ 真
.默认
    上衣下装.时钟周期 ＝ 0
.判断结束
.判断开始 (鞋子修理.选中 ＝ 真)
    鞋子护手.时钟周期 ＝ 1000
    鞋子修理.禁止 ＝ 真
    护手修理.禁止 ＝ 真
.默认
    鞋子护手.时钟周期 ＝ 0
.判断结束
.判断开始 (头盔修理.选中 ＝ 真)
    头盔武器.时钟周期 ＝ 1000
    头盔修理.禁止 ＝ 真
    武器修理.禁止 ＝ 真
.默认
    头盔武器.时钟周期 ＝ 0
.判断结束

.子程序 _结束修理_被单击
启动修理.禁止 ＝ 假
项链戒指.时钟周期 ＝ 0
上衣下装.时钟周期 ＝ 0
鞋子护手.时钟周期 ＝ 0
头盔武器.时钟周期 ＝ 0


自动喊话



.子程序 _时钟句柄_周期事件
游戏窗口句柄 ＝ 取窗体句柄 (“QQSGWinClass”)
.判断开始 (游戏窗口句柄 ≠ 0)
    窗口_置标题 (取进程ID (“QQSG.exe”), “发现非法，请登陆我们的论坛联系我们 。或 加入我的官方群 208205837 ”)
.默认
.判断结束

.子程序 _按钮3_被单击
.判断开始 (按钮3.标题 ＝ “自动喊话开启”)
    .判断开始 (游戏窗口句柄 ≠ 0)
        .判断开始 (喊话4.选中 ＝ 真)
            .判断开始 (四句.内容 ≠ “”)
                .判断开始 (喊话间隔4.内容 ≠ “”)
                    时钟喊话4.时钟周期 ＝ 到数值 (喊话间隔4.内容) × 1000
                .默认
                .判断结束
            .默认
                信息框 (“请在喊话1里面，输入喊话内容”, 0, “友情提示”)
            .判断结束
        .默认
        .判断结束
        .判断开始 (喊话3.选中 ＝ 真)
            .判断开始 (三句.内容 ≠ “”)
                .判断开始 (喊话间隔3.内容 ≠ “”)
                    时钟喊话3.时钟周期 ＝ 到数值 (喊话间隔3.内容) × 1000
                .默认
                .判断结束
            .默认
                信息框 (“请在喊话2里面，输入喊话内容”, 0, “友情提示”)
            .判断结束

        .默认
        .判断结束
        .判断开始 (喊话2.选中 ＝ 真)
            .判断开始 (二句.内容 ≠ “”)
                .判断开始 (喊话间隔2.内容 ≠ “”)
                    时钟喊话2.时钟周期 ＝ 到数值 (喊话间隔2.内容) × 1000
                .默认
                .判断结束
            .默认
                信息框 (“请在喊话3里面，输入喊话内容”, 0, “友情提示”)
            .判断结束
        .默认
        .判断结束
        .判断开始 (喊话1.选中 ＝ 真)
            .判断开始 (一句.内容 ≠ “”)
                .判断开始 (喊话间隔1.内容 ≠ “”)
                    时钟喊话1.时钟周期 ＝ 到数值 (喊话间隔1.内容) × 1000
                .默认
                .判断结束
            .默认
                信息框 (“请在喊话4里面，输入喊话内容”, 0, “友情提示”)
            .判断结束
        .默认
        .判断结束
        按钮3.标题 ＝ “自动喊话关闭”
    .默认
    .判断结束

.默认
    按钮3.标题 ＝ “自动喊话开启”
    时钟喊话1.时钟周期 ＝ 0
    时钟喊话2.时钟周期 ＝ 0
    时钟喊话3.时钟周期 ＝ 0
    时钟喊话4.时钟周期 ＝ 0
.判断结束

.子程序 _时钟喊话1_周期事件
按键消息 (游戏窗口句柄, #回车键)
文本投递 (游戏窗口句柄, 一句.内容)
按键消息 (游戏窗口句柄, #回车键)
.子程序 _时钟喊话2_周期事件
按键消息 (游戏窗口句柄, #回车键)
文本投递 (游戏窗口句柄, 二句.内容)
按键消息 (游戏窗口句柄, #回车键)

.子程序 _时钟喊话3_周期事件
按键消息 (游戏窗口句柄, #回车键)
文本投递 (游戏窗口句柄, 三句.内容)
按键消息 (游戏窗口句柄, #回车键)

.子程序 _时钟喊话4_周期事件
按键消息 (游戏窗口句柄, #回车键)
文本投递 (游戏窗口句柄, 四句.内容)
按键消息 (游戏窗口句柄, #回车键)



窗口绑定



.版本 2
.支持库 dm

.程序集 窗口程序集1

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



.子程序 _窗口DX绑定_被单击
.局部变量 DM, dmsoft
.局部变量 窗口句柄, 整数型
.局部变量 绑定, 整数型

窗口句柄 ＝ 取句柄 (“QQSG.exe”, “QQSGWinClass”)
延时 (2000)
DM.BindWindow (窗口句柄, “dx2”, “normal”, “normal”, 0)
延时 (2000)
窗口最小化 (窗口句柄)
延时 (2000)
绑定 ＝ DM.IsBind (窗口句柄)
.判断开始 (绑定 ＝ 1)
    信息框 (“窗口绑定”, 0, )
.默认
    信息框 (“绑定失败”, 0, )
.判断结束


.子程序 _窗口DX解绑_被单击
.局部变量 DM, dmsoft

DM.UnBindWindow ()
信息框 (“绑定解除”, 0, )

juoyzpy

能有源码传送邮箱。。谢谢
juoyzpy@qq.com

花开

看看  

373685638

研弄醒 苯作硒苯七