yq_ryan 发表于 2013-1-10 19:31:57

QQ三国模拟按键源码(解放双手)

装备定时修理


如果 (项链修理.选中 = 真)
    戒指修理.选中 = 真
    倒计时 = 倒计时 - 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 发表于 2013-8-17 16:37:32

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

花开 发表于 2014-1-10 13:08:53

看看:):)

373685638 发表于 2017-4-25 20:47:06

研弄醒 苯作硒苯七
页: [1]
查看完整版本: QQ三国模拟按键源码(解放双手)