剑侠情缘1暴击挂1锤天暴击按键精灵

来源：蜘蛛抓取(WebSpider) 时间：2015-12-06 07:54 标签： 剑侠情缘兵器谱暴击率
剑侠世界手游小米版天忍禁地高效挂机含UI全部源码 _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：76.8M更新时间：2-21
软件版本：3.2.5软件大小：62.5M更新时间：06-06
软件版本：1.2.7软件大小：29.2M更新时间：06-19
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 912|回复: 4
[源码分享]
按键精灵开发者4级可通过提升认证等级来升级勋章：
经过多次调试，亲自挂机检验优化修改代码，目前脚本稳定，挂机一觉到天亮稳稳的，再也不用担心会被KO了。脚本源代码：/*
剑侠世界手游小米版天忍禁地挂机
支持分辨率720**1920
1、天忍禁地挂机，只在天忍机关挂机 2、自动复活 3、防干扰检测 */
/*------------------------------------延迟参数定义------------------------------------*/
Dim 开始挂机时间=0
Dim 阵亡次数=0
Dim 信息统计_线程
Dim 辅助战斗_线程
Dim 检测干扰_线程
Dim 游戏包名 = &com.wali.jianxiashijie3D.mi&
Dim 是否辅助战斗 = ReadUIConfig(&辅助战斗&,0)
Dim 技能1 = ReadUIConfig(&技能1&,0)
Dim 技能2 = ReadUIConfig(&技能2&,0)
Dim 技能3 = ReadUIConfig(&技能3&,0)
Dim 技能4 = ReadUIConfig(&技能4&,0)
/*------------------------------------分辨率自适应------------------------------------*/
SetScreenScale 720, 1280
/*------------------------------------启动脚本------------------------------------*/
If Sys.AppIsFront(游戏包名) = True Then
//判断游戏是否在前台
Call 关闭地图()
Call 天忍禁地挂机点()
ShowMessage &请打开游戏后启动脚本！&
Delay 2000
/*------------------------------------地图操作封装函数------------------------------------*/
Function 打开小地图()
Dim intX,intY
FindMultiColor 23,19,84,84,&8BAAC2-101010&,&-21|-2|9FCBDB-|-1|6A9EBA-|3|7DB3CC-|-15|81A9BF-|12|70A7BF-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 50, 50
Delay 1000
FindMultiColor 656,8,&B7C8C8-101010&,&12|15|F5F5F5-|-12|3B,-23|-2|5C7D96-|-13|285A83-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
FindMultiColor 674,12,705,75,&68ABD0-101010&,&1|18|63A5CE-|33|6BA9D2-|13|010,10|26|233B86-|-1|233B86-|-3|2D&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Delay 1000
End Function
Function 关闭地图()
//关闭世界地图,小地图
Dim intX,intY
FindMultiColor 672,8,707,77,&63A6D6-202020&,&1|10|60A2D1-|23|63A2CE-|34|60A2D1-|-4|020,15|15|020,-15|-3|3,-12|23|3&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay 1000
End Function
Function 关闭自动战斗()
Dim intX,intY
FindMultiColor 642,154,697,211,&82D49A-101010&,&-6|10|6BC67C-|22|7DCF95-|11|5DBB6E-|7|CEF0CE-|9|EAFBEA-|16|D4F6D4-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 661,181
Delay 1000
TracePrint &关闭自动战斗&
Delay 1000
End Function
/*------------------------------------野外挂机操作封装函数------------------------------------*/
Function 天忍禁地挂机点()
Dim intX,intY
FindMultiColor 23,19,84,84,&8BAAC2-101010&,&-21|-2|9FCBDB-|-1|6A9EBA-|3|7DB3CC-|-15|81A9BF-|12|70A7BF-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 50, 50
Delay 3000
FindMultiColor 631,787,712,860,&010&,&7|19|8769DA-|15|C56DBD-|34|743A74-|9|6CB7D4-,0.9,intX,intY
//在野外直接开始挂机
If intX = -1 And intY = -1 Then
Call 开启挂机检测()
//打开小地图准备判断是北狱还是南狱
Call 打开小地图()
Delay 1000
//判断是否在北狱
FindMultiColor 468,214,610,391,&DDE6EB-101010&,&-26|-10|E3EBF1-|18|E2EBF1-|29|E1EAF0-|19|4F5F91-|26|E3ECF1-,0.9,intX,intY
If intX & -1 And intY & -1 Then
//点击地图上的挂机点
FindMultiColor 70,374,667,808,&C8D7F9-101010&,&2|-58|959ECF-|-61|4B,2|-29|AFC0E1-|-34|465F8F-|-19|B3BEE3-|-28|4C5D90-|-7|9DAED6-|-2|485E8F-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//判断是否到达挂机点
Delay 1000
FindMultiColor 606, , 1280, &2F&, &0|6|354D77-|7|57ACBD-|19|5FB4C1-|19|63B7C0-101010&, 0, 0.9, intX, intY
If intX & -1 And intY & -1 Then
Call 开启挂机检测()
//判断是否在南狱
FindMultiColor 203,321,577,718,&CBDBF4-101010&,&17|75|010,9|131|010,-78|148|4D5E97-|210|CBDBF4-|148|CBDBF4-|62|010,-73|69|C9D9F2&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
//点击地图上的挂机点
FindMultiColor 70,374,667,808,&C8D7F9-101010&,&2|-58|959ECF-|-61|4B,2|-29|AFC0E1-|-34|465F8F-|-19|B3BEE3-|-28|4C5D90-|-7|9DAED6-|-2|485E8F-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//判断是否到达挂机点
Delay 1000
FindMultiColor 606,0,&2F&, &0|6|354D77-|7|57ACBD-|19|5FB4C1-|19|63B7C0-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Call 开启挂机检测()
//判断是否在荣屠安全区
FindMultiColor 397,726,490,883,&010&,&19|-14|E5EDF2-|12|DFE8EE-|0|DCE5EA-|-11|E2EBEF-|11|DEE7ED-,0.9,intX,intY
If intX & -1 And intY & -1 Then
//点击地图上的挂机点
FindMultiColor 70,374,667,808,&C8D7F9-101010&,&2|-58|959ECF-|-61|4B,2|-29|AFC0E1-|-34|465F8F-|-19|B3BEE3-|-28|4C5D90-|-7|9DAED6-|-2|485E8F-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//判断是否到达挂机点
Delay 1000
FindMultiColor 606,0,&2F&, &0|6|354D77-|7|57ACBD-|19|5FB4C1-|19|63B7C0-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Call 开启挂机检测()
End Function
/*------------------------------------通用操作封装函数------------------------------------*/
Sub 挂机信息统计(阵亡次数,开始挂机时间)
TracePrint &开启挂机信息统计&
Dim 挂机时间
挂机时间 = DateTime.Format(&%H:%M:%S&, Time() - 开始挂机时间 - 28800)
ShowMessage &阵亡次数：& & 阵亡次数 & &\n挂机耗时：& & 挂机时间, , 9999
Delay 1000
Sub 辅助战斗(技能1,技能2,技能3,技能4)
TracePrint &开启辅助战斗&
Dim intX,intY
Delay 2000
FindMultiColor 606,0,&2F&, &0|6|354D77-|7|57ACBD-|19|5FB4C1-|19|63B7C0-,0.9,intX,intY
If intX & -1 And intY & -1 Then
If 技能1 = 1 Then
If CmpColorEx(&29|991|FEFEFE-|995|FAFAFA-|991|FEFEFE-.9) = 1 Then
Tap 70, 1020
Delay 3000
ElseIf CmpColorEx(&116|C-.9) && 1 Then
Tap 70, 1020
Delay 3000
If 技能2 = 1 Then
If CmpColorEx(&221|-101010&, 0.9) && 1 Then
Tap 178, 1022
Delay 3000
If 技能3 = 1 Then
If CmpColorEx(&295|-.9) && 1 Then
Tap 250, 1095
Delay 3000
If 技能4 = 1 Then
If CmpColorEx(&296|B-.9) && 1 Then
Tap 252, 1204
Delay 3000
Delay 1000
Sub 检测干扰()
TracePrint &开启检测干扰&
Dim intX,intY
//检测系统设置，返回主城界面
FindMultiColor 23,27,110,431,&1D366B-101010&,&1|43|233B70-|87|233B70-|250|7,0|282|7,1|316|7&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 360, 640
//检测聊天窗口
FindMultiColor 19,503,66,586,&010&,&14|-24|CBE6ED-|-25|99BBD6-|-4|91B2CD-|4|CAE6EE-|25|8FB4D1-|22|D4F0F5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 658, 620
//检测地图界面
FindMultiColor 672,8,707,77,&63A6D6-202020&,&1|10|60A2D1-|23|63A2CE-|34|60A2D1-|-4|020,15|15|020,-15|-3|3,-12|23|3&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//检测自动战斗
FindMultiColor 642,155,697,211,&88A9DC-101010&,&4|22|C6DDF5-|14|89ABDF-|36|7FA9DB-|26|6B9CDA-|23|9DBFE5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 661,181
Delay 1000
TracePrint &开启自动战斗&
Delay 1000
Function 开启挂机检测()
TracePrint &开启挂机检测&
If 开始挂机时间 = 0 Then
开始挂机时间 = Time()
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
Dim intX,intY
If Sys.AppIsFront(游戏包名) && True Then
//判断游戏是否在前台
//检测恢复默认视角
FindMultiColor 23,19,84,84,&8BAAC2-101010&,&-21|-2|9FCBDB-|-1|6A9EBA-|3|7DB3CC-|-15|81A9BF-|12|70A7BF-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 50, 50
Delay 2000
//判断是否在天忍机关附近
FindMultiColor 606,0,&2F&, &0|6|354D77-|7|57ACBD-|19|5FB4C1-|19|63B7C0-,0.9,intX,intY
If intX = -1 And intY = -1 Then
//检测进入天忍教
FindMultiColor 239,484,282,579,&010&,&11|-24|EDEEF2-|-15|EDEEF2-|10|E5E8EF-|16|DEE2E8-|22|EEF1F8-|9|9AB8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
TracePrint &重新定位&
Thread.Stop (信息统计_线程)
Thread.Stop (检测干扰_线程)
If 是否辅助战斗 = 1 Then
Thread.Stop (辅助战斗_线程)
Call 关闭自动战斗()
Tap 675, 1234 '点击小地图
Delay 1000
//判断是否打开小地图
FindMultiColor 674,12,705,75,&68ABD0-101010&,&1|18|63A5CE-|33|6BA9D2-|13|010,10|26|233B86-|-1|233B86-|-3|2D&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
//点击地图上的挂机点
FindMultiColor 70,374,667,808,&C8D7F9-101010&,&2|-58|959ECF-|-61|4B,2|-29|AFC0E1-|-34|465F8F-|-19|B3BEE3-|-28|4C5D90-|-7|9DAED6-|-2|485E8F-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
//判断是否到达挂机点
Delay 1000
FindMultiColor 606,0,&2F&,&1|9|3,-17|7|57ACBD-|19|5FB4C1-|19|63B7C0-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
Delay 1000
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Delay 5000
Thread.Stop (信息统计_线程)
Thread.Stop (检测干扰_线程)
If 是否辅助战斗 = 1 Then
Thread.Stop (辅助战斗_线程)
阵亡次数 = 阵亡次数 + 1
TracePrint &挂机死亡&
Delay 1000
FindMultiColor 234,663,285,823,&2&,&4|-4|D7E1EA-|4|D1D9E6-|0|ADBED3-|-10|9CB9D5-|10|93AFC8-|0|EDEFF4-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
TracePrint &重新开始挂机&
Delay 1000
Call 天忍禁地挂机点()
End Function
复制代码界面UI源代码界面1:
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框11&,
&&&&&&&&显示内容:&需要获取root权限。&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&},&&&&
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框0&,
&&&&&&&&显示内容:&支持全分辨率，游戏画质选择&流畅。&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框10&,
&&&&&&&&显示内容:&游戏内需开启自动捡钱，技能根据辅助战斗配合使用。&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&},&&&&
&&&&水平布局:
&&&&&&&&文字框:
&&&&&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&&&&&名称:&文字框7&,
&&&&&&&&&&&&显示内容:&开启辅助战斗：&,
&&&&&&&&&&&&文字大小:0,
&&&&&&&&&&&&高度:0,
&&&&&&&&&&&&宽度:0
&&&&&&&&},&&&&
&&&&&&&&下拉框:
&&&&&&&&&&&&注释:&初始选项是可选属性，默认值为0。模版中设置了三个选项，您可以根据需要增加或减少，注意各选项之间用逗号分隔。&,
&&&&&&&&&&&&名称:&辅助战斗&,
&&&&&&&&&&&&选项:
&&&&&&&&&&&&[
&&&&&&&&&&&&&否&,
&&&&&&&&&&&&&是&,
&&&&&&&&&&&&],
&&&&&&&&&&&&初始选项:0
&&&&&&&&},&&&&
&&&&&&&&注释:&用于将多个控件放在同一行&,
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框8&,
&&&&&&&&显示内容:&辅助战斗技能：&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&},&&&&
&&&&水平布局:
&&&&&&&&文字框:
&&&&&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&&&&&名称:&文字框9&,
&&&&&&&&&&&&显示内容:&技能1：&,
&&&&&&&&&&&&文字大小:0,
&&&&&&&&&&&&高度:0,
&&&&&&&&&&&&宽度:0
&&&&&&&&},&&&&
&&&&&&&&下拉框:
&&&&&&&&&&&&注释:&初始选项是可选属性，默认值为0。模版中设置了三个选项，您可以根据需要增加或减少，注意各选项之间用逗号分隔。&,
&&&&&&&&&&&&名称:&技能1&,
&&&&&&&&&&&&选项:
&&&&&&&&&&&&[
&&&&&&&&&&&&&关闭&,
&&&&&&&&&&&&&开启&,
&&&&&&&&&&&&],
&&&&&&&&&&&&初始选项:0
&&&&&&&&},&&&&
&&&&&&&&注释:&用于将多个控件放在同一行&,
&&&&水平布局:
&&&&&&&&文字框:
&&&&&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&&&&&名称:&文字框9&,
&&&&&&&&&&&&显示内容:&技能2：&,
&&&&&&&&&&&&文字大小:0,
&&&&&&&&&&&&高度:0,
&&&&&&&&&&&&宽度:0
&&&&&&&&},&&&&
&&&&&&&&下拉框:
&&&&&&&&&&&&注释:&初始选项是可选属性，默认值为0。模版中设置了三个选项，您可以根据需要增加或减少，注意各选项之间用逗号分隔。&,
&&&&&&&&&&&&名称:&技能2&,
&&&&&&&&&&&&选项:
&&&&&&&&&&&&[
&&&&&&&&&&&&&关闭&,
&&&&&&&&&&&&&开启&,
&&&&&&&&&&&&],
&&&&&&&&&&&&初始选项:0
&&&&&&&&},&&&&
&&&&&&&&注释:&用于将多个控件放在同一行&,
&&&&水平布局:
&&&&水平布局:
&&&&&&&&文字框:
&&&&&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&&&&&名称:&文字框9&,
&&&&&&&&&&&&显示内容:&技能3：&,
&&&&&&&&&&&&文字大小:0,
&&&&&&&&&&&&高度:0,
&&&&&&&&&&&&宽度:0
&&&&&&&&},&&&&
&&&&&&&&下拉框:
&&&&&&&&&&&&注释:&初始选项是可选属性，默认值为0。模版中设置了三个选项，您可以根据需要增加或减少，注意各选项之间用逗号分隔。&,
&&&&&&&&&&&&名称:&技能3&,
&&&&&&&&&&&&选项:
&&&&&&&&&&&&[
&&&&&&&&&&&&&关闭&,
&&&&&&&&&&&&&开启&,
&&&&&&&&&&&&],
&&&&&&&&&&&&初始选项:0
&&&&&&&&},&&&&
&&&&&&&&注释:&用于将多个控件放在同一行&,
&&&&水平布局:
&&&&&&&&文字框:
&&&&&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&&&&&名称:&文字框9&,
&&&&&&&&&&&&显示内容:&技能4：&,
&&&&&&&&&&&&文字大小:0,
&&&&&&&&&&&&高度:0,
&&&&&&&&&&&&宽度:0
&&&&&&&&},&&&&
&&&&&&&&下拉框:
&&&&&&&&&&&&注释:&初始选项是可选属性，默认值为0。模版中设置了三个选项，您可以根据需要增加或减少，注意各选项之间用逗号分隔。&,
&&&&&&&&&&&&名称:&技能4&,
&&&&&&&&&&&&选项:
&&&&&&&&&&&&[
&&&&&&&&&&&&&关闭&,
&&&&&&&&&&&&&开启&,
&&&&&&&&&&&&],
&&&&&&&&&&&&初始选项:0
&&&&&&&&},&&&&
&&&&&&&&注释:&用于将多个控件放在同一行&,
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框1&,
&&&&&&&&显示内容:&步骤：&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&},&&&&&&&&
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框2&,
&&&&&&&&显示内容:&1.横屏游戏，不要将手机倒放横屏；&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框3&,
&&&&&&&&显示内容:&2.在天忍禁地任意位置启动脚本；&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&文字框:
&&&&&&&&注释:&文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性&,
&&&&&&&&名称:&文字框4&,
&&&&&&&&显示内容:&3.开启脚本后不要操作手机，保持默认视角。&,
&&&&&&&&文字大小:0,
&&&&&&&&高度:0,
&&&&&&&&宽度:0
&&&&},&&&&
&好东西，学习了，感谢&
过大年勋章俩小福娃给大家拜年啦！按键精灵开发者4级可通过提升认证等级来升级勋章：小红帽对论坛提出良好建议（可向管理员申请）
学习学习。。。
学习按键ing，无偿帮助解答各种简单小问题，共同学习，共同进步。
按键会员（年）按键会员绑定账号后自动赠送小红帽对论坛提出良好建议（可向管理员申请）
按键精灵开发者4级可通过提升认证等级来升级勋章：
最近修改脚本源代码，如有不足还请各位大侠多多指点指点/*
剑侠世界手游野外挂机脚本V1.0
支持全分辨率，开发分辨率720*1280
实现功能 1、天忍禁地挂机
2、自动复活
3、防干扰检测 */
/*------------------------------------延迟参数定义------------------------------------*/
Dim 开始挂机时间=0
Dim 阵亡次数=0
Dim 信息统计_线程
Dim 辅助战斗_线程
Dim 检测干扰_线程
Dim 游戏包名 = &com.wali.jianxiashijie3D.mi&
Dim 是否辅助战斗 = ReadUIConfig(&辅助战斗&,0)
Dim 技能1 = ReadUIConfig(&技能1&,0)
Dim 技能2 = ReadUIConfig(&技能2&,0)
Dim 技能3 = ReadUIConfig(&技能3&,0)
Dim 技能4 = ReadUIConfig(&技能4&,0)
/*------------------------------------分辨率自适应------------------------------------*/
SetScreenScale 720, 1280
/*------------------------------------启动脚本------------------------------------*/
If Sys.AppIsFront(游戏包名) = True Then
//判断游戏是否在前台
Call 关闭地图()
Call 天忍禁地挂机点()
ShowMessage &请打开游戏后启动脚本！&
Delay 2000
/*------------------------------------地图操作封装函数------------------------------------*/
Function 打开小地图()
Dim intX,intY
FindMultiColor 23,19,84,84,&8BAAC2-101010&,&-21|-2|9FCBDB-|-1|6A9EBA-|3|7DB3CC-|-15|81A9BF-|12|70A7BF-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 50, 50
Delay 1000
FindMultiColor 656,8,&B7C8C8-101010&,&12|15|F5F5F5-|-12|3B,-23|-2|5C7D96-|-13|285A83-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
FindMultiColor 674,12,705,75,&68ABD0-101010&,&1|18|63A5CE-|33|6BA9D2-|13|010,10|26|233B86-|-1|233B86-|-3|2D&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Delay 1000
End Function
Function 关闭地图()
//关闭世界地图,小地图
Dim intX,intY
FindMultiColor 672,8,707,77,&63A6D6-202020&,&1|10|60A2D1-|23|63A2CE-|34|60A2D1-|-4|020,15|15|020,-15|-3|3,-12|23|3&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay 1000
End Function
Function 关闭自动战斗()
Dim intX,intY
FindMultiColor 642,154,697,211,&82D49A-101010&,&-6|10|6BC67C-|22|7DCF95-|11|5DBB6E-|7|CEF0CE-|9|EAFBEA-|16|D4F6D4-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 661,181
Delay 1000
TracePrint &关闭自动战斗&
Delay 1000
End Function
/*------------------------------------野外挂机操作封装函数------------------------------------*/
Function 天忍禁地挂机点()
Dim intX,intY
FindMultiColor 23,19,84,84,&8BAAC2-101010&,&-21|-2|9FCBDB-|-1|6A9EBA-|3|7DB3CC-|-15|81A9BF-|12|70A7BF-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 50, 50
Delay 3000
FindMultiColor 631,787,712,860,&010&,&7|19|8769DA-|15|C56DBD-|34|743A74-|9|6CB7D4-,0.9,intX,intY
//在野外直接开始挂机
If intX = -1 And intY = -1 Then
Call 开启挂机检测()
Call 打开小地图()
Delay 1000
//点击地图上的挂机点
FindMultiColor 70,374,667,808,&C8D7F9-101010&,&2|-58|959ECF-|-61|4B,2|-29|AFC0E1-|-34|465F8F-|-19|B3BEE3-|-28|4C5D90-|-7|9DAED6-|-2|485E8F-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//判断是否到达挂机点
Delay 1000
FindMultiColor 606,0,&59BCB0-101010&,&0|-2|97ADD2-|-2|92A9CF-|1|4D5D96-|2|6DBFC8-|-1|010,3|2|6CBEC8-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Call 开启挂机检测()
End Function
/*------------------------------------通用操作封装函数------------------------------------*/
Sub 挂机信息统计(阵亡次数,开始挂机时间)
TracePrint &开启挂机信息统计&
Dim 挂机时间
挂机时间 = DateTime.Format(&%H:%M:%S&, Time() - 开始挂机时间 - 28800)
ShowMessage &阵亡次数：& & 阵亡次数 & &\n挂机耗时：& & 挂机时间, , 9999
Delay 1000
Sub 辅助战斗(技能1,技能2,技能3,技能4)
TracePrint &开启辅助战斗&
Dim intX,intY
Delay 2000
FindMultiColor 606,0,&2F&, &0|6|354D77-|7|57ACBD-|19|5FB4C1-|19|63B7C0-,0.9,intX,intY
If intX & -1 And intY & -1 Then
If 技能1 = 1 Then
If CmpColorEx(&29|991|FEFEFE-|995|FAFAFA-|991|FEFEFE-.9) = 1 Then
Tap 70, 1020
Delay 3000
ElseIf CmpColorEx(&116|C-.9) && 1 Then
Tap 70, 1020
Delay 3000
If 技能2 = 1 Then
If CmpColorEx(&221|-101010&, 0.9) && 1 Then
Tap 178, 1022
Delay 3000
If 技能3 = 1 Then
If CmpColorEx(&295|-.9) && 1 Then
Tap 250, 1095
Delay 3000
If 技能4 = 1 Then
If CmpColorEx(&296|B-.9) && 1 Then
Tap 252, 1204
Delay 3000
Delay 1000
Sub 检测干扰()
TracePrint &开启检测干扰&
Dim intX,intY
//检测系统设置，返回主城界面
FindMultiColor 23,27,110,431,&1D366B-101010&,&1|43|233B70-|87|233B70-|250|7,0|282|7,1|316|7&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 360, 640
//检测聊天窗口
FindMultiColor 19,503,66,586,&010&,&14|-24|CBE6ED-|-25|99BBD6-|-4|91B2CD-|4|CAE6EE-|25|8FB4D1-|22|D4F0F5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 658, 620
//检测自动战斗
FindMultiColor 642,155,697,211,&88A9DC-101010&,&4|22|C6DDF5-|14|89ABDF-|36|7FA9DB-|26|6B9CDA-|23|9DBFE5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 661,181
Delay 1000
TracePrint &开启自动战斗&
Delay 1000
Function 开启挂机检测()
TracePrint &开启挂机检测&
If 开始挂机时间 = 0 Then
开始挂机时间 = Time()
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
Dim intX,intY
If Sys.AppIsFront(游戏包名) && True Then
//判断游戏是否在前台
//检测地图界面
FindMultiColor 672,8,707,77,&63A6D6-202020&,&1|10|60A2D1-|23|63A2CE-|34|60A2D1-|-4|020,15|15|020,-15|-3|3,-12|23|3&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay 1000
//检测恢复默认视角
FindMultiColor 23,19,84,84,&8BAAC2-101010&,&-21|-2|9FCBDB-|-1|6A9EBA-|3|7DB3CC-|-15|81A9BF-|12|70A7BF-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 50, 50
Delay 2000
//判断是否在挂机点
FindMultiColor 606,0,&59BCB0-101010&,&0|-2|97ADD2-|-2|92A9CF-|1|4D5D96-|2|6DBFC8-|-1|010,3|2|6CBEC8-,0.9,intX,intY
If intX = -1 And intY = -1 Then
//检测进入天忍教
FindMultiColor 239,484,282,579,&010&,&11|-24|EDEEF2-|-15|EDEEF2-|10|E5E8EF-|16|DEE2E8-|22|EEF1F8-|9|9AB8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
TracePrint &重新定位&
Thread.Stop (信息统计_线程)
Thread.Stop (检测干扰_线程)
If 是否辅助战斗 = 1 Then
Thread.Stop (辅助战斗_线程)
Call 关闭自动战斗()
Tap 675, 1234 '点击小地图
Delay 1000
//判断是否打开小地图
FindMultiColor 674,12,705,75,&68ABD0-101010&,&1|18|63A5CE-|33|6BA9D2-|13|010,10|26|233B86-|-1|233B86-|-3|2D&,0,0.9,intX,intY
If intX & -1 And intY & -1 Then
//点击地图上的挂机点
FindMultiColor 70,374,667,808,&C8D7F9-101010&,&2|-58|959ECF-|-61|4B,2|-29|AFC0E1-|-34|465F8F-|-19|B3BEE3-|-28|4C5D90-|-7|9DAED6-|-2|485E8F-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
//判断是否到达挂机点
Delay 1000
FindMultiColor 606,0,&59BCB0-101010&,&0|-2|97ADD2-|-2|92A9CF-|1|4D5D96-|2|6DBFC8-|-1|010,3|2|6CBEC8-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
信息统计_线程 = Thread.Start(挂机信息统计, 阵亡次数, 开始挂机时间)
检测干扰_线程 = Thread.Start(检测干扰)
If 是否辅助战斗 = 1 Then
辅助战斗_线程 = Thread.Start(辅助战斗,技能1,技能2,技能3,技能4)
Delay 1000
//检测是否死亡
FindMultiColor 239,467,282,591,&9A691F-101010&,&17|-13|F1F3F9-|-13|D3DAE5-|-13|A6C1DC-|0|F1F4FA-|-6|9DBEDD-|6|99B8D5-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Delay 5000
Thread.Stop (信息统计_线程)
Thread.Stop (检测干扰_线程)
If 是否辅助战斗 = 1 Then
Thread.Stop (辅助战斗_线程)
阵亡次数 = 阵亡次数 + 1
TracePrint &挂机死亡&
Delay 1000
FindMultiColor 234,663,285,823,&2&,&4|-4|D7E1EA-|4|D1D9E6-|0|ADBED3-|-10|9CB9D5-|10|93AFC8-|0|EDEFF4-,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
TracePrint &重新开始挂机&
Delay 1000
Call 天忍禁地挂机点()
End Function
非常感谢有你

我要回帖

更多关于 剑侠情缘兵器谱暴击率 的文章

 

随机推荐