网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文
运行环境:分辨率:1366x768 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.51.11790
@dichanger 2013/4/19
PutAttachment ".\plugin" ,"*.dll" Hwnd = Plugin.Window.Find(0, "地下城与勇士") Call Plugin.Window.Move(Hwnd, 0, 0) Rem 主程序 Call 判断pl() Rem 判断 Call 进图() Delay 4000 Call 选择打左右() Call 捡物() Call 回城() For 2 Call 进图1() Delay 4000 Call 选择打左右() Call 捡物() Call 回城() Next Call 卖店() Call 判断pl() Call 结束() Rem 停止 Sub 判断pl() IfColor 317, 554, "070709", 0 Then Call 结束() Else Goto 判断 End If End Sub Sub 选择打左右() KeyDown "A", 1 Delay 200 KeyUp "A", 1 IfColor 3, 25, "1884EF", 0 Then Call 打怪右() Else Call 打怪左() End If End Sub Sub 进图() MoveTo 10, 450 Delay 500 RightClick 1 Delay 2000 MoveTo 10, 450 Delay 500 RightClick 1 Delay 2000 MoveTo 236, 101 Delay 3000 LeftDoubleClick 1 Delay 3000 End Sub Sub 卖店() MoveTo 780, 400 RightClick 1 Delay 3000 RightClick 1 Delay 3000 MoveTo 236, 130 LeftClick 1 Delay 600 MoveTo 280, 173 LeftClick 1 Delay 1000 MoveTo 302, 455 Delay 500 LeftClick 1 Delay 500 MoveTo 487, 324 Delay 500 LeftClick 1 Delay 500 LeftClick 1 Delay 500 LeftClick 1 Delay 500 KeyPress "Esc", 1 Delay 500 MoveTo 160, 403 RightClick 1 Delay 500 MoveTo 7, 403 RightClick 1 Delay 1000 //KeyPress "F", 1 //MoveTo 486, 321 //IfColor 486, 321, "110C06", 0 Then //KeyPress "Esc", 1 //Else //Call 卖店() //End If End Sub Sub 回城() Delay 1000 KeyPress "Esc", 1 Delay 1000 MoveTo 513, 429 Delay 1000 LeftClick 1 Delay 2000 End Sub Sub 进图1() MoveTo 111, 450 RightClick 1 Delay 1000 MoveTo 10, 450 Delay 500 RightClick 1 Delay 2000 MoveTo 236, 101 Delay 4000 LeftDoubleClick 1 Delay 200 LeftDoubleClick 1 Delay 4000 End Sub Sub 打怪左() Delay 2000 For 3 Call 左() Next Rem 向上打怪 For 3 For 3 Call 攻击() KeyPress "A", 1 Next Call 上() Next Rem 向下打怪 For 3 For 3 Call 攻击() KeyPress "A", 1 Next Call 下() Next End Sub Sub 打怪右() Delay 2000 For 3 Call 右() Next Rem 向上打怪 For 3 For 3 Call 攻击() KeyPress "D", 1 Next Call 上() Call 上() Next Rem 向下打怪 For 3 For 3 Call 攻击() KeyPress "D", 1 Next Call 下() Call 下() Call 上() Next End Sub Sub 攻击() KeyPress "Y", 1 Delay 600 KeyUp "Y", 1 Delay 200 End Sub Sub 上() KeyDown "W", 1 Delay 300 KeyUp "W", 1 End Sub Sub 下() KeyDown "S", 1 Delay 300 KeyUp "S", 1 End Sub Sub 左() KeyDown "A", 1 Delay 500 KeyUp "A", 1 End Sub Sub 右() KeyDown "D", 1 Delay 500 KeyUp "D", 1 End Sub Sub 捡物() Delay 200 KeyDown "B", 1 Delay 200 KeyUp "B", 1 Delay 2000 KeyDown "N", 1 Delay 200 KeyUp "N", 1 KeyPress "J", 1 Delay 200 KeyPress "J", 1 Delay 200 KeyPress "J", 1 Delay 200 KeyPress "J", 1 Delay 200 KeyPress "J", 1 Delay 200 End Sub Sub 结束() Goto 停止 End Sub Sub 检查() KeyPress "F", 1 MoveTo 486, 321 IfColor 486, 321, "110C06", 0 Then KeyPress "Esc", 1 Else Call 卖店() End If End Sub
- 上一篇: 乐玩插件模块实战开发的雷电模拟器QQ脚本视频教程
- 下一篇: 按键精灵DNF登录3.0脚本源码
猜你喜欢
- 2019-03-19 按键精灵钓鱼脚本源码
- 2019-03-16 按键精灵脚本源码 巨人拉车
- 2019-03-15 按键精灵脚本源码 开心宝贝后台跳绳
- 2019-03-14 按键精灵脚本源码 剑侠情缘-以五行找金
- 2019-03-11 按键精灵开心ol前台打怪脚本源码
- 2019-03-10 按键精灵脚本源码 《龙之刃》自动遇敌左右按键
- 2019-03-09 按键精灵女弓挂精灵脚本源码
- 2019-03-08 按键精灵小号桃源挖矿脚本源码
- 2019-01-25 按键精灵简单技能训练源码
- 2019-01-14 按键精灵单纯挖矿脚本源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
本文暂时没有评论,来添加一个吧(●'◡'●)