按键精灵吧_百度贴吧
签到排名：今日本吧第个签到，
本吧因你更精彩，明天继续来努力！
本吧排名：
本吧签到人数：2438
可签7级以上的吧50个
本月漏签0次！
成为超级会员，赠送8张补签卡
连续签到：天&&累计签到：天
超级会员单次开通12个月以上，赠送连续签到卡3张
专注手游，端游方面也OK，简单的小功能免费给写，复杂的看情况收费
我用前台操作就找得到啊！只不过这个用了一小部分后台而已就找不到了？ While True HwndEx = Plugin.Window.Search
100-200有偿求 有人会吗
免费帮做简单脚本练手，19号开始
按键精灵安卓 录制了一段ro自动放暴风雪的脚本 点一下技能 一下怪 问题现在脚本只会不断点技能 不点怪
Do Until 获取时间, 每当秒为50运行? Tap 50, 50 Loop
表示当时肝到心力憔悴，然后无聊学了下，然后写了个脚本 然而！没写完！ 最近不怎么玩了，放出来代码
RT：有小单子需要写的可以联系我哈 QQ号码： 再放几张提前写过的脚本界面图 有能用的上的朋友
RT：先上图 最近闲的无聊，弄了一个QQ群的拉人脚本，需要的朋友可以直接去下载啦！！！ 使用过程中 有
先上图片 半自动+全自动微信群发+删除僵尸粉 僵尸好友 死粉+跳过星标好友+自动获取电脑已经登录的所有
金币1W是黄色的时候随机投注1次，一共投注18次 ~
任何脚本运行都没反应，求大神支下招，研究两三个小时了。
海马模拟器运行脚本打不开怎么回事
求教，怎么做后台脚本，最好有例子，人比较笨，求教，谢谢
像cf这些网游怎样精确转动视角？我发现用相对位移移动的距离存在很大偏差
跑镖或跑商脚本，能做的老板加详谈
经验怪身上的exp一直在动，捕捉不到图呢。有大神给个脚本或者详细点的思路么？望指点一下
太复杂收费
HwndEx = Plugin.Window.Search(&口袋妖怪&) MsgBox &查找到的窗口句柄为:&& HwndEx dim MyArray MyArray = Sp
帮写脚本： 唯一要求能产生经济效益de项目！！ 简单的在线回复你,学习有问题的也请留言！！ oh，la！！
大漠文字识别，自己做的文字库，识别游戏验证码，准确率低，偶尔才能对一次。求如何提高准确率
我玩得一款游戏叫血杀英雄（类似传奇）。里面升级途径主要是刷票和开箱子，想请人做个能三开刷票和
官网实名认证作者 Q. 有什么不懂的也可以问我
如题 路径到底写什么？
想要执行这个命令20次 KeyPress &Up&, 1 Delay 100 然后执行 FindPic 0, 0, , &Attachment:\11.bmp&, 0.
6级认证脚本作者，接页游脚本定制，有需要可以留言
请问谁有按键精灵电子版教程？谢谢，可以的发一下
do If 找多点(活动, 1) Then Delay 100 TracePrint &点击活动& ShowMessage &点击活动& Delay 100 ElseIf 找多
注册和绑定都经测试了，没问题。每次都是说：“木有找到”，气人啊。 下面是代码： PutAttachment &C:\d
一款游戏，自动收货，就是原地自动喊话，然后别人交易你，你接受，别人给货，你给钱，不是想要的货
会写的 dd我有偿。
我想写如果检测到颜色是红色就进行下一步操作 如果不是红色就继续检测 （检测的时限为90秒） 如果90秒
我没用精灵之前是上面挂着网课（尔雅网课）然后戴耳机听音乐然后低头用手机看电子书，因为尔雅网课为防止别人挂机么就弄了一个自动暂停功能，过一会就
@lm 吧主镇楼
求助大神，安卓模拟器里安装安卓精灵运行后不按， 模拟器是天天模拟器， 游戏是RO， 想弄个自动按技能
我需要按照Excel中列出的编码，在ERP软件中找到这个编码，在ERP中更改他的名称。 ERP上已经有编码存在，
有人会写批量注册手游账号的吗有偿
这里怎么获取 这个界面输入的数据
求教怎么用啊
发贴红色标题
签到六倍经验
兑换本吧会员
赠送补签卡1张，获得
贴吧热议榜
发表后自动分享本贴
使用签名档&按键精灵吧_百度贴吧
签到排名：今日本吧第个签到，
本吧因你更精彩，明天继续来努力！
本吧排名：
本吧签到人数：2438
可签7级以上的吧50个
本月漏签0次！
成为超级会员，赠送8张补签卡
连续签到：天&&累计签到：天
超级会员单次开通12个月以上，赠送连续签到卡3张
专注手游，端游方面也OK，简单的小功能免费给写，复杂的看情况收费
我用前台操作就找得到啊！只不过这个用了一小部分后台而已就找不到了？ While True HwndEx = Plugin.Window.Search
100-200有偿求 有人会吗
免费帮做简单脚本练手，19号开始
按键精灵安卓 录制了一段ro自动放暴风雪的脚本 点一下技能 一下怪 问题现在脚本只会不断点技能 不点怪
Do Until 获取时间, 每当秒为50运行? Tap 50, 50 Loop
表示当时肝到心力憔悴，然后无聊学了下，然后写了个脚本 然而！没写完！ 最近不怎么玩了，放出来代码
RT：有小单子需要写的可以联系我哈 QQ号码： 再放几张提前写过的脚本界面图 有能用的上的朋友
RT：先上图 最近闲的无聊，弄了一个QQ群的拉人脚本，需要的朋友可以直接去下载啦！！！ 使用过程中 有
先上图片 半自动+全自动微信群发+删除僵尸粉 僵尸好友 死粉+跳过星标好友+自动获取电脑已经登录的所有
金币1W是黄色的时候随机投注1次，一共投注18次 ~
任何脚本运行都没反应，求大神支下招，研究两三个小时了。
海马模拟器运行脚本打不开怎么回事
求教，怎么做后台脚本，最好有例子，人比较笨，求教，谢谢
像cf这些网游怎样精确转动视角？我发现用相对位移移动的距离存在很大偏差
跑镖或跑商脚本，能做的老板加详谈
经验怪身上的exp一直在动，捕捉不到图呢。有大神给个脚本或者详细点的思路么？望指点一下
太复杂收费
HwndEx = Plugin.Window.Search(&口袋妖怪&) MsgBox &查找到的窗口句柄为:&& HwndEx dim MyArray MyArray = Sp
帮写脚本： 唯一要求能产生经济效益de项目！！ 简单的在线回复你,学习有问题的也请留言！！ oh，la！！
大漠文字识别，自己做的文字库，识别游戏验证码，准确率低，偶尔才能对一次。求如何提高准确率
我玩得一款游戏叫血杀英雄（类似传奇）。里面升级途径主要是刷票和开箱子，想请人做个能三开刷票和
官网实名认证作者 Q. 有什么不懂的也可以问我
如题 路径到底写什么？
想要执行这个命令20次 KeyPress &Up&, 1 Delay 100 然后执行 FindPic 0, 0, , &Attachment:\11.bmp&, 0.
6级认证脚本作者，接页游脚本定制，有需要可以留言
请问谁有按键精灵电子版教程？谢谢，可以的发一下
do If 找多点(活动, 1) Then Delay 100 TracePrint &点击活动& ShowMessage &点击活动& Delay 100 ElseIf 找多
注册和绑定都经测试了，没问题。每次都是说：“木有找到”，气人啊。 下面是代码： PutAttachment &C:\d
一款游戏，自动收货，就是原地自动喊话，然后别人交易你，你接受，别人给货，你给钱，不是想要的货
会写的 dd我有偿。
我想写如果检测到颜色是红色就进行下一步操作 如果不是红色就继续检测 （检测的时限为90秒） 如果90秒
我没用精灵之前是上面挂着网课（尔雅网课）然后戴耳机听音乐然后低头用手机看电子书，因为尔雅网课为防止别人挂机么就弄了一个自动暂停功能，过一会就
@lm 吧主镇楼
求助大神，安卓模拟器里安装安卓精灵运行后不按， 模拟器是天天模拟器， 游戏是RO， 想弄个自动按技能
我需要按照Excel中列出的编码，在ERP软件中找到这个编码，在ERP中更改他的名称。 ERP上已经有编码存在，
有人会写批量注册手游账号的吗有偿
这里怎么获取 这个界面输入的数据
求教怎么用啊
发贴红色标题
签到六倍经验
兑换本吧会员
赠送补签卡1张，获得
贴吧热议榜
发表后自动分享本贴
使用签名档&按键精灵学习教程 一、 键盘命令（2~5页）二、鼠标命令（5~13页）三、控制命令（13~22页） 四、颜色/图像命令（22~28页）五、其他命令（28~35页）五、网游脚本实例（35~最后）
一、 键盘命令命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
GetLastKey 检测上次按键 检测上次按键 参数1 整数型，可选：变量名 无 复制代码 1. //脚本运行到这一行不会暂停,调用的时候立即返回，得到调用之前最后一次按下的按键码保存在变量Key里。2. Key=GetLastKey()3. If Key = 13 Then4.
Msgbox "你上次按下了回车键"5. End If 脚本例子：(7.x语法)
复制代码 1. //脚本运行到这一行不会暂停,调用的时候立即返回，得到调用之前最后一次按下的按键码保存在变量Key里。2. GetLastKey Key3. If Key = 134.
Msgbox "你上次按下了回车键"5. EndIf 命令名称：命令功能：命令参数： KeyDown 按住 键盘按住 参数1 整数型，键盘虚拟码（8.X支持 按键字符）参数2 整数型，次数返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //KeyDown、KeyDownS、KeyDownH2. //KeyDownS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3. //KeyDownH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyDown 65,15. //65是A键的按键码，上面的语句表示按住A键1次
6.7. KeyDown "A",18. //上面的支持按键字符，语句表示按住A键1次脚本例子：(7.x语法)
复制代码 1. //KeyDown、KeyDownS、KeyDownH2. //KeyDownS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3. //KeyDownH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyDown 65,15. //65是A键的按键码，上面的语句表示按住A键1次命令名称：命令功能：命令参数： KeyPress 按键 键盘按键参数1 整数型，键盘虚拟码（8.X支持 按键字符）参数2 整数型，次数返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //KeyPress、KeyPressS、KeyPressH2. //KeyPressS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3. //KeyPressH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyPress 65,15. //65是A键的按键码，上面的语句表示按A键1次6.7. KeyPress "A",18. //上面的支持按键字符，语句表示按A键1次 脚本例子：(7.x语法)
复制代码 1. //KeyPress、KeyPressS、KeyPressH2. //KeyPressS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3. //KeyPressH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyPress 65,15. //65是A键的按键码，上面的语句表示按A键1次 KeyUp 弹起 键盘弹起 命令参数： 参数1 整数型，键盘虚拟码（8.X支持 按键字符）参数2 整数型，次数返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //KeyUp、KeyUpS、KeyUpH2. //KeyUpS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3. //KeyUpH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyUp 65,15. //65是A键的按键码，上面的语句表示松开A键1次6.7. KeyUp "A",18. //上面的支持按键字符，语句表示松开A键1次 脚本例子：(7.x语法)
复制代码 1. //KeyUp、KeyUpS、KeyUpH2. //KeyUpS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的键盘都可以使用3. //KeyUpH: 硬件模拟方式,仅支持PS(圆口)的键盘 点击查看使用硬件模拟方式的注意事项4. KeyUp 65,15. //65是A键的按键码，上面的语句表示松开A键1次 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
WaitKey 等待按任意键 等待按任意键 参数1 整数型，可选：变量名 无 复制代码 1. Key=WaitKey()2. //脚本运行到这一行会暂停,当用户按下键盘后继续执行,并且把用户的按键码保存在变量Key里3. If Key = 13 Then4.
MessageBox "恭喜你按下了回车键"5. End If 脚本例子：(7.x语法)
复制代码 1. WaitKey Key2. //脚本运行到这一行会暂停,当用户按下键盘后继续执行,并且把用户的按键码保存在变量Key里3. If Key = 13 4.
Msgbox "恭喜你按下了回车键"5. EndIf 二、鼠标命令 命令名称：命令功能：命令参数： GetCursorPos 得到鼠标位置坐标 得到当前鼠标所在的位置坐标 参数1 整数型，返回x坐标参数2 整数型，返回y坐标返 回 值：脚本例子：(8.x语法)
无 复制代码 1. GetCursorPos mx,my2. //把当前鼠标位置的x和y坐标放在变量mx和my中 脚本例子：(7.x语法)
复制代码 1. VBSCall GetCursorPos(mx,my)2. //把当前鼠标位置的x和y坐标放在变量mx和my中 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
GetCursorShape 得到鼠标形状 得到当前鼠标的形状特征 参数1 整数型，参数 整数型，鼠标的形状值 复制代码 1. //参数: 0 是6.83之前的版本默认的参数2. //参数: 1 可用于一些在参数0下无法区分鼠标形状代码的情况3. //下面是我们普通的WINDOWS鼠标形状特征4. //不同电脑上鼠标形状特征也许不同，请使用"抓点抓色"功能抓取正确的鼠标形状特征5. Shape1 = 6. //下面是我们访问网页超链接时候的手型鼠标形状7. Shape2 =
8. shape=GetCursorShape(0)9. If shape = shape1 Then10.
MessageBox "当前鼠标形状是普通的WINDOWS鼠标"11. ElseIf shape = shape2 Then12.
MessageBox "当前鼠标形状是手型鼠标"13. Else14.
MessageBox "不认识当前鼠标形状！"15. End If脚本例子：(7.x语法)
复制代码 1. //参数: 0 是6.83之前的版本默认的参数2. //参数: 1 可用于一些在参数0下无法区分鼠标形状代码的情况3. //下面是我们普通的WINDOWS鼠标形状特征4. //不同电脑上鼠标形状特征也许不同，请使用"抓点抓色"功能抓取正确的鼠标形状特征5. Shape1 = 6. //下面是我们访问网页超链接时候的手型鼠标形状7. Shape2 = 8. VBSCall Shape=GetCursorShape(0)9. If shape = shape110.
MessageBox 当前鼠标形状是普通的WINDOWS鼠标11. ElseIf shape = shape212.
MessageBox 当前鼠标形状是手型鼠标13. Else14.
MessageBox 不认识当前鼠标形状！15. EndIf 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
GetLastClick 检测上次按过的鼠标键 检测上一次按下的鼠标代码 参数1 整数型，可选：变量名 无 复制代码 1. Mouse=GetLastClick()2. If Mouse =32770 Or Mouse =32769 Then3.
Msgbox "你按下了鼠标左键"4. End If 脚本例子：(7.x语法)
复制代码 1. GetLastClick Mouse2. If Mouse =32770 Or Mouse =32769 3.
Msgbox "你按下了鼠标左键"4. EndIf命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
LeftClick 左键单击 模拟点击鼠标左键 参数1 整数型，次数 无 复制代码 1. //LeftClick、LeftClickS、LeftClickH2. //LeftClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //LeftClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. LeftClick 55. //在当前鼠标的位置单击鼠标左键5次 脚本例子：(7.x语法)
复制代码 1. //LeftClick、LeftClickS、LeftClickH2. //LeftClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //LeftClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. LeftClick 55. //在当前鼠标的位置单击鼠标左键5次 脚本例子：(7.x语法)
复制代码 1. //LeftDoubleClick、LeftDoubleClickS、LeftDoubleClickH]2. //LeftDoubleClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //LeftDoubleClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. LeftDoubleClick 55. //在当前鼠标的位置双击鼠标左键5次 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
LockMouse 锁定鼠标位置 锁定鼠标位置，用户将不能通过移动鼠标而改变鼠标位置，而脚本仍可以改变鼠标位置 无 无 复制代码 1. //在脚本开始的时候使用这个命令，可以有效防止用户误触鼠标引起脚本执行出错2. LockMouse3. Do4.
Delay 10005. Loop 脚本例子：(7.x语法)
复制代码 1. //在脚本开始的时候使用这个命令，可以有效防止用户误触鼠标引起脚本执行出错2. LockMouse3. While True4.
Delay 10005. EndWhile 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
MiddleClick 中键单击 模拟点击鼠标中键 参数1 整数型，次数 无 复制代码 1. //MiddleClick、MiddleClickS、MiddleClickH2. //MiddleClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //MiddleClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. MiddleClick 5
5. //在当前鼠标的位置单击鼠标中键5次脚本例子：(7.x语法)
复制代码 1. //MiddleClick、MiddleClickS、MiddleClickH2. //MiddleClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //MiddleClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. MiddleClick 55. //在当前鼠标的位置单击鼠标中键5次命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
MouseWheel 鼠标滚轮 滚动鼠标滚轮 参数1 整数型，滚动量 无 复制代码 1. //如果滚动量为正,向上滚动;否则向下滚动.2. //仅支持Windows 2000以上的操作系统.3. MouseWheel 14. //把鼠标滚轮向上滚动1格 脚本例子：(7.x语法)
复制代码 1. //如果滚动量为正,向上滚动;否则向下滚动.2. //仅支持Windows 2000以上的操作系统.3. MouseWheel 14. //把鼠标滚轮向上滚动1格 命令名称：命令功能：命令参数： MoveR 鼠标相对移动 鼠标相对移动到 参数1 整数型，X距离参数2 整数型，Y距离返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //MoveR、MoveRS、MoveRH2. //MoveRS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //MoveRH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. //当前鼠标在(100,100)点,使用下面语句
5. MoveR 200,3006. //之后,鼠标就被移到了(100+200,100+300)处,也就是坐标(300,400)处7. //提示:使用硬件模拟方式不能碰键盘鼠标,否则会导致出错脚本例子：(7.x语法)
复制代码 1. //MoveR、MoveRS、MoveRH2. //MoveRS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //MoveRH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. //当前鼠标在(100,100)点,使用下面语句5. MoveR 200,3006. //之后,鼠标就被移到了(100+200,100+300)处,也就是坐标(300,400)处7. //提示:使用硬件模拟方式不能碰键盘鼠标,否则会导致出错 命令名称：命令功能：命令参数： MoveTo 鼠标移动 移动鼠标到 参数1 整数型，X坐标参数2 整数型，Y坐标返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //MoveTo、MoveToS、MoveToH2. //MoveToS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //MoveToH: 硬件模拟方式,仅支持PS(圆口)的鼠标4. MoveTo 100,2005. //把鼠标移动到(100,200)这个点上6. intX=507. intY=1508. MoveTo intX,intY9. //把鼠标移动到(intX,intY)这个点上,需要5.50以上版本支持. 脚本例子：(7.x语法)
复制代码 1. //MoveTo、MoveToS、MoveToH2. //MoveToS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //MoveToH: 硬件模拟方式,仅支持PS(圆口)的鼠标4. MoveTo 100,2005. //把鼠标移动到(100,200)这个点上6. intX=50 7. intY=1508. MoveTo intX,intY9. //把鼠标移动到(intX,intY)这个点上,需要5.50以上版本支持.命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
RestoreMousePos 恢复上次保存的鼠标位置 保存当前鼠标位置 无 无 复制代码 1. SaveMousePos2. //保存当前鼠标位置3. Delay 1004. MoveTo 500,205. Delay 1006. RestoreMousePos7. //将鼠标移动到上一次保存的鼠标位置8. //保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9. //这样脚本执行后鼠标的位置就不会变化 脚本例子：(7.x语法)
复制代码 1. SaveMousePos2. //保存当前鼠标位置3. Delay 1004. MoveTo 500,205. Delay 1006. RestoreMousePos7. //将鼠标移动到上一次保存的鼠标位置8. //保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9. 这样脚本执行后鼠标的位置就不会变化 命令名称：命令功能：命令参数：返 回 值：脚本例子：RightClick 右键单击 模拟点击鼠标右键 参数1 整数型，次数 无 复制代码 (8.x语法)
1. //RightClick、RightClickS、RightClickH2. //RightClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //RightClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. RightClick 55. //在当前鼠标的位置单击鼠标右键5次 脚本例子：(7.x语法)
复制代码 1. //RightClick、RightClickS、RightClickH2. //RightClickS: 超级模拟方式,兼容性更强,对键盘和鼠标没有特别的要求,PS2(圆口)和USB接口的鼠标都可以使用3. //RightClickH: 硬件模拟方式,仅支持PS(圆口)的鼠标 点击查看使用硬件模拟方式的注意事项4. RightClick 55. //在当前鼠标的位置单击鼠标右键5次 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
SaveMousePos 保存当前鼠标所在位置 保存当前鼠标位置 无 无 复制代码 1. SaveMousePos2. //保存当前鼠标位置3. Delay 1004. MoveTo 500,205. Delay 1006. RestoreMousePos7. //将鼠标移动到上一次保存的鼠标位置8. //保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9. //这样脚本执行后鼠标的位置就不会变化 脚本例子：(7.x语法)
复制代码 1. SaveMousePos2. //保存当前鼠标位置3. Delay 1004. MoveTo 500,205. Delay 1006. RestoreMousePos7. //将鼠标移动到上一次保存的鼠标位置
8. //保存/恢复鼠标位置常用于制作网络游戏练功脚本,脚本开始时保存鼠标位置,脚本结束时恢复鼠标位置,9. 这样脚本执行后鼠标的位置就不会变化 三、控制命令命令名称：命令功能：命令参数：Call 调用过程 调用过程 参数1 字符串型，过程名 返 回 值：脚本例子：(8.x语法)
无 复制代码 1. Call 子程序("我是子程序,被你调用了")2. EndScript3. //支持中文名变量4. Sub 子程序(啊)5.
Msgbox 啊6. End Sub7. //定义一个过程,可以在脚本中调用这个过程脚本例子：复制代码 (7.x语法) 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
Do 循环 条件循环 参数1 条件型，循环条件 无 复制代码 1. 例子1：2. //支持Exit Do 命令退出循环3. i=04. Do While i=05.
Msgbox "我停不下来啦!!快住手"6. Loop7. //当循环条件成立的时候，反复执行循环体
8.9.10. 例子2：11. i=012. Do Until i=013.
Msgbox "为什么没有循环到我呢？"14. Loop15. Msgbox "循环结束"16. //当循环条件成立的时候，离开循环体
17.18.19. 例子3：20. i=021. Do Until i=122.
Msgbox "我停不下来啦!!快住手"
23. Loop24. //当循环条件不成立的时候，反复执行循环体
25.26.27. 例子4：28. n=029. Do While true30.
Msgbox "我将循环10次停下来!!"31.
If n&=10 Then32.
//当循环条件成立的时候，离开循环体33.
Exit do34.
n=n+136. Loop37. Msgbox n & "次"38.39.40. 例子5：41. i = 042. Do43.
MessageBox "ok"44. Loop While i && 045. //条件放后面，前面的循环内容可以执行一次！脚本例子：(7.x语法)
复制代码 1. 无 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
For 循环 循环一定次数 参数1 整数型，循环次数 无 复制代码 1. 例子1：2. //支持Exit For 命令退出循环3. For i=0 To 94.
Delay 1005. Next6. //循环10次7.8. 例子2：9. //支持Exit For 命令退出循环
10. For 1011.
Delay 10012. Next13. //循环10次14.15.16. 例子3：17. //支持Exit For 命令退出循环18. For i=0 to 19 step 219.
Delay 10020. Next21. //循环10次22.23. 例子4：24. //支持Exit For 命令退出循环25. For i=0 to 19 step 226.
Delay 10027.
If i&9 Then28.
Exit For29.
End If30. Next31. //循环5次 脚本例子：(7.x语法)
复制代码 1. For 102.
Delay 1003. EndFor4. //循环10次 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
Function 函数 函数 多类型，多参数 多类型 复制代码 1. //支持Exit Function 命令退出函数过程2. Msgbox 函数过程("我是函数,被你调用了")3. EndScript4. Function 函数过程(a)5.
函数过程=a6. End Function7. //定义一个函数过程,可以在脚本中调用这个函数
脚本例子：(7.x语法)
复制代码 1. 无 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
Gosub 调用子程序 调用过程 参数1 字符串型，过程名 无 复制代码 1. //可带参数传递2. Call 子程序("我是子程序,被你调用了")3. EndScript4. Sub 子程序(a)5.
Msgbox a6. End Sub7. //定义一个过程,可以在脚本中调用这个过程 脚本例子：(7.x语法)
复制代码 1. Gosub 子程序2. EndScript3. Sub 子程序4.
Msgbox "我是子程序,被你调用了"5. Return 子程序6. //定义一个过程,可以在脚本中调用这个过程 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
Goto 跳转到标记 跳转到Rem标记处 参数1 字符串型，标号 无 复制代码 1. Goto 标记2. Delay 1003. Rem 标记4. Msgbox "你直接跳到这里了!!,上面的延迟没有被执行!!"5. //跳转语句，可以跳转到rem标记过的标记处继续执行 脚本例子：(7.x语法)
复制代码 1. Goto 标记2. Delay 1003. Rem 标记4. Msgbox "你直接跳到这里了!!,上面的延迟没有被执行!!"5. //跳转语句，可以跳转到rem标记过的标记处继续执行命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
If 如果..则 判断表达式 参数1 条件型，表达式 无 复制代码 1. 例子1：2. i=03. If i=0 Then4.
Msgbox "条件判断符合被通过!!"5. End If6. //通过判断表达式的取值，来执行后面的动作或控制
7.8. 例子2：9. i=110. If i=0 Then11.
Msgbox "条件判断符合被通过!!"12. ElseIf i=1 Then13.
Msgbox "否则条件判断符合被通过!!"14. Else15.
Msgbox "否则!!"16. End If17. //通过判断表达式的取值，来执行后面的动作或控制脚本例子：(7.x语法)
复制代码 1. i=02. If i=03.
Msgbox "条件判断符合被通过!!"4. EndIf5. //通过判断表达式的取值，来执行后面的动作或控 命令名称：命令功能：IfColor 颜色判断 判断屏幕某点的颜色 命令参数： 参数1 整数型，屏幕X坐标参数2 整数型，屏幕Y坐标参数3 字符串型，颜色16进制值参数4 整数型，判断条件返 回 值：脚本例子：(8.x语法)
无 复制代码 1. 例子1：2. //判断条件(0:等于 1:不等于 2:近似等于)3. IfColor 860,27,"e1b072",0 Then4.
Msgbox "颜色等于"5. Else6.
Msgbox "颜色不等于"7. End If8. //判断坐标点(860,27)的颜色是否等于e1b072
9.10.11. 例子2：12. a=1:b=113. IfColor 650,118,"78F0E8",2 Then14.
MessageBox "a"15. ElseIf b=a Then16.
MessageBox "b"17. End if 脚本例子：(7.x语法)
复制代码 1. //判断条件(0:等于 1:不等于 2:近似等于)2. IfColor 860,27,e1b072,03.
Msgbox "颜色等于"4. Else5.
Msgbox "颜色不等于"6. EndIf7. //判断坐标点(860,27)的颜色是否等于e1b072 命令名称：命令功能：命令参数：返 回 值：脚本例子：Rem 标记/注释 标记命令可当注释 参数1 字符串型，文字 无 复制代码 (8.x语法)
1. //不支持数字开头的和符号作为标记名2. //标记命令.即可当注释,也可以为Goto跳转指令作标记3. Rem 脚本开始 脚本例子：(7.x语法)
复制代码 1. //标记命令.即可当注释,也可以为Goto跳转指令作标记2. Rem 脚本开始命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
RestartScript 重新启动脚本运行 重新启动脚本运行 无 无 复制代码 1. For i=0 to 22.
Delay 10003.
Call Plugin.Msg.ShowScrTXT(0, 0, , "屏幕内容填写" & i, "0000FF")4. Next5. RestartScript //重新启动脚本运行 脚本例子：(7.x语法)
复制代码 1. 无 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
Select 情况条件选择 根据情况选择条件判断 参数1 条件型，情况 无 复制代码 1. //不支持判断语句 如：Case a&02. UserVar 变量=0 "输入（0~9）数字"3. //&&---------------------------------------------以下是选择条件结结构判断4. Select Case 变量5. Case 06.
Msgbox "你输入的数字为：0"7. Case 18.
Msgbox "你输入的数字为：1"9. Case 2
Msgbox "你输入的数字为：2"11. Case 312.
Msgbox "你输入的数字为：3"13. Case 414.
Msgbox "你输入的数字为：4"15. Case 516.
Msgbox "你输入的数字为：5"17. Case 618.
Msgbox "你输入的数字为：6"19. Case 720.
Msgbox "你输入的数字为：7"21. Case 822.
Msgbox "你输入的数字为：8"23. Case 924.
Msgbox "你输入的数字为：9"25. Case Else26.
Msgbox "你输入的数字不正确，请输入（0~9）数字！"27. End Select 脚本例子：(7.x语法)
复制代码 1. 无命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
Sub 子程序 定义一个过程 参数1 字符串型，过程名 无 复制代码 1. //支持Exit Sub 命令退出子程序过程2. Call 子程序()3. EndScript4. Sub 子程序()5.
Msgbox "我是子程序,被你调用了"6. End Sub7. //定义一个过程,可以在脚本中调用这个过程 脚本例子：(7.x语法)
复制代码 1. Gosub 子程序2. EndScript3. Sub 子程序4.
Msgbox "我是子程序,被你调用了" 5. Return 子程序6. //定义一个过程,可以在脚本中调用这个过程命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
While 如果..则循环 条件循环 参数1 条件型，循环条件 无 复制代码 1. i=02. While i=03.
Msgbox "我停不下来啦!!快住手"4. Wend5. //当循环条件成立的时候，反复执行循环体脚本例子：(7.x语法)
复制代码 1. i=02. While i=03.
Msgbox "我停不下来啦!!快住手"4. EndWhile5. //当循环条件成立的时候，反复执行循环体 四、颜色/图像命令 命令名称：命令功能：命令参数： FindCenterColor 中心找色 在屏幕区域从中心开始查找指定的颜色 参数1 整数型，屏幕左上角x坐标参数2 整数型，屏幕左上角y坐标参数3 整数型，屏幕右下角x坐标参数4 整数型，屏幕右下角y坐标参数5 字符串型，16进制颜色值参数6 整数型，返回x坐标参数7 整数型，返回y坐标
返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //FindCenterColor left,top,right,bottom,c,x,y2. //在区域内从中心到外围找颜色为c的点，把坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5. //如果没有找到这个颜色，则x和y的值都被置为-16. FindCenterColor 0,0,800,600,"0000FF",x,y7. If x&0 and y&0 Then8.
MoveTo x,y9. End If10. //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点脚本例子：(7.x语法)
复制代码 1. //VBSCall FindCenterColor(left,top,right,bottom,c,x,y)2. //在区域内从中心到外围找颜色为c的点，把坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5. //如果没有找到这个颜色，则x和y的值都被置为-16. VBSCall FindCenterColor(0,0,800,600,"0000FF",x,y)7. If x&0 and y&08.
MoveTo x,y9. EndIf10. //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点 命令名称：命令功能：命令参数： FindColor 找色 在屏幕区域从左到右、从上到下的查找指定的颜色 参数1 整数型，屏幕左上角x坐标参数2 整数型，屏幕左上角y坐标参数3 整数型，屏幕右下角x坐标参数4 整数型，屏幕右下角y坐标参数5 字符串型，16进制颜色值参数6 整数型，返回x坐标参数7 整数型，返回y坐标返 回 值：脚本例子：(8.x语法)无 复制代码 1. //FindColor left,top,right,bottom,c,x,y 2. //在区域内从左到右，从上到下找颜色为c的点，把坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5. //如果没有找到这个颜色，则x和y的值都被置为-16. FindColor 0,0,800,600,"0000FF",x,y7. If x&0 and y&0 Then8.
MoveTo x,y9. End If10. //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点
脚本例子：(7.x语法)
复制代码 1. //VBSCall FindColor(left,top,right,bottom,c,x,y)2. //在区域内从左到右，从上到下找颜色为c的点，把坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5. //如果没有找到这个颜色，则x和y的值都被置为-16. VBSCall FindColor(0,0,800,600,"0000FF",x,y)7. If x&0 and y&08.
MoveTo x,y9. EndIf10. //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点命令名称：命令功能：命令参数： FindColorEx 模糊找色 在屏幕区域模糊查找指定的颜色 参数1 整数型，屏幕左上角x坐标参数2 整数型，屏幕左上角y坐标参数3 整数型，屏幕右下角x坐标参数4 整数型，屏幕右下角y坐标参数5 字符串型，16进制颜色值参数6 整数型，查找方式参数7 整数型，相似度参数8 整数型，返回x坐标参数9 整数型，返回y坐标返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //FindColorEx left,top,right,bottom,c,type,similar,x,y2. //在区域内找颜色为c的点，把坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号
5. //type表示查找方式。0为从上往下，从左往右找；1为从中心往外围找6. //similar为相似度，取0.3到1之间的小数。数值越大，对相似度要求越严格。推荐取0.87. //如果没有找到这个颜色，则x和y的值都被置为-18. FindColorEx 0,0,800,600,"0000FF",1,0.8,x,y9. If x&0 and y&0 Then10.
MoveTo x,y11. End If12. //在区域(0,0,800,600)中，从中间开始找接近红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点脚本例子：(7.x语法)
复制代码 1. //VBSCall FindColorEx(left,top,right,bottom,c,type,similar,x,y)2. //在区域内找颜色为c的点，把坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号5. //type表示查找方式。0为从上往下，从左往右找；1为从中心往外围找6. //similar为相似度，取0.3到1之间的小数。数值越大，对相似度要求越严格。推荐取0.87. //如果没有找到这个颜色，则x和y的值都被置为-18. VBSCall FindColorEx(0,0,800,600,"0000FF",1,0.8,x,y)9. If x&0 and y&010.
MoveTo x,y11. EndIf12. //在区域(0,0,800,600)中，从中间开始找接近红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点
2. //在区域内从左到右，从上到下找文件名为filename的bmp文件，把找到的坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //filename是一个bmp格式的图片，需要您自己抓取，最好是24位，把边缘都设为单一的颜色5. //similar为相似度，取0.5到1之间的小数。数值越大，对图片的相似度要求越严格，速度也越快。推荐取0.96. //如果没有找到图片，则x和y的值都被置为-17. //推荐使用周围颜色单一的图片8. MessageBox "这个例子会启动一个Windows自带的扫雷程序，然后查找扫雷程序里的笑脸图形"9. RunApp "winmine.exe"10. //加入一点延时，让扫雷程序顺利启动11. Delay 200012. FindPic 0,50,,"winmine.bmp",0.9,intX,intY13. If intX&0 and intY&0 Then14.
MoveTo intX,intY15.
MessageBox "找到图形，鼠标已经移到图形上面"16. Else17.
MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"18. End If19. //在区域(0,50,)中找与文件winmine.bmp中的图形比较接近的地方，如果找到，则把鼠标移动到这个地方20. //6.30版之后，找图的文件路径可以直接引用附件中的图片，不需要释放，例子21. MessageBox "下面把鼠标先移到0，0点，再用附件找图的方式继续查找笑脸"22. FindPic 0,50,,"Attachment:\winmine.bmp",0.9,intX,intY23. If intX&0 and intY&0 Then24.
MoveTo intX,intY25.
MessageBox "找到图形，鼠标已经移到图形上面"26. Else27.
MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"28. End If29. MessageBox "脚本演示结束，最好的脚本永远是您自己制作的。 :-)"30. EndScript 脚本例子：(7.x语法)
复制代码 1. //VBSCall FindPic(left,top,right,bottom,filename,similar,x,y)2. //在区域内从左到右，从上到下找文件名为filename的bmp文件，把找到的坐标保存在变量x和y中3. //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限4. //filename是一个bmp格式的图片，需要您自己抓取，最好是24位，把边缘都设为单一的颜色5. //similar为相似度，取0.5到1之间的小数。数值越大，对图片的相似度要求越严格，速度也越快。推荐取0.96. //如果没有找到图片，则x和y的值都被置为-17. //推荐使用周围颜色单一的图片8. MessageBox "这个例子会启动一个Windows自带的扫雷程序，然后查找扫雷程序里的笑脸图形"9. VBSCall RunApp("winmine.exe")10. //加入一点延时，让扫雷程序顺利启动11. Delay 2000 12. VBSCall FindPic(0,50,,"winmine.bmp",0.9,intX,intY)13. If intX&0 and intY&014.
MoveTo intX,intY15.
MessageBox "找到图形，鼠标已经移到图形上面"16. Else17.
MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"18. EndIf19. //在区域(0,50,)中找与文件winmine.bmp中的图形比较接近的地方，如果找到，则把鼠标移动到这个地方20. //6.30版之后，找图的文件路径可以直接引用附件中的图片，不需要释放，例子21. MessageBox "下面把鼠标先移到0，0点，再用附件找图的方式继续查找笑脸"22. VBSCall FindPic(0,50,,"Attachment:\winmine.bmp",0.9,intX,intY)23. If intX&0 and intY&024.
MoveTo intX,intY25.
MessageBox "找到图形，鼠标已经移到图形上面"26. Else27.
MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"28. EndIf29. MessageBox "脚本演示结束，最好的脚本永远是您自己制作的。 :-)"30. EndScript 命令名称：命令功能：命令参数： GetPixelColor 得到指定点颜色 得到指定位置的点的颜色 参数1 整数型，屏幕X坐标参数2 整数型，屏幕Y坐标返 回 值：脚本例子：(8.x语法)
字符串型，得到的颜色16进制值 复制代码 1. GetCursorPos x,y2. cr1=GetPixelColor(x,y)3. MessageBox cr14. //得到当前点的颜色，并弹出对话框显示出来 脚本例子：(7.x语法)
复制代码 1. VBSCall GetCursorPos(x,y)2. VBSCall color1=GetPixelColor(x,y)3. MessageBox color14. //得到当前点的颜色，并弹出对话框显示出来
五、其他命令命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
Delay 延时 脚本暂停执行一段时间 参数1 整数型，延时时间 无 复制代码 1. //{延时}里面填写”毫秒”数2. //1秒＝1000毫秒, 1分钟＝60000毫秒, 1小时＝3600000毫秒3. Delay 60004. //延迟6秒5. x = 50006. Delay x7. //延时x秒，这里x是5秒 脚本例子：(7.x语法)
复制代码 1. //{延时}里面填写”毫秒”数2. //1秒＝1000毫秒, 1分钟＝60000毫秒, 1小时＝3600000毫秒3. Delay 60004. //延迟6秒5. x = 50006. Delay x7. //延时x秒，这里x是5秒 脚本例子：(7.x语法)
复制代码 1. //当文件被导入后，里面的函数可以直接被调用，不需要使用VBSCall或Plugin命令2. //在VBScript块中需要调用vbs文件或者插件中的函数时，必须采用这种方式，不能再冠以VBSCall或Plugin关键字3. Import Memory.dll4. //导入Memory插件命令 命令名称：命令功能：命令参数： InputBox 用户输入对话框 在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。 参数1 字符串型，消息字符串参数2 字符串型[可选]，标题参数3 字符串型[可选]，提示框默认内容参数4 整数型[可选]，对话框X坐标位置参数5 整数型[可选]，对话框Y坐标位置返 回 值：脚本例子：(8.x语法)
字符串型，返回文本框内容 复制代码 1. Dim Input2. Input = InputBox("请输入名字:","提示:","张三",0,0)3. MsgBox "输入: " & Input4.5.6. //[可选]意思是,也可以不需要填参数7. //如下:8. Dim Input9. Input = InputBox("请输入名字:")10. MsgBox "输入: " & Input 脚本例子：(7.x语法)
复制代码 1. Dim Input2. Input = InputBox("请输入名字:","提示:","张三",0,0)3. MsgBox "输入: " & Input4.5.6. //[可选]意思是,也可以不需要填参数7. //如下:8. Dim Input9. Input = InputBox("请输入名字:")10. MsgBox "输入: " & Input
命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
LogStart 开始记录日志 记录日志 字符串型：文件名 无 复制代码 1. LogStart "C:\a.log" //记录日志2. For i = 0 To 33.
TracePrint "保存次数：" & i4.
Call Plugin.Msg.ShowScrTXT(0, 0, , "屏幕内容填写：" & i, "0000FF")5. Next6. LogStop //记录日志停止7. TracePrint "这句不会输出到日志里！" 脚本例子：(7.x语法)
复制代码 1. 无 MessageBox 弹出对话框 命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
弹出一个窗口 参数1 字符串型，提示内容文字 无 复制代码 1. MessageBox "弹出窗口"2. //提醒: 按键VBS语句中也提供了MessageBox命令，可以支持变量，因此MessageBox命令也可以直接写成支持变量的方式3. x = "提醒窗口"4. MessageBox x 脚本例子：(7.x语法)
复制代码 1. MessageBox "弹出窗口"2. //提醒: 按键VBS语句中也提供了MessageBox命令，可以支持变量，因此MessageBox命令也可以直接写成支持变量的方式3. x = "提醒窗口"4. MessageBox x 命令名称：命令功能：命令参数： PutAttachment 释放附件 把当前脚本包含的附件展开到指定的路径下 参数1 字符串型，可选：路径参数2 字符串型，可选：要释放的文件返 回 值：脚本例子：(8.x语法)
无 复制代码 1. //[路径]是指定的相对路径或者绝对路径。2. //如果省略[路径]或者[路径]为 . ，则默认展开到按键精灵所在的文件夹中3. //可以指定要释放的文件，允许使用通配符，如 *.bmp。如果不指定要释放的文件，则默认释放所有文件4. PutAttachment "c:\","*.bmp"5. //将附件中所有后缀是bmp的文件释放到c盘6. PutAttachment ".\plugin","*.dll"7. //将附件中所有后缀是dll的文件释放到当前文件夹的plugin目录下 脚本例子：(7.x语法)
复制代码 1. //[路径]是指定的相对路径或者绝对路径。2. //如果省略[路径]或者[路径]为 . ，则默认展开到按键精灵所在的文件夹中3. //可以指定要释放的文件，允许使用通配符，如 *.bmp。如果不指定要释放的文件，则默认释放所有文件4. PutAttachment c:\ *.bmp5. //将附件中所有后缀是bmp的文件释放到c盘 6. PutAttachment .\plugin *.dll7. //将附件中所有后缀是dll的文件释放到当前文件夹的plugin目录下命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
RunApp 运行 启动一个程序或者打开一个文件 参数1 字符串型，要运行的程序或者文件 无 复制代码 1. //如果程序路径不是变量，别忘了加双引号2. RunApp "notepad.exe"3. //启动Windows记事本程序 脚本例子：(7.x语法)
复制代码 1. //如果程序路径不是变量，别忘了加双引号2. VBSCall RunApp("notepad.exe")3. //启动Windows记事本程序 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法)
SayString 输入文本 在当前窗口输入文字参数1 字符串型，表达式 无 复制代码 1. SayString "你好啊"2. x = "我很好"3. SayString x 脚本例子：(7.x语法)
复制代码 1. SayString "你好啊"2. x = "我很好"3. SayString x SetSimMode 设置模拟方式 设置模拟方式 命令参数：返 回 值：脚本例子：(8.x语法)
参数1 整数型，设置模拟方式无 复制代码 1. //模拟方式(0普通|1硬件|2超级)2. MessageBox "这个例子会演示 普通/硬件/超级 这三种模拟方式的效果，点击确定后3秒钟开始模拟，会用普通模拟按3下a，硬件模拟按3下b，超级模拟按3下c"3. Delay 30004. SetSimMode 05. KeyPress 65,36. MoveTo 0,07. Delay 10008. SetSimMode 19. KeyPress 66,310. MoveTo 100,10011. Delay 100012. SetSimMode 213. KeyPress 67,314. MoveTo 200,20015. MessageBox "演示结束" 脚本例子：(7.x语法) 复制代码 1. //模拟方式(0普通|1硬件|2超级)2. MessageBox "这个例子会演示 普通/硬件/超级 这三种模拟方式的效果，点击确定后3秒钟开始模拟，会用普通模拟按3下a，硬件模拟按3下b，超级模拟按3下c"3. Delay 30004. SetSimMode 05. KeyPress 65,36. MoveTo 0,07. Delay 10008. SetSimMode 19. KeyPress 66,310. MoveTo 100,10011. Delay 100012. SetSimMode 213. KeyPress 67,314. MoveTo 200,20015. MessageBox "演示结束"16. TracePrint 调试输出 在调试窗口打印文字 命令参数：返 回 值：脚本例子：(8.x语法) 参数1 字符串型，变量名 无 复制代码 1. x=1002. //可用于输出变量的值3. TracePrint x4. //在调试窗口输出变量x的值 脚本例子：(7.x语法) 复制代码 1. //可用于输出变量的值2. TracePrint x3. //在调试窗口输出变量x的值 命令名称：命令功能：命令参数： UserVar 用户定义变量 用于支持用户设置脚本参数 参数1 字符串型，变量参数2 字符串型，默认值返 回 值：脚本例子：(8.x语法) 字符串型，设置的值 复制代码 1. //标准型自定义变量2. //格式: UserVar {变量}={默认值} {注释}3. //解释:这个命令主要用于用户自定义的设置功能4. UserVar var1=30 "当HP＜多少％时，使用红药"5. UserVar var2=30 "当MP＜多少％时，使用蓝药"6. //当用户使用这个脚本的时候，可以对这var1和var2这两个变量的取值进行设置7. //下拉型自定义变量8. //格式: UserVar 变量=DropList{选项0:值0|选项1:值1|选项2:值2}=默认显示的选项编号 {注释}9. //解释:这个命令预先设定多个变量值，用户可在基面通过下拉方式进行选择10. UserVar Var1=DropList{"低于10%时补血":0.1|"低于20%时补血":0.2|"低于30%时补血":0.3}=2 "自动补血设置"11. //特别提醒：默认显示的选项编号从0开始 脚本例子：(7.x语法) 复制代码 1. //标准型自定义变量2. //格式: UserVar {变量}={默认值} {注释}3. //解释:这个命令主要用于用户自定义的设置功能 4. UserVar var1=30 当HP＜多少％时，使用红药5. UserVar var2=30 当MP＜多少％时，使用蓝药6. //当用户使用这个脚本的时候，可以对这var1和var2这两个变量的取值进行设置7. //下拉型自定义变量8. //格式: UserVar 变量=DropList{选项0:值0|选项1:值1|选项2:值2}=默认显示的选项编号 {注释}9. //解释:这个命令预先设定多个变量值，用户可在基面通过下拉方式进行选择10. UserVar Var1=DropList{低于10%时补血:0.1|低于20%时补血:0.2|低于30%时补血:0.3}=2 自动补血设置11. //特别提醒：默认显示的选项编号从0开始 命令名称：命令功能：命令参数：返 回 值：脚本例子：(8.x语法) VBSBegin..VBSEnd VBS执行块 构成一个VBScript块 无 无 复制代码 1. VBSBegin2. For i=0 to 53. Msgbox "我在循环运行VBScript块哦!!"4. '这是注释5. Next6. VBSEnd7. //在VBScript块中可以使用任何VBScript语句（包括VBScript的条件判断、子程序调用等等），也可以使用大多数的按键精灵命令。8. 例子2：9. //定义过程必须放在脚本开头！10. VBSBegin11. '这是一个注释12. Function name(list)13. msgbox list+114. End Function15. VBSEnd16. //下面是使用过程函数17. name 1018. 脚本例子：(7.x语法) 复制代码 1. VBSBegin2. For i=0 to 53. Msgbox "我在循环运行VBScript块哦!!" 4. '这是注释5. Next6. VBSEnd7. //在VBScript块中可以使用任何VBScript语句（包括VBScript的条件判断、子程序调用等等），也可以使用大多数的按键精灵命令。8. 例子2：9. //定义过程必须放在脚本开头！10. VBSBegin11. '这是一个注释12. Function name(list)13. msgbox list+114. End Function15. VBSEnd16. //下面是使用过程函数17. name 1018. Windowns扫雷游戏脚本实例：Rem StartLockMouse//查找扫雷窗口，句柄存为hdPlugin hd=Window.Find("扫雷","扫雷")If hd=0MessageBox "你应该没有打开扫雷游戏吧？"Else//获得窗口四个角的坐标Plugin WRect=Window.GetWindowRect(hd)VBS Dim x(4)VBS i=1While i&=4VBS WL=Len(WRect)VBS LL=InStr(WRect,"|")If LL&&0VBS x(i)=left(WRect,LL-1)VBS WRect=right(WRect,Wl-LL)ElseVBS x(i)=WRectEndIfVBS i=i+1EndWhileVBS Dim hg,sg//计算横格数VBS hg=int((x(3)-x(1)-20)/16)//计算竖格数
VBS sg=Int((x(4)-x(2)-100)/16)MoveTo x(3)+1,x(4)+1LeftClick 1Delay 10Plugin Window.SendKeyPress(hd,88)Delay 10Plugin Window.SendKeyPress(hd,89)Delay 10Plugin Window.SendKeyPress(hd,90)Delay 10Plugin Window.SendKeyPress(hd,90)Delay 10Plugin Window.SendKeyPress(hd,89)Delay 10Plugin Window.SendKeyPress(hd,16)Delay 10Plugin Window.Active(hd)//雷区最左上角一格的坐标VBS x0=x(1)+21:y0=x(2)+100VBS i=0//用鼠标扫描整个雷区While i&sgVBS j=0While j&hgMoveTo x0+j*16,y0+i*16Delay 5IfColor 0,0,ffffff,0LeftClick 1ElseIfColor 0,0,0,0ElseKeyPress 116,1Goto StartEndIfEndIfVBS j=j+1EndWhileVBS i=i+1EndWhileEndIfUnlockMouseEndScript 按键插件《扫雷》系列一【读取内存】 内存读取插件，用于读取某窗体句柄所在进程内存。与按键精灵本身提供的“VBSCall ReadMemory()”功能几乎相同。不同点在于：1、VBSCall ReadMemory()读取最前台窗口内存。Plugin Memory.Read()读取某窗体的内存。2、Memory插件，提供更多更丰富的功能。在给出Memory插件例子之前，先说说windows如何管理进程内存的，知其然要知其所以然，避免概念上的错误理解。在说内存之前，我们要知道windows是多进程的操作系统，CPU时间片根据进程优先级的不同在各个进程中切换，从而实现了多进程的管理机制。要详细解释“进程-内存”的关系比较复杂，一两篇文章也说不清楚。这里我就简要说明几个与本文有关联的系统知识。绝大多数学过计算机编程的同学，应该都清楚，在编写程序的时候，根本就没有多进程的概念，也不会向这方面想。但一到涉及到内存的时候就会犯迷糊，windows这么多进程，到底应该读取哪个地方的内存呢？其实不是这样的，windows只是模拟出多进程的环境，实际的运算都在CPU上完成，而一个CPU在一个时间只能处理一条指令，也就是说，对于cpu而言，只是单进程操作（请允许我提到CPU、指令这些与汇编有关系的内容，我想不到如何能把这个概念简单的描述出来，这些是概念，看懂意思就没问题了）。windows模拟多进程的操作，大概是这样的：把进程A送到CPU中处理20微秒-&保存进程A环境-&进程B送到CPU中处理20微秒-&保存进程B环境……一直循环这个过程。CPU的速度很快，系统在多进程切换，我们基本上感觉不到。所以实现了“多进程”。现在轮到内存了:_)内存这里是个比较卡人的地方，当初我也卡在这里过，其实当初也是因为概念不明而已，我在这里详细说说。windows有一套自己的内存管理方案，每个进程都独享独立的4G虚拟地址空间（注意这里，是虚拟地址内存，非物理内存，当初我就卡在这里了）。这个4G，在每个进程中都是真实存在的，但因为是虚拟内存（注意这里，这里所说的虚拟内存和调节windows的虚拟内存不是一个东西），程序用到的内存部分，加载到物理内存，供给cpu读取，用不到的，依然还是硬盘上的文件。所以实际的物理内存占用并不高。明白这个概念，之后的东西就好办了。我们在读取内存的时候，读出来的都在虚拟里，windows是不允许用户直接操作物理内存的（这里涉及到ring0/3环的问题，与本文无关，略过，只要记住，我们不要考虑物理内存就可以了）。举个例子，我们读取进程A中的50000地址，再读取进程B中的50000地址，读的地址，完全不同，因为他们放到两快虚拟内存中。至于它到底在物理内存中哪个位置，只有windows知道（其实对程序员来说，也没有必要知道）。我反复强调了“进程-内存”，是因为我当初卡在这里过，如果看到这里，你还是云里雾里，那么建议你回头再看一遍。讲完了概念，进入正题：我们要做的，正是读取windows自带的经典游戏《扫雷》中的“雷”所在的位置，旨在用代码描述内存插件的使用方法。我始终坚信，代码是最好的老师，比任何教程都强。所以我直接给出注释全面的代码，以供分析。//**********************************//* 以下例子只支持xp操作系统中扫雷 *//**********************************////hwnd中保存扫雷游戏的窗体句柄Dim hwnd//查找《扫雷》的窗体句柄Plugin hwnd=Window.Find("扫雷","扫雷")If hwnd=0MessageBox "扫雷游戏没有打开哟！"EndScriptEndIf//x, y中分别保存当前扫雷的长与宽的格子数量Dim x, y
Plugin x=Memory.Read32Bit(hwnd,&h1005334)Plugin y=Memory.Read32Bit(hwnd,&h1005338)//建个双重循环，循环所有格子，这里用VBScript的循环会很方便，所以加入vbsbegin块Import Memory.dllVBSBeginDim i, j, value, strviewstrview="说明：@代表安全，*代表雷" & vbcrlfFor i=0 to x-1For j=0 to y-1value=Memory.Read8Bit(hwnd,&h1005360+(j+i*32+1))'注意：VBSBegin中的注释是“'”'//8A=显示出的雷'//8F=未显示出的雷If value=&h8A& or value=&h8F& thenstrview=strview & " *"Elsestrview=strview & " @"End IfNextstrview=strview & vbcrlfNextMessageBox strviewVBSEnd 相信大家都可以通过插件的函数名称判断函数的作用，以上代码很简单，我不做过多讲解了哈下部分，轮到windows插件，我会详细讲解“窗体位置”的概念 按键插件《扫雷》系列二【窗口位置】按照惯例，首先介绍下“窗口坐标系”、“窗口工作区”和“窗口客户区”的概念，最后给出自动扫雷脚本。“窗口坐标系”是我自创的描述词，术语叫什么我还真不清楚。这个概念很容易理解，我们都知道桌面分辨率，分辨率越高，显示的桌面内容就越多。我们也知道，窗口是“摆放”在桌面上的，甚至可以超出桌面范围（比如随意把一个窗口拖到桌面之外）。而窗口坐标系就是窗口摆放在桌面的位置。假设桌面是，那么桌面左上角坐标就是0,0。桌面右下角坐标就是（因为是从0开始）。这样，窗口所在桌面的坐标就是“窗口坐标系”了。“窗体工作区”和“窗体客户区”，这两个词从字面上很难理解，微软的官方文档就是这么叫的。我用一张图来表示工作区和客户区有什么不同。从上图可以看出，工作区包含了窗体的四条边框，上面的边框最宽，叫做标题栏，其他的边框只有窄窄的一条。为什么要区分工作区和客户区呢？大家会议下XP系统默认的标题栏高度和98/2000系统默认的标题栏高度就明白了。也就是说，我们编写按键脚本的时候，直接从客
户区入手，这样就不用考虑标题栏高度和四条窗体边框的问题了。下面的脚本例子，建议大家输出看看结果，对理解工作区和客户区有帮助： //**************************//*窗体工作区 与 窗体客户区*//**************************////启动扫雷VBSCall RunApp("winmine.exe")//等待扫雷启动完毕Delay 500dim hwndPlugin hwnd=Window.Find("扫雷","扫雷")//移动扫雷窗口到0,0位置Plugin Window.Move(hwnd,0,0)dim winrect, clirect//获得windows区域Plugin winrect=Window.GetWindowRect(hwnd)//获得client区域Plugin clirect=Window.GetClientRect(hwnd)MessageBox "窗体工作区：" & winrect & vbcrlf & "窗体客户区：" & clirect 明白了基本概念之后，下面给出扫雷脚本的鼠标控制例子：//**********************************//* 以下例子只支持xp操作系统中扫雷 *//**********************************////hwnd中保存扫雷游戏的窗体句柄Dim hwnd//查找《扫雷》的窗体句柄Plugin hwnd=Window.Find("扫雷","扫雷")If hwnd=0MessageBox "扫雷游戏没有打开哟！"EndScriptEndIf//获取扫雷窗口位置dim cliectRectPlugin cliectRect=Window.GetClientRect(hwnd)//rx, ry保存雷区左上角第一个雷的坐标dim rx, ry//按“|”分割字符串dim tmptmp=split(cliectRect,"|")//:是VB里的一种多行语句写成一行的用法，同样试用于按键脚本rx=cint(tmp(0))+20 : ry=cint(tmp(1))+60//x, y中分别保存当前扫雷的长与宽的格子数量Dim x, yPlugin x=Memory.Read32Bit(hwnd,&h1005334)
Plugin y=Memory.Read32Bit(hwnd,&h1005338)//建个双重循环，循环所有格子，这里用VB的循环会很方便，所以加入vbsbegin块Import Memory.dllVBSBeginDim i, j, valueFor i=0 to x-1For j=0 to y-1value=Memory.Read8Bit(hwnd,&h1005360+(j+i*32+1))'//F==非雷If value&&&hF&thenMoveTo rx+j*16,ry+i*16Delay 100RightClick 1Delay 100End IfNextNextVBSEnd 如果上一章的内容弄懂了，这篇还是真容易理解的。下章，准备说一下“消息循环”机制，和用消息控制扫雷 按键插件《扫雷》系列二【窗口消息】新人总会在论坛里看到后台挂机，后台消息，到底消息是什么，为什么可以实现后台，是本章描述的重点。同样最后会给出消息的扫雷例子。消息，在windows里占有至关重要的位置，可以说windows就是由消息驱动的。消息，顾名思义，就是通知、告知某个窗体或某个控件现在应该接到了什么命令。windows的消息非常的多，有鼠标移动的，键盘按下弹起的，有窗口位置移动的，改变窗体大小，最小化，最大化等。可以说，所能看到的桌面窗体变化、鼠标键盘操控，最终体现在windows里的都是消息。windows掌管一个大的消息循环，为理解方面，我用一张草图描述这个流程：由上图可知，消息最终发送到每个窗体，每个窗体接到这个消息命令后，怎么处理那都是各个窗体自己的活了。但是前面的部分确是由windows掌管的。明确了以上的内容，大家应该知道为什么有些游戏用消息不好使，有些游戏游戏用消息好使了。如果游戏自己做了某种判断，或者有些反外挂的程序在运行（比如NP），那么消息对其无效，可以简单理解，游戏对消息做了过滤（这么描述不准确，但我们只要知道了这点，就
足够了，如想了解更多消息的内容，百度上有很多文章）。所以，消息不是所有游戏都通用的。接下来说另外一个概念，窗口的组成。我们可以看到一个窗口，并且拖拉，最小化它。但是这个窗口，不一定由一个窗体组成。比如IE浏览器，IE浏览器就好比一个房子，里面有很多房间，每个房间就是一个窗体，这些房间共同组成了房子。用过VB的朋友，应该很容易理解。每拖的一个控件，都有独立的窗口句柄（句柄的概念在后面会讲到），只有table除外。只有游戏不同，一般的游戏，通常只有一个窗体，因为是DX成像，反到不需要这许多控件。什么是DX成像？就是用DX把要显示的画面，画到窗体上。以上内容说的非常混乱，简单理解就是，普通应用程序有很多个窗口组成一个大的窗口。而游戏，一般只有一个窗口。这么多窗口，windows怎么知道哪个是哪个呢？聪明的windows引入了“窗体句柄”的概念。一个窗口对应一个数字，这个数字在文档中就叫做句柄了。注意，没有一个句柄是相同的，好像门牌号一样，这样就可以顺利区分到底在给哪个窗口发送消息了。还有一点也非常重要 ，这个句柄是windows随机分配的，有效期只在这个窗口销毁前。换句话说，窗口A只要存在，那么他的句柄就是固定的，如果关闭、再启动窗口A，那么窗口A的句柄就会变化。假如连续启动了3个窗口A，那么3个窗口A的句柄也不一样。罗里八梭的说了这么多，也不知道大家是否有看明白。如果没看明白，就回头再看一遍，还看不明白，跟帖留言。 总结一下我前面所说的东西：1、windows掌管消息分发，发到窗口后，由窗口自行处理2、一个窗口，可能由1-N个窗口组成3、每个窗体句柄，标识一个窗体或控件4、窗体句柄的生存周期，就是窗体的生存周期5、同窗体每次启动，其句柄并不相同我使用了361的后台消息插件，不多废话，直接上例子：//**********************************//* 以下例子只支持xp操作系统中扫雷 *//**********************************////hwnd中保存扫雷游戏的窗体句柄Dim hwnd//查找《扫雷》的窗体句柄Plugin hwnd=Window.Find("扫雷","扫雷")If hwnd=0MessageBox "扫雷游戏没有打开哟！"EndScript
EndIf//x, y中分别保存当前扫雷的长与宽的格子数量Dim x, yPlugin x=Memory.Read32Bit(hwnd,&h1005334)Plugin y=Memory.Read32Bit(hwnd,&h1005338)//建个双重循环，循环所有格子，这里用VB的循环会很方便，所以加入vbsbegin块Import Memory.dllImport BGKM5.dllVBSBeginDim i, j, valueFor i=0 to x-1For j=0 to y-1value=Memory.Read8Bit(hwnd,&h1005360+(j+i*32+1))'//小于&h80的，都不是雷If value&&h80& then//这里的20和60大家体会一下，16是雷格式的间距：）BGKM5.LClick hwnd,20+j*16,60+i*16ElseBGKM5.RClick hwnd,20+j*16,60+i*16End IfNextNextVBSEnd有没有发现代码居然比上一章的简单，没错，对消息来说，只需要知道给出这个控件偏移的x,y然后点击就可以了。最后说一下，扫雷只有一个窗口，而且带有游戏性，这也是为什么我拿扫雷做例子的原因：） 网络游戏循环找图找坐标详细教程（供新手学习）拜读了LZ的贴以后深感LZ的无私奉献把这么核心的能发出来,我总结上贴把LZ的所发的精简写成源码发出来!图的部分大家自己抓 [General]Description=我的脚本BeginHotkey=121BeginHotkeyMod=0
PauseHotkey=0PauseHotkeyMod=0StopHotkey=123StopHotkeyMod=0RunOnce=1EnableWindow=Enable=1AutoRun=0[Repeat]Type=0Number=1[Relative]SetupOCXFile=[Comment]Content= 图片自己加好了 [Script]VBS dim s(4),t, x1, y1VBS s(0)="0":s(1)="1":s(2)="2":s(3)="3":s(4)="k"VBS t=0Rem 1If t&4ElseVBSCall FindPic(0,0,650,502,"Attachment:\"&s(t)&".bmp",0.8,x1,y1)If x1&0 and y1&0Else[url=file://\\MessageBox]\\MessageBox[/url] tVBS t=t+1Goto 1EndIfEndIf
《蜀门》辅助脚本源码//现在发一个目前很红的游戏《蜀门》辅助脚本源码,纯颜色版无封号危险，功能很简单，不过简单游上跟这个差不多的也要5块一星期。//使用时到按键精灵官方网下载个按键精灵安装，打开，新建个脚本，选源文件，把源码帖在里面就好了。在右边下方有设置选项。Delay 64Plugin ckjb=Window.Foreground()Plugin ckbk=Window.GetWindowRect(ckjb)VBS ckbka=split(ckbk,"|")bkx1=ckbka(0): bky1=ckbka(1): bkx2=ckbka(2): bky2=ckbka(3)Delay 64VBS xxts="脚本初始化，请稍后............................................................"Gosub 写信息Delay 256UserVar Hong=50 补血百分比UserVar lan=50 补蓝百分比UserVar DZ=DropList{打坐:0|吃药:1}=0 低血选项UserVar ADZ=6 打坐按键（0--9）VBS ADZ=ADZ+48UserVar HP=4 加血按键（0--9）VBS HP=HP+48UserVar MP=5 加蓝按键（0--9）VBS MP=MP+48UserVar JN=1 技能按键（0--9）VBS JN=JN+48UserVar wpgq=20e72e 怪物光圈颜色(找物品用,光圈特征色)UserVar nzsz=DropList{随机选择:0|手动选择:1}=0 验证码处理方法Delay 256VBSCall FindColorEx(bkx1,bky1+32,bkx1+100,bky1+100,"0300df",0,0.9,hprX,hprY)VBS hppx=Cint(hprx+hong*1.56): mppx=Cint(hprx+lan*1.56)Delay 256Gosub HPMPDelay 64Rem 开始主程序Delay 100VBSCall FindColorEx(hprX+280,hprY-4,hprX+283,hprY+4,"0300df",0,0.8,intX,intY)Delay 16If intX&0VBS xxx=1VBS xxts="锁定怪物,开始攻击......................................................................................"Gosub 写信息Delay 100KeyPress JN,1Delay 1000Else
Gosub 捡查验证Delay 32Gosub 找物Delay 32Gosub HPMPDelay 32VBS xxx=0KeyPress 9,1Delay 128EndIfDelay 64Goto 开始主程序Sub 打坐Delay 1000Rem gVBSCall FindColorEx(hprx+154,hpry,hprx+156,hpry+18,"0100df",0,0.8,hpuX,hpuY)Delay 16VBSCall FindColorEx(hprx+154,hpry,hprx+156,hpry+18,"e0.8,hptX,hptY)Delay 16If hpuX&0 and hptx&0Delay 200Goto rElseDelay 800Goto gEndIfEndIfRem rReturn 打坐Sub 找物VBS dim jwx(5), jwy(5)Delay 64For 2VBSCall FindColorEx(bkx1+100,bky1+100,bkx2-100,bky2-100,wpgq,0,0.6,WX,WY)Delay 64EndForIf WX&0VBS jwx(0)=0: jwy(0)=0: jwx(1)=30: jwy(1)=0: jwx(2)=-30: jwy(2)=5: jwx(3)=0: jwy(3)=30: jwx(4)=0: jwy(4)=-30 VBS cci=0For 5Delay 64MoveTo jwx(cci)+WX,jwy(cci)+WYDelay 32VBSCall vas=GetCursorShape(0)Delay 32If vas=
VBS xxts="发现物品....................................................................................."Gosub 写信息Delay 64RightDown 1Delay 16RightUp 1Delay 64Goto 捡EndIfVBS cci=cci+1EndForEndIfRem 捡Delay 512Plugin XY = Color.FindShape(bkx1+300,bky1+300,bkx2-200,bky2-200, "-5|0|0,-3|0|0,-1|0|0,1|0|0,3|0|0,5|0|0,7|0|0,9|0|0,11|0|0,13|0|0,15|0|0,17|0|0,19|0|0,21|0|1,23|0|0,25|0|0,27|0|0,29|0|0,31|0|1,33|0|1,35|0|1,37|0|0,39|0|0,41|0|0,43|0|0,-5|2|0,-3|2|0,-1|2|0,1|2|0,3|2|0,5|2|0,7|2|0,9|2|0,11|2|0,13|2|0,15|2|0,17|2|1,19|2|1,21|2|1,23|2|0,25|2|1,27|2|1,29|2|0,31|2|0,33|2|0,35|2|1,37|2|1,39|2|0,41|2|0,43|2|0,-5|4|1,-3|4|0,-1|4|1,1|4|1,3|4|0,5|4|1,7|4|1,9|4|1,11|4|1,13|4|1,15|4|0,17|4|0,19|4|0,21|4|1,23|4|1,25|4|1,27|4|1,29|4|1,31|4|0,33|4|0,35|4|1,37|4|1,39|4|0,41|4|0,43|4|0,-5|6|0,-3|6|0,-1|6|0,1|6|0,3|6|0,5|6|0,7|6|0,9|6|1,11|6|1,13|6|0,15|6|0,17|6|1,19|6|1,21|6|1,23|6|0,25|6|1,27|6|1,29|6|0,31|6|0,33|6|0,35|6|1,37|6|1,39|6|1,41|6|0,43|6|0,-5|8|0,-3|8|0,-1|8|0,1|8|0,3|8|0,5|8|0,7|8|0,9|8|0,11|8|0,13|8|0,15|8|1,17|8|1,19|8|0,21|8|1,23|8|0,25|8|0,27|8|0,17|10|0,19|10|1,21|10|1,23|10|0,25|10|1,27|10|1,29|10|0,31|10|0,33|10|0,35|10|1,37|10|0,39|10|0,41|10|1,43|10|0", 1)MyArray = Split(XY, "|")OKX = Clng(MyArray(0)): OKY = Clng(MyArray(1))Delay 64If OKX&0Delay 64MoveTo OKX,OKYDelay 64LeftClick 1EndIfDelay 64Return 找物Sub HPMPVBSCall FindColorEx(hppx,hpry,hppx+1,hpry+8,"01006e",0,0.7,hpcX,hpcY)If hpcX&0Delay 128ElseIf DZ=0VBS xxts="血太少,打坐吧.........................................................................................................."Gosub 写信息Delay 512KeyPress ADZ,1Gosub 打坐ElseKeyPress HP,1
Delay 128EndIfEndIfVBSCall FindColorEx(hppx,hpry+10,hppx+1,hpry+18,"6d.7,mpcX,mpcY)If mpcX&0Delay 128ElseIf DZ=0VBS xxts="蓝太少，打坐......................................................................................................"Gosub 写信息Delay 512KeyPress ADZ,1Gosub 打坐ElseKeyPress MP,1Delay 128EndIfEndIfReturn HPMPSub 写信息Delay 64Plugin Msg.ShowScrTXT(bkx1+300,bky1+4,bkx1+800,bky1+22,xxts,"0000ff")Delay 64Return 写信息Sub 移动一下MoveTo (bkx2-bkx1)/2+100,(bky2-bky1)/2+100Delay 128LeftClick 1Delay 128Return 移动一下Sub 捡查验证Delay 16Plugin XY = Color.FindShape(bkx1, bky1+150, bkx2, bky2-150, "0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0,12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|0,26|0|0,28|0|0,30|0|1,32|0|0,34|0|0,36|0|0,38|0|1,40|0|1,42|0|1,44|0|0,0|2|1,2|2|1,4|2|1,6|2|1,8|2|0,10|2|0,12|2|1,14|2|1,16|2|1,18|2|1,20|2|1,22|2|0,24|2|0,26|2|1,28|2|1,30|2|0,32|2|0,34|2|0,36|2|0,38|2|1,40|2|0,42|2|1,44|2|0,0|4|1,2|4|0,4|4|1,6|4|0,8|4|0,10|4|0,12|4|1,14|4|0,16|4|1,18|4|0,20|4|1,22|4|0,24|4|0,26|4|0,28|4|1,30|4|0,32|4|1,34|4|0,36|4|0,38|4|1,40|4|0,42|4|1,44|4|0,0|6|1,2|6|1,4|6|1,6|6|1,8|6|0,10|6|0,12|6|1,14|6|1,16|6|1,18|6|1,20|6|1,22|6|0,24|6|1,26|6|0,28|6|1,30|6|0,32|6|0,34|6|0,36|6|0,38|6|1,40|6|0,42|6|1,44|6|0,0|8|1,2|8|0,4|8|1,6|8|0,8|8|0,10|8|0,12|8|0,14|8|0,16|8|1,18|8|0,20|8|0,22|8|0,24|8|0,26|8|1,28|8|1,30|8|0,32|8|0,34|8|0,36|8|0,38|8|0,40|8|0,42|8|1,44|8|0,0|10|1,2|10|1,4|10|1,6|10|1,8|10|1,10|10|0,12|10|0,14|10|0,16|10|1,18|10|0,20|10|0,22|10|0,24|10|1,26|10|0,28|10|1,30|10|0,32|10|0,34|10|0,36|10|0,38|10|0,40|10|0,42|10|1,44|10|1", 1)VBS ccca = Split(XY, "|")VBS nzco = Clng(ccca(0)): nzcv = Clng(ccca(1))Delay 16If nzco&0If nzsz=0
VBS xxts="出现验证码,你定义了随机选择,选择失败请等10分钟...................................."Gosub 写信息Delay 16Gosub 随机选择ElseIf nzsz=1VBS xxts="出现验证码，你定义了手动处理,15秒后按任意键继续........................"Gosub 写信息Delay 16For 7KeyPress JN,1Delay 1000KeyPress JN,1Delay 1000EndForWaitKeyEndIfEndIfReturn 捡查验证Sub 随机选择Delay 32RandomizeVBS szmjg = Int((999 * Rnd) + 1)Delay 32Plugin XY = Color.FindShape(bkx1, bky1+150, bkx2, bky2-150, "0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0,12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|0,26|0|0,28|0|0,30|0|1,32|0|0,34|0|0,36|0|0,38|0|1,40|0|1,42|0|1,44|0|0,0|2|1,2|2|1,4|2|1,6|2|1,8|2|0,10|2|0,12|2|1,14|2|1,16|2|1,18|2|1,20|2|1,22|2|0,24|2|0,26|2|1,28|2|1,30|2|0,32|2|0,34|2|0,36|2|0,38|2|1,40|2|0,42|2|1,44|2|0,0|4|1,2|4|0,4|4|1,6|4|0,8|4|0,10|4|0,12|4|1,14|4|0,16|4|1,18|4|0,20|4|1,22|4|0,24|4|0,26|4|0,28|4|1,30|4|0,32|4|1,34|4|0,36|4|0,38|4|1,40|4|0,42|4|1,44|4|0,0|6|1,2|6|1,4|6|1,6|6|1,8|6|0,10|6|0,12|6|1,14|6|1,16|6|1,18|6|1,20|6|1,22|6|0,24|6|1,26|6|0,28|6|1,30|6|0,32|6|0,34|6|0,36|6|0,38|6|1,40|6|0,42|6|1,44|6|0,0|8|1,2|8|0,4|8|1,6|8|0,8|8|0,10|8|0,12|8|0,14|8|0,16|8|1,18|8|0,20|8|0,22|8|0,24|8|0,26|8|1,28|8|1,30|8|0,32|8|0,34|8|0,36|8|0,38|8|0,40|8|0,42|8|1,44|8|0,0|10|1,2|10|1,4|10|1,6|10|1,8|10|1,10|10|0,12|10|0,14|10|0,16|10|1,18|10|0,20|10|0,22|10|0,24|10|1,26|10|0,28|10|1,30|10|0,32|10|0,34|10|0,36|10|0,38|10|0,40|10|0,42|10|1,44|10|1", 1)VBS MyArray = Split(XY, "|")VBS Xznm = Clng(MyArray(0)): Yznm = Clng(MyArray(1))Delay 32If Xznm&0If szmjg&0 and szmjg&250VBS abcx=Xznm+10: abcy=Yznm+75ElseIf szmjg&=250 and szmjg&500VBS abcx=Xznm+10: abcy=Yznm+101ElseIf szmjg&=500 and szmjg&750VBS abcx=Xznm+10: abcy=Yznm+127ElseIf szmjg&750VBS abcx=Xznm+10: Yznm+153EndIfDelay 256
MoveTo abcx,abcyDelay 32LeftClick 1Delay 256MoveTo Xznm+154,Yznm+180Delay 32LeftClick 1Delay 512Plugin XY = Color.FindShape(bkx1, bky1+100, bkx2, bky2-100, "0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0,12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|1,26|0|1,28|0|1,30|0|1,32|0|0,34|0|0,36|0|0,38|0|0,40|0|1,42|0|0,44|0|1,46|0|0,48|0|1,50|0|0,52|0|0,54|0|0,56|0|1,58|0|0,60|0|1,62|0|0,64|0|0,66|0|0,68|0|0,70|0|0,72|0|0,74|0|0,76|0|0,78|0|0,80|0|0,82|0|0,84|0|0,86|0|0,88|0|1,90|0|1,92|0|1,0|2|1,2|2|0,4|2|1,6|2|0,8|2|1,10|2|0,12|2|0,14|2|0,16|2|1,18|2|0,20|2|0,22|2|0,24|2|1,26|2|1,28|2|0,30|2|1,32|2|0,34|2|0,36|2|0,38|2|1,40|2|1,42|2|1,44|2|0,46|2|0,48|2|1,50|2|1,52|2|0,54|2|1,56|2|1,58|2|0,60|2|0,62|2|0,64|2|0,66|2|0,68|2|0,70|2|0,72|2|1,74|2|0,76|2|0,78|2|0,80|2|0,82|2|0,84|2|1,86|2|0,88|2|1,90|2|1,92|2|1,0|4|1,2|4|0,4|4|1,6|4|0,8|4|1,10|4|0,12|4|0,14|4|0,16|4|1,18|4|0,20|4|0,22|4|0,24|4|1,26|4|1,28|4|0,30|4|1,32|4|0,34|4|0,36|4|0,38|4|1,40|4|1,42|4|1,44|4|0,46|4|0,48|4|1,50|4|1,52|4|1,54|4|1,56|4|1,58|4|0,60|4|1,62|4|1,64|4|0,66|4|0,68|4|0,70|4|0,72|4|1,74|4|0,76|4|1,78|4|0,80|4|1,82|4|0,84|4|1,86|4|1,88|4|1,90|4|1,92|4|1,0|6|1,2|6|0,4|6|1,6|6|0,8|6|1,10|6|0,12|6|0,14|6|0,16|6|1,18|6|0,20|6|0,22|6|0,24|6|1,26|6|1,28|6|1,30|6|1,32|6|1,34|6|0,36|6|0,38|6|0,40|6|0,42|6|0,44|6|0,46|6|0,48|6|1,50|6|0,52|6|0,54|6|0,56|6|1,58|6|0,60|6|0,62|6|1,64|6|0,66|6|0,68|6|0,70|6|0,72|6|1,74|6|0,76|6|1,78|6|0,80|6|1,82|6|0,84|6|1,86|6|0,88|6|1,90|6|0,92|6|1", 1)VBS MyArray = Split(XY, "|")VBS BBX = Clng(MyArray(0)): BBY = Clng(MyArray(1))Delay 32If BBX&0xxts="验证码选择失败,等待10分钟....................................................."Gosub 写信息Delay 128Gosub 等待EndIfEndIfReturn 随机选择Sub 等待VBS tt4=nowRem ddsjIf datediff("s",tt4,now)&=600Delay 512Goto ddwElseDelay 512Gosub HPMPDelay 128Goto ddsjEndIfRem ddwReturn 等待
欢迎转载：
推荐：