标签：公告 cal apt sys config 目标 控件 日常 抢红包
好不容易借来的，参考一下。
脚本部分：
Dim 年 = 00,月 = 00,日 = 00,时 = 00,分 = 00,秒 = 00,周 = 00
Dim 网络时间,网络分,网络秒,当前时间,时差分,时差秒,MyTime
MyTime = Time()
Dim 随机数,最大值 = ReadUIConfig("最大值",2),最小值 = ReadUIConfig("最小值",-2)
随机数 = CSng(随机数)
最大值 = CSng(最大值)
最小值 = CSng(最小值)
Dim 仙盟任务是否完成 = false,日常任务是否完成 = false
Dim 复活延时 = ReadUIConfig("复活延时",50),回城复活延时 = ReadUIConfig("回城复活延时",50),截图延时 = ReadUIConfig("截图延时",0)
复活延时 = CSng(复活延时)
回城复活延时 = CSng(回城复活延时)
截图延时 = CSng(截图延时)
Dim 子线程 = ""
Dim intX,intY
Dim 找点,历练,找色列表
Dim 脚本运行速度 = ReadUIConfig("输入脚本速度",50),找色速度 = ReadUIConfig("输入找色速度",10),相似度 = ReadUIConfig("输入找色相似度",0.9)
脚本运行速度 = CDbl(脚本运行速度)
找色速度 = CDbl(找色速度)
相似度 = CDbl(相似度)
Dim 跟战间隔时间 = ReadUIConfig("跟战间隔时间",1000)
Dim 开始跟战计时=0
跟战间隔时间 = CDbl(跟战间隔时间)
TracePrint 相似度
Dim 截图文件夹名 = ReadUIConfig("截图文件夹名"),截图名 = ReadUIConfig("截图名")
Dim 文件路径
//移动浮窗到右下角
SetControlBarPos 1.0
SetRowsNumber(33)
//注意：每次制作完字库后，需要自行把制作的字库文件添加到脚本“附件”中
TracePrint SetDictEx(0, "Attachment:右上角坐标.txt")
TracePrint SetDictEx(1, "Attachment:提示信息框.txt")
TracePrint SetDictEx(2, "Attachment:弹窗.txt")
//TracePrint UseDict(0)‘右上角坐标
//TracePrint UseDict(1)‘提示信息框
TracePrint "周=" & 时间("周")
//UI.SetText(设备ID,GetDeviceID())
// 设备ID = CStr(设备ID)
// Dim return = UI.SetEditText(设备ID,设备ID,0,0)
//
//ShowMessage "设备ID："&设备ID
//Delay 1000
//dim 设备IDjm=设备ID+10*9/12
//============================================================
//‘创建一个名称为"layout1"的布局控件
//TracePrint UI.Newlayout ("layout1")
//‘添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
//TracePrint UI.AddEditText("layout1", "输入框1", 设备ID)
//‘显示名称为："layout1" 的布局控件
//UI.SetText("输入框1",GetDeviceID())
//TracePrint UI.Show ("layout1")
//
//============================================================
Delay 脚本运行速度
If ReadUIConfig("截图") = true Then
Delay 截图延时
Call 截图(截图文件夹名,截图名)
EndScript
End If
If ReadUIConfig("使用网络时间") = true Then
Delay 1000
For 10
网络时间 = GetNetworkTime()
If 网络时间 = "unknown" Then
Else
Exit For
End If
Delay 500
Next
If 网络时间 = "unknown" Then
ShowMessage "请检查网络连接！"
Delay 3000
EndScript
End If
Traceprint "网络时间=" & 网络时间
dim 当前时间分
当前时间分 = DateTime.Minute()
当前时间分 = CSng(当前时间分)
Traceprint "当前时间=分" & 当前时间分
dim 当前时间秒
当前时间秒 = DateTime.Second()
当前时间秒 = CSng(当前时间秒)
Traceprint "当前时间=秒" & 当前时间秒
网络分 = Mid(网络时间, 15, 2)
网络分 = CSng(网络分)
Traceprint "网络分=" & 网络分
时差分=网络分 - 当前时间分
网络秒 = Mid(网络时间,18,2)
网络秒 = CSng(网络秒)
Traceprint "网络秒=" & 网络秒
时差秒=网络秒 - 当前时间秒
Traceprint "时差分="&时差分
Traceprint "时差秒="&时差秒
时差秒=网络秒 - 当前时间秒+时差分*60
Traceprint "时差秒="&时差秒
ShowMessage "时差=" & 时差秒 &"秒"
Else
时差秒=0
End If
Dim 子线程自动跟战
Dim 子线程当前坐标
Dim 子线程自动使用土灵符
Dim 子线程抢红包
Dim 子线程自动攻击玩家
Dim 子线程仙侣传送
Dim 子线程自动跟战1 = False
Dim 子线程当前坐标1 = False
Dim 子线程自动使用土灵符1 = False
Dim 子线程抢红包1 = False
Dim 子线程自动攻击玩家1 = False
Dim 子线程仙侣传送1 = False
Rem 脚本开始
do
If ReadUIConfig("数秒") = true Then
Call 数秒()
End If
Delay 脚本运行速度
If ReadUIConfig("弹窗") = true Then
Call 弹窗()
End If
Delay 脚本运行速度
If ReadUIConfig("当前坐标") = true Then
If 子线程当前坐标1 = False Then
子线程当前坐标 = Thread.Start(当前坐标)
子线程当前坐标1 = true
End If
Else
If 子线程当前坐标1 = true Then
Thread.Stop(子线程当前坐标)
子线程当前坐标1 = False
End If
End If
Delay 脚本运行速度
If ReadUIConfig("自动跟战") = true Then
Call 自动跟战()
// // Call 自动跟战()
// If 子线程自动跟战1 = False Then
// 子线程自动跟战 = Thread.Start(自动跟战)
// 子线程自动跟战1 = true
// End If
// Else
// If 子线程自动跟战1 = true Then
// Thread.Stop(子线程自动跟战)
// 子线程自动跟战1 = False
// End If
End If
Delay 脚本运行速度
If ReadUIConfig("自动使用土灵符") = true Then
Call 自动使用土灵符()
// If 子线程自动使用土灵符1 = False Then
// 子线程自动使用土灵符 = Thread.Start(自动使用土灵符)
// 子线程自动使用土灵符1 = true
// End If
// Else
// If 子线程自动使用土灵符1 = true Then
// Thread.Stop(子线程自动使用土灵符)
// 子线程自动使用土灵符1 = False
// End If
End If
Delay 脚本运行速度
If ReadUIConfig("一条龙") = true Then
Call 一条龙()
End If
Delay 脚本运行速度
If ReadUIConfig("抢红包") = true Then
Call 抢红包()
End If
Delay 脚本运行速度
If ReadUIConfig("仙侣传送") = true Then
Call 仙侣传送()
End If
Delay 脚本运行速度
If ReadUIConfig("接受组队邀请") = true Then
Call 接受组队邀请()
End If
Delay 脚本运行速度
If ReadUIConfig("自动复活") = true Then
Call 自动复活()
ElseIf ReadUIConfig("回城复活") = true Then
//返回城镇
FindMultiColor 169,787,374,829,"291429","-4|-4|52284A,9|-36|080400,-3|-29|8C4173,10|-54|190810,-7|-35|F7F7F7,-3|58|4A4D4A,12|37|525552,6|27|943D7B,-8|39|3A1431",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到返回城镇2"
文件路径="/sdcard/死亡截图"
If Dir.Exist(文件路径) = 2 Then
网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
Else
Call Dir.Create(文件路径) //先创建一个文件夹
网络时间 = Date()
SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
End If
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End If
Delay 脚本运行速度
If 时间("时") = 12 And 时间("分") >= 30 and 时间("分") <= 44 Then
If ReadUIConfig("神魔之井") = true Then
//ShowMessage "开始神魔"
Call 神魔之井()
End If
ElseIf 时间("时") = 19 And 时间("分") >= 20 and 时间("分") <= 34 Then
If ReadUIConfig("神魔之井") = true Then
//ShowMessage "开始神魔"
Call 神魔之井()
End If
End If
Delay 脚本运行速度
If ReadUIConfig("日常任务") = true Then
Call 日常任务()
End If
Delay 脚本运行速度
If ReadUIConfig("仙盟任务") = true Then
Call 仙盟任务()
End If
Delay 脚本运行速度
If ReadUIConfig("斩妖除魔") = true Then
Call 斩妖除魔()
End If
Delay 脚本运行速度
If ReadUIConfig("灵儿红包") = true Then
If 时间("时") = 12 and 时间("分") = 00 and 时间("秒") >= 56 Then
Call 灵儿红包()
ElseIf 时间("时") = 12 and 时间("分") = 2 and 时间("秒") >= 56 Then
Call 灵儿红包()
ElseIf 时间("时") = 12 and 时间("分") = 4 and 时间("秒") >= 56 Then
Call 灵儿红包()
ElseIf 时间("时") = 19 and 时间("分") = 00 and 时间("秒") >= 56 Then
Call 灵儿红包()
ElseIf 时间("时") = 19 and 时间("分") = 2 and 时间("秒") >= 56 Then
Call 灵儿红包()
ElseIf 时间("时") = 19 and 时间("分") = 4 and 时间("秒") >= 56 Then
Call 灵儿红包()
Else
End If
End If
Delay 脚本运行速度
If 时间("时") = 19 And 时间("分") >= 00 and 时间("分") <= 20 Then
If ReadUIConfig("仙盟无双") = true Then
Call 仙盟无双()
End If
End If
Delay 脚本运行速度
If 时间("时") = 19 And 时间("分") >= 40 and 时间("分") <= 55 Then
If ReadUIConfig("须弥幻境") = true Then
Call 须弥幻境()
End If
End If
Delay 脚本运行速度
If 时间("周") = 7 And 时间("时") >= 21 And 时间("时") <= 22 Then
If ReadUIConfig("净天之乱") = true Then
Call 净天之乱()
End If
End If
Delay 脚本运行速度
If 时间("周") = 5 And 时间("时") >= 21 And 时间("分") <= 15 Then
If ReadUIConfig("百鬼夜行") = true Then
Call 百鬼夜行()
End If
End If
Delay 脚本运行速度
If ReadUIConfig("盘龙柱") = true Then
If 时间("周") = 1 And 时间("时") >= 20 And 时间("分") <= 15 Then
Call 盘龙柱()
ElseIf 时间("周") = 3 And 时间("时") >= 20 And 时间("分") <= 15 Then
Call 盘龙柱()
ElseIf 时间("周") = 5 And 时间("时") >= 20 And 时间("分") <= 15 Then
Call 盘龙柱()
ElseIf 时间("周") = 7 And 时间("时") >= 20 And 时间("分") <= 15 Then
Call 盘龙柱()
End If
End If
Delay 脚本运行速度
If ReadUIConfig("自动攻击玩家") = true Then
Call 自动攻击玩家()
End If
Delay 脚本运行速度
If ReadUIConfig("测试") = true Then
Call 测试找点()
End If
Delay 脚本运行速度
If ReadUIConfig("日志") = true Then
Log.Open
Else
Log.Close
End If
Delay 脚本运行速度
TracePrint 子线程
If ReadUIConfig("一键清理内存") = true Then
If 子线程 = "" Then
子线程 = Thread.Start(一键清理内存)
TracePrint 子线程
End If
Else
If 子线程 <> "" Then
Thread.Stop(子线程)
TracePrint 子线程
End If
End If
Delay 100
// 启动B()
loop
Delay 5000
Goto 脚本开始
Delay 5000
Goto 脚本开始
Delay 5000
Goto 脚本开始
Function 随机(最大值,最小值)
Randomize
随机数 = Int(((最大值 - 最小值 + 1) * Rnd()) + 最小值)
随机 = 随机数
Traceprint 随机数
Delay 脚本运行速度
End Function
Function 补时差(最大值,最小值)
Traceprint 随机数
Delay 脚本运行速度
End Function
Function 时间(参数)
MyTime = Time()
Traceprint "MyTime"&MyTime
MyTime = MyTime + 时差秒
Traceprint "MyTime"&MyTime
Select Case 参数
Case "年"
//年 = Mid(网络时间,1,4)
年 = DateTime.Year(MyTime)
年 = CSng(年)
时间 = 年
TracePrint 年
Case "月"
月 = DateTime.Month(MyTime)
月 = CSng(月)
时间 = 月
TracePrint 月
Case "日"
日 = DateTime.Day(MyTime)
日 = CSng(日)
时间 = 日
TracePrint 日
Case "时"
时 = DateTime.Hour(MyTime)
时 = CSng(时)
时间 = 时
TracePrint 时
Case "分"
分 = DateTime.Minute(MyTime)
分 = CSng(分)
时间 = 分
TracePrint 分
Case "秒"
秒 = DateTime.Second(MyTime)
秒 = CSng(秒)
时间 = 秒
TracePrint 秒
Case "周"
周 = DateTime.WeekDay(MyTime)
周 = CSng(周)
时间 = 周
TracePrint 周
End Select
End Function
Sub 一键清理内存()
do
TracePrint "开始一键清理内存"
Sys.ClearMemory() //释放内存
Delay 300000
loop
End Sub
Sub 当前坐标()
do
TracePrint UseDict(0)‘右上角坐标
TracePrint 找字(662,1172,688,1284,"DEDF9C-555555",0.9)
ShowMessage 找字(662, 1172, 688, 1284, "DEDF9C-555555", 0.9)
Delay 500
loop
End Sub
Sub 弹窗()
KeepCapture
Delay 脚本运行速度
//弹窗是否前往队友
FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 361 + 随机数,556 + 随机数
Delay 500
随机(最大值,最小值)
Tap 308 + 随机数,835 + 随机数
Delay 500
End If
//弹窗危险地图
FindMultiColor 420,366,497,652,"08147B","-3|43|0010A4,1|66|00147B,-15|89|081C42,4|89|000C9C,-12|10|08203A,-2|62|082031,-4|75|001C42,-8|60|0008DE",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 364 + 随机数,559 + 随机数
Delay 500
随机(最大值,最小值)
Tap 307 + 随机数,834 + 随机数
Delay 500
End If
Delay 脚本运行速度
If 时间("时") = 12 And 时间("分") >= 00 and 时间("分") <= 3 Then
//弹窗藏宝阁
FindMultiColor 418,411,459,557,"08457B","17|19|084D9C,4|39|0869D6,19|50|0855A4,1|65|0065CE,19|72|738E9C,6|90|082031,19|105|425D6B,4|108|5A7584,-1|100|52697B",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 307 + 随机数,448 + 随机数
Delay 500
End If
End If
Delay 脚本运行速度
//弹窗防沉迷
FindMultiColor 292,417,328,490,"944D84","2|10|EEEFEE,-8|24|6B3163,7|2|080408,7|7|3A1831,-8|-7|080408,1|-23|DE65B5,0|26|949294,-3|1|E671CE,5|-15|100C10",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 609 + 随机数,1075 + 随机数
Delay 500
End If
Delay 脚本运行速度
//弹窗主播
FindMultiColor 300,831,318,845,"63355A","9|-1|733163,-4|27|292829,12|19|636563,9|-26|FFFBFF,2|-28|ADAEAD,-5|4|CECECE,69|-293|4A3D29,42|-266|524942,42|-293|5A4D52",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 360 + 随机数,557 + 随机数
Delay 500
随机(最大值,最小值)
Tap 308 + 随机数,451 + 随机数
Delay 500
End If
Delay 脚本运行速度
//弹窗公告详情
FindMultiColor 583,432,646,620,"F7DFDE","-4|6|EEEFEE,13|23|E69AB5,3|21|313131,7|50|424142,-5|79|ADAAAD,0|67|FFFFFF,6|101|4A4D4A,4|119|3A393A,-9|109|EEE3D6",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 609 + 随机数,1075 + 随机数
Delay 500
End If
Delay 脚本运行速度
//弹窗离线经验
FindMultiColor 128,561,188,715,"421C3A","0|-57|101410,3|55|737173,-12|57|9C9E9C,-13|-56|313131,-15|-12|9C4184,-4|0|7B3D73,-10|14|000000,0|31|101410,-9|30|732D63",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
// //土灵符
// FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// 随机(最大值,最小值)
// Tap intX + 随机数, intY + 随机数
// Delay 500
// End If
// //土灵符
// FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// 随机(最大值,最小值)
// Tap intX + 随机数, intY + 随机数
// Delay 500
// End If
// //土灵符
// FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// 随机(最大值,最小值)
// Tap intX + 随机数, intY + 随机数
// Delay 500
// End If
ReleaseCapture
End Sub
Sub 自动跟战()
// Do
If Time() >= 开始跟战计时 Then
//队伍栏未开
FindMultiColor 424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 380 + 随机数,22 + 随机数
Delay 500
End If
KeepCapture
//队伍栏开
FindMultiColor 341,2,415,43,"634542","26|6|E6E7E6,37|17|FFEFEE,-6|17|9C5D5A,1|-15|A46563,-7|1|6B6563,-11|4|4A393A,-13|12|73656B,13|3|6B494A,27|1|42353A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
//队伍跟战
FindMultiColor 374,178,404,246,"5A393A","7|1|B5696B,10|-16|F7FBF7,5|-18|94928C,-1|-1|5A494A,0|23|4A3131,5|21|5A4D4A,4|15|7B7573,8|-7|A49A9C,12|-12|423131",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 1000
//弹窗前往队友
FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 361 + 随机数,556 + 随机数
Delay 500
随机(最大值,最小值)
Tap 308 + 随机数,835 + 随机数
Delay 500
End If
开始跟战计时 = 0
开始跟战计时 = 跟战间隔时间 + Time()
Else
//队伍跟战1
FindMultiColor 293,177,322,241,"5A3D3A","5|1|7B4D4A,-1|11|FFFBFF,-7|1|635D5A,-6|-19|7B6D6B,6|-15|A49E9C,4|7|ADA6A4,-7|25|4A4142,-2|22|422D31,5|13|3A2829",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 1000
//弹窗前往队友
FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 361 + 随机数,556 + 随机数
Delay 500
随机(最大值,最小值)
Tap 308 + 随机数,835 + 随机数
Delay 500
End If
开始跟战计时 = 0
开始跟战计时 = 跟战间隔时间 + Time()
Else
//队伍跟战2
FindMultiColor 210,178,244,242,"422D29","-1|22|3A2829,-2|-15|63595A,6|-12|A4A2A4,-5|26|524142,6|21|E6E7E6,-7|0|9C9694,-8|-12|B56D6B,5|-18|4A3531,6|26|A4615A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 1000
//弹窗前往队友
FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 361 + 随机数,556 + 随机数
Delay 500
随机(最大值,最小值)
Tap 308 + 随机数,835 + 随机数
Delay 500
End If
开始跟战计时 = 0
开始跟战计时 = 跟战间隔时间 + Time()
Else
//队伍跟战3
FindMultiColor 207,175,241,243,"5A3D3A","-5|-15|C5C6C5,-9|-19|8C7D7B,-8|26|4A3131,-7|21|B5B2AD,3|18|635552,4|-9|BDB6B5,4|6|5A4D4A,-4|19|B5AAAD,-3|-3|84797B",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 1000
//弹窗前往队友
FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 361 + 随机数,556 + 随机数
Delay 500
随机(最大值,最小值)
Tap 308 + 随机数,835 + 随机数
Delay 500
End If
开始跟战计时 = 0
开始跟战计时 = 跟战间隔时间 + Time()
Else
//弹窗前往队友
FindMultiColor 288,804,327,872,"E671CE","3|-23|3A353A,-8|25|EEF3EE,7|-26|F7FBF7,5|26|080808,-9|-25|ADAAAD,39|-293|5A4D52,66|-293|4A3D29,66|-266|424542",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 361 + 随机数,556 + 随机数
Delay 500
随机(最大值,最小值)
Tap 308 + 随机数,835 + 随机数
Delay 500
End If
开始跟战计时 = 0
开始跟战计时 = 跟战间隔时间 + Time()
End If
End If
End If
End If
End If
ReleaseCapture
End If
// Delay 500
// Loop
End Sub
Sub 自动使用土灵符()
//土灵符
FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 1000
Swipe 130, 88, 130, 130
End If
End Sub
Sub 净天之乱()
//战绩
FindMultiColor 591,1039,599,1058,"635152","1|-18|845152,3|-3|9C9694,5|11|635552,-2|24|C5BABD,3|25|73494A,4|30|B56D6B,2|-25|AD696B,-1|-14|F7F7F7,-1|24|B5AEAD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 477 + 随机数,20 + 随机数
Delay 500
随机(最大值,最小值)
Tap 527 + 随机数,121 + 随机数
Delay 500
Else
//净天弹窗
FindMultiColor 424,442,440,456,"084584","19|2|0859B5,0|23|0851A4,17|49|00519C,19|58|083D6B,1|68|103D6B,19|82|084D94,7|90|0861C5,1|80|0865CE,9|72|0859B5",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 309 + 随机数,839 + 随机数
Delay 500
End If
End If
//自动攻击未开
FindMultiColor 319,1214,329,1231,"E6A6AD","-6|13|A4818C,-5|27|AD8184,-6|14|AD858C,4|6|FFD2D6,-3|16|A4797B,1|31|F7CACE,38|31|EEEFEE,14|15|CE7D84,27|14|CE757B",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 1000
End If
End Sub
Sub 百鬼夜行()
//百鬼夜行弹窗
FindMultiColor 290,775,329,900,"D66DC5","-5|-55|D6DBD6,-6|-29|100C10,10|-24|ADAAAD,10|31|ADB2AD,141|-377|0865CE,143|-345|083D6B,123|-311|08519C,131|-308|083D73,136|-286|084173",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 309 + 随机数,839 + 随机数
Delay 500
End If
//百鬼夜行·韩菱纱
FindMultiColor 264,143,298,179,"9C7D73","-7|19|5A4542,6|-35|4A3D3A,1|-72|5A4D3A,1|-62|6B5542,7|-11|4A393A,0|27|3A2829,7|63|4A393A,217|-70|191C84,216|-40|191884",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End Sub
Sub 一条龙()
//截图至内存中
KeepCapture
//宝箱
FindMultiColor 247,401,359,882,"312442","0|-14|CED2D6,-1|-4|636173,8|4|C5C6CE,-1|6|6B656B,28|8|314929,-12|0|212D19,-13|31|192410,-20|10|314D29,-8|25|6B6D84",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 301 + 随机数,459 + 随机数
Delay 500
//天罡剑阵
FindMultiColor 678,1114,716,1279,"3A353A","-4|-8|636563,-7|-1|101010,-6|22|212021,1|49|635D63,-6|51|5A5D5A,-12|58|636163,-2|74|080C08,-13|80|424142,-9|86|4A4D4A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 302 + 随机数,824 + 随机数
Delay 500
End If
End If
//同意进入
FindMultiColor 109,957,146,1080,"844573","-2|-27|292829,2|15|737973,-5|29|292429,-1|51|632452,-5|35|100810,8|44|D6D2D6,-8|-15|522042,3|-31|949294,6|14|3A393A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
//确认离开
FindMultiColor 293,801,328,870,"5A3152","-6|7|5A5D5A,4|12|522442,3|-7|635D63,10|-1|C555A4,-1|-22|5A555A,-7|-6|000000,10|-18|EEEFEE,11|18|848184,-4|28|212421",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
//前往活动
FindMultiColor 119,1068,135,1084,"6B3963","-6|-31|5A244A,-4|29|190C19,-3|61|290C21,-3|-53|3A1429,4|-54|F7F3F7,-8|0|7B7D7B,1|29|CECECE,-12|56|101410,5|57|848584",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
//试炼窟
FindMultiColor 683,1148,719,1276,"4A494A","5|18|3A393A,-8|12|191C19,-1|35|C5C6C5,3|62|E6E7E6,-9|68|9C9A9C,-7|35|424142,-9|26|EEEBEE,-1|34|6B696B,-8|61|7B797B",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Else
//离开
FindMultiColor 496,746,538,829,"088AC5","0|15|0881BD,-1|25|00B2E6,-6|38|00CEFF,-6|-26|00CEFF,2|-6|08BAEE,1|-16|0885BD,1|17|10619C,0|11|0865A4,-1|24|088AC5",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End If
//删除内存中的截图
ReleaseCapture
End Sub
Sub 自动复活()
// If Time() >= 开始复活延时计时 Then
If ReadUIConfig("原地复活") = true Then
FindMultiColor 344,458,358,470,"E671C5","-1|-30|DE61B5,-2|-54|7B7D7B,2|26|D655AD,2|59|4A494A,-1|26|DE5DB5,-8|-2|8C8E8C,9|58|63244A,-10|-56|313531,-9|28|B5B6B5",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到原地复活"
TracePrint "开始原地复活延时"
Delay 复活延时
If ReadUIConfig("仙盟求助") = true Then
FindMultiColor 168,642,185,651,"DE69C5","4|25|4A454A,4|20|AD418C,-15|24|522042,-14|-15|BDBEBD,-12|-18|6B2D5A,-11|-9|100C10,6|-12|080C08,-2|-24|5A595A,-2|29|D6D2D6",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End If
FindMultiColor 344,458,358,470,"E671C5","-1|-30|DE61B5,-2|-54|7B7D7B,2|26|D655AD,2|59|4A494A,-1|26|DE5DB5,-8|-2|8C8E8C,9|58|63244A,-10|-56|313531,-9|28|B5B6B5",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End If
End If
// End If
If ReadUIConfig("回城复活") = true Then
//返回城镇
FindMultiColor 141,725,384,884,"BD61A4","-3|5|BDBEBD,2|28|100408,9|25|6B696B,-3|-25|000000,-1|59|9C397B,3|52|212021,0|-12|101010,0|-23|FFFBFF,-8|-30|191C19",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
文件路径="/sdcard/死亡截图"
If Dir.Exist(文件路径) = 2 Then
网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
Else
Call Dir.Create(文件路径) //先创建一个文件夹
网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
SnapShot "/sdcard/死亡截图/" & 网络时间 & ".png"
End If
Delay 脚本运行速度
//返回城镇
FindMultiColor 141,725,384,884,"BD61A4","-3|5|BDBEBD,2|28|100408,9|25|6B696B,-3|-25|000000,-1|59|9C397B,3|52|212021,0|-12|101010,0|-23|FFFBFF,-8|-30|191C19",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "开始回城复活延时"
Delay 回城复活延时
For 10
Delay 脚本运行速度
//死亡聊天
FindMultiColor 4,61,66,120,"5A3D3A","-1|-11|523529,-3|10|6B4942,2|9|DEE3DE,-18|-7|8C7173,-15|0|7B4D4A,-2|17|634131,9|-7|4A3D3A,-3|-18|5A3529,-15|-8|9C7D7B",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到死亡聊天"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
//聊天队伍
FindMultiColor 371,10,479,97,"5A4542","5|-4|EEEBEE,5|-14|191819,-8|-18|C5CAC5,-8|6|3A353A,9|-2|292429,-1|15|DEDBDE,-2|28|CECACE,-8|35|080C08,8|33|5A5D5A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到聊天队伍"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
//聊天定位
FindMultiColor 184,28,225,94,"94595A","-6|1|080408,2|21|C5C2C5,-1|17|525952,-6|24|313131,-1|-19|191010,-1|13|DEDBDE,3|11|080C08,-57|-18|DEDBDE,-62|-13|292829",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到聊天定位"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
//聊天发送
FindMultiColor 33,477,71,540,"9C5D5A","1|-9|E6E7E6,9|3|3A2021,-3|31|4A514A,6|16|737973,12|25|211C21,6|28|424142,1|-18|5A3531,10|-84|BDA6B5,9|-75|B58AAD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到聊天发送"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
//关闭聊天界面
FindMultiColor 641,572,702,628,"F7DBD6","12|15|F7EFDE,-12|15|F7EBD6,0|-14|424142,-1|14|CE9684,1|27|9C8573,1|30|080808,8|-317|B5696B,8|-342|DE9684,0|-329|E6BAAD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到关闭聊天界面"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Exit For
End If
End If
End If
Delay 脚本运行速度
//聊天表情
FindMultiColor 22,400,78,450,"AD85A4","-3|0|C5BEC5,2|0|BDA6B5,-8|11|EEE3EE,-9|-1|DECEDE,-12|5|A481A4,-22|5|845142,-5|-10|D681A4,-3|75|101410,-9|111|191819",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到聊天表情"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Next
//返回城镇
FindMultiColor 141,725,384,884,"BD61A4","-3|5|BDBEBD,2|28|100408,9|25|6B696B,-3|-25|000000,-1|59|9C397B,3|52|212021,0|-12|101010,0|-23|FFFBFF,-8|-30|191C19",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到返回城镇2"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
For 10
//打开聊天界面
FindMultiColor 8,371,70,427,"BDB6B5","-3|4|948584,-19|-4|AD9694,-1|13|634D4A,-2|-7|634D42,-2|19|7B655A,9|2|4A3931,-3|-17|634D42,-15|-6|846563,-16|2|845952",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到打开聊天界面2"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
//聊天队伍
FindMultiColor 371,10,479,97,"5A4542","5|-4|EEEBEE,5|-14|191819,-8|-18|C5CAC5,-8|6|3A353A,9|-2|292429,-1|15|DEDBDE,-2|28|CECACE,-8|35|080C08,8|33|5A5D5A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到聊天队伍2"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
//Tap 190, 440
//Delay 500
//Tap 307, 440
//Delay 500
//坐标-线(
FindMultiColor 154,290,582,419,"84E3F7","-8|-14|73DBEE,8|3|219EBD,10|-10|3AAEC5,1|5|42B6CE,7|12|63CADE,-10|11|219EBD,-1|11|0885AD,-3|-14|73D6E6,-9|-6|4ABACE",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到坐标-线"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
//关闭聊天界面
FindMultiColor 641,572,702,628,"F7DBD6","12|15|F7EFDE,-12|15|F7EBD6,0|-14|424142,-1|14|CE9684,1|27|9C8573,1|30|080808,8|-317|B5696B,8|-342|DE9684,0|-329|E6BAAD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到关闭聊天界面2"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
//土灵符
FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
TracePrint "找到土灵符"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Exit For
End If
End If
Delay 500
Next
End If
End If
End If
End If
End Sub
Sub 神魔之井()
找色列表=array("活动限时神魔前往","仙盟活动神魔前往","仙盟活动神魔前往1","进行中神魔之井","神魔之井立即前往","神魔之井前往","神魔之井弹窗","无毒赤焰")
Delay 脚本运行速度
//截图至内存中
KeepCapture
For Each a In 找色列表
TracePrint "a=" & a
call 多点找色数据库(a)
call 神魔(多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),a))
Delay 找色速度
Next
//删除内存中的截图
ReleaseCapture
Delay 500
End Sub
Sub 神魔(参数)
Select Case 参数
Case "神魔之井弹窗"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("开始游戏","公告确定","历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "神魔之井立即前往"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
Delay 500
Case "神魔之井前往"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
Delay 500
Case "摄魂夺魄"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "无毒赤焰"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "进行中神魔之井"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "活动限时神魔前往"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
End Select
End Sub
Sub 盘龙柱()
//盘龙柱开启
FindMultiColor 414,454,459,593,"086DDE","-11|0|084D94,-12|22|08519C,5|31|102842,2|47|084D9C,-14|51|083152,-11|67|083D6B,3|67|083963,6|90|192D42,-3|89|B5D2DE",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 309 + 随机数,837 + 随机数
Delay 500
End If
Delay 找色速度
//前往
FindMultiColor 104,1075,182,1129,"5A7D84","26|9|3A5573,13|1|52516B,13|14|080C29,24|-8|000008,29|12|31456B,12|18|E6E7EE,-1|8|948EC5,7|5|080C08,31|9|4265B5",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 找色速度
//副本未
FindMultiColor 442,5,517,38,"7B5D5A","1|-2|A47D7B,29|8|B58E8C,27|-5|9C7173,19|-6|E6AEAD,19|-11|D6A2A4,17|4|423531,27|-6|946D6B,-7|-5|CE9A9C,-8|-1|9C797B",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 找色速度
//匹配
FindMultiColor 324,41,436,173,"294552","2|-26|1075E6,4|-17|002473,11|32|94AEB5,-3|32|BDD6DE,-9|81|CEEBF7,-1|18|CEE7EE,3|-33|216DDE,-4|-26|217DD6,11|-25|294DC5",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 找色速度
//胜利
FindMultiColor 537,556,586,684,"8CEFFF","-3|18|193D6B,15|27|218AF7,21|-10|63FBFF,1|-6|08AAFF,-24|31|100C5A,-9|-1|19556B,-2|-12|008AF7,20|53|1085EE,10|31|194D9C",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 148 + 随机数,640 + 随机数
Delay 500
End If
Delay 找色速度
//失败
FindMultiColor 549,556,619,637,"6B5D5A","28|14|BDBEBD,17|18|7B7173,36|38|8C8184,7|16|313131,8|47|4A4D4A,13|33|948E8C,18|15|7B7973,6|10|847573,18|33|84797B",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 148 + 随机数,640 + 随机数
Delay 500
End If
End Sub
Sub 仙盟无双()
FindMultiColor 417,431,459,616,"083963","13|-3|084984,12|2|08243A,11|22|0869D6,9|37|083D6B,5|50|082842,19|61|08283A,12|83|0861C5,11|89|9CB6BD,6|132|001C31",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 309 + 随机数,837 + 随机数
Delay 500
End If
End Sub
Sub 须弥幻境()
FindMultiColor 408,438,460,598,"0855AD","14|0|084D94,18|30|08355A,1|41|0059AD,19|51|005DBD,3|48|086DDE,2|64|006DE6,19|72|0861C5,1|88|086DE6,10|93|8CA2AD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 309 + 随机数,837 + 随机数
Delay 500
End If
Delay 找色速度
FindMultiColor 131,999,180,1116,"525552","4|-21|7B3563,3|6|E679CE,5|17|CECECE,3|24|000000,-6|38|100810,-3|28|101410,-5|8|7B356B,10|-9|000000,0|33|52244A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End Sub
Sub 仙盟任务()
Do
//截图至内存中
KeepCapture
//确认仙盟任务是否完成
FindMultiColor 359,55,560,70,"5A69C5","3|4|9C9E9C,-4|18|EEEBEE,1|19|213DA4,-6|32|6BA2B5,-5|47|84D2E6,-6|76|73AEBD,-7|9|3A4DAD,-3|9|E6EBE6,7|11|F7F7F7",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Delay 脚本运行速度
Else
Delay 脚本运行速度
//确认任务栏是否打开
FindMultiColor 424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
// ShowMessage "日常任务已完成"
日常任务是否完成 = true
Call 弹窗()
Exit Do
End If
End If
//土灵符
FindMultiColor 125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
//接受任务
FindMultiColor 105,296,171,412,"3A3D3A","-12|-22|9C9A9C,-8|-29|84396B,-1|-29|8C3D73,-7|-2|73396B,7|12|080408,-11|28|C5CAC5,-6|7|211019,3|3|7B396B,-6|-40|9C8594",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Else
//提交任务
FindMultiColor 114,303,171,410,"4A4D4A","15|-4|E6E7E6,10|26|FFFFFF,5|26|8C497B,12|37|CECECE,14|15|313131,1|18|211021,12|45|633152,2|58|292D29,12|-7|3A393A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Else
//诏书
FindMultiColor 237,634,263,645,"8481B5","1|0|3A356B,1|4|BDCACE,-7|6|9C9A9C,8|5|A4B2B5,7|7|B5C2DE,0|-3|7381BD,-12|5|848E9C,7|-1|C5C2C5,9|-3|191819",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Else
//仙盟任务
FindMultiColor 359,55,560,70,"5A69C5","3|4|9C9E9C,-4|18|EEEBEE,1|19|213DA4,-6|32|6BA2B5,-5|47|84D2E6,-6|76|73AEBD,-7|9|3A4DAD,-3|9|E6EBE6,7|11|F7F7F7",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Else
//仙盟总管仙盟任务
FindMultiColor 265,82,285,95,"D6B229","4|0|F7F731,-8|-1|9C4900,18|-1|C56142,13|-3|EEC23A,12|38|63514A,-3|63|312829,-3|83|312829,-3|95|4A3D3A,-3|114|5A4942",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
//仙盟总管仙盟任务2
FindMultiColor 266,85,297,104,"CE6D00","9|0|A48E3A,19|3|F7D221,12|28|312829,3|48|3A2D29,0|60|423531,16|10|C5B629,13|-6|F7CA3A,15|42|3A2D29,10|48|5A4942",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End If
End If
End If
End If
// 找色列表=array("接受任务","提交任务","诏书","仙盟总管仙盟任务","土灵符","仙盟任务","任务栏未开")
// Do
// //截图至内存中
// KeepCapture
// //确认仙盟任务
// FindMultiColor 314,34,587,112,"525152","9|2|3A4994,-9|-1|101C5A,-3|9|101C52,1|-9|081C52,0|0|525152,-5|-2|EEEBEE,-4|2|B5B2B5,0|-2|ADAAAD,-2|13|193594",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// Else
// Delay 脚本运行速度
// //确认任务栏是否打开
// FindMultiColor 311,4,580,113,"C5B6B5","0|-8|E6E3DE,-43|14|94616B,-46|12|3A2D29,-45|17|BD7984,-36|23|CEAEBD,-60|19|9C616B,-52|2|3A2D31,-76|13|AD6D6B",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// //ShowMessage "仙盟任务已完成"
// 仙盟任务是否完成 = true
// Exit Do
// End If
// End If
// Delay 脚本运行速度
// For Each a In 找色列表
// TracePrint "a=" & a
// call 多点找色数据库(a)
// call 仙盟任务1(多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),a))
// Delay 找色速度
// If intX > -1 And intY > -1 Then
// Exit For
// End If
// Next
// //删除内存中的截图
// ReleaseCapture
// Delay 300
// Loop
ReleaseCapture
Delay 300
Loop
End Sub
Sub 仙盟任务1(参数)
Select Case 参数
Case "土灵符"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("开始游戏","公告确定","历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "接受任务"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("摄魂夺魄","无毒赤焰")
Delay 500
Case "提交任务"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "仙盟任务"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "诏书"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "仙盟总管仙盟任务"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "仙盟总管仙盟任务1"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "任务栏未开"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
End Select
End Sub
Sub 日常任务()
找色列表=array("接受任务","提交任务","土灵符","日常任务","任务栏未开")
// Do
//截图至内存中
KeepCapture
// //确认日常任务是否完成
// FindMultiColor 327,45,567,93,"2139A4","-1|17|1935AD,6|13|DEDFDE,-7|6|8C8E8C,-2|10|000000,7|8|525152,2|11|7B7D7B,3|7|000000,-3|0|3145B5,2|16|3A4173",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// Delay 脚本运行速度
// Else
// Delay 脚本运行速度
// //确认任务栏是否打开
// FindMultiColor 424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// // ShowMessage "日常任务已完成"
// 日常任务是否完成 = true
// Call 弹窗()
// Exit Do
// End If
// End If
Delay 脚本运行速度
For Each a In 找色列表
TracePrint "a=" & a
call 多点找色数据库(a)
call 日常任务1(多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),a))
Delay 找色速度
If intX > -1 And intY > -1 Then
Exit For
End If
Next
//删除内存中的截图
ReleaseCapture
// Delay 500
// Loop
End Sub
Sub 日常任务1(参数)
Select Case 参数
Case "土灵符"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("开始游戏","公告确定","历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "接受任务"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("摄魂夺魄","无毒赤焰")
Delay 500
Case "提交任务"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "日常任务"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
Case "任务栏未开"
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
TracePrint 参数
// 找色列表=array("历练","玲珑宝塔","普通闯塔")
Delay 500
TracePrint 参数
End Select
End Sub
Sub 仙侣传送()
//前往
FindMultiColor 289,803,327,872,"844573","-1|-8|080808,7|-7|000000,-2|13|000000,-1|30|943D84,13|15|4A1C3A,-6|-22|A4A2A4,0|7|E671CE,7|5|291421,-2|-16|4A4D4A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
Delay 脚本运行速度
End Sub
Sub 数秒()
ShowMessage 时间("时")&"："&时间("分")&"："&时间("秒")
End Sub
Sub 斩妖除魔()
KeepCapture
// //提交
// FindMultiColor 135,993,166,1034,"844173","-1|-24|EEF3EE,-9|0|636163,-9|30|848584,-10|-11|73315A,10|13|210C19,7|29|848184,9|4|A44584,0|9|FFFFFF,-4|-10|948E94",0,相似度,intX,intY
// If intX > -1 And intY > -1 Then
// 随机(最大值,最小值)
// Tap intX + 随机数, intY + 随机数
// Delay 500
// Else
//弹窗斩妖除魔任务
FindMultiColor 570,184,584,199,"BD966B","-8|-36|D6C69C,-3|-51|C5A663,3|-55|D6BE84,-11|1|EEDFD6,-13|58|CE927B,5|63|BD6D5A,-1|38|D6B6A4,-12|31|CEAE9C,-9|-19|BD9663",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap 152 + 随机数,1029 + 随机数
Delay 500
Else
//斩妖除魔任务
FindMultiColor 348,51,565,71,"3A51BD","-6|2|F7F7F7,-4|19|293973,4|9|DEDFDE,-11|7|2945B5,-4|12|D6D6D6,-5|28|6396A4,-10|44|6BAEBD,-9|52|7BBED6,0|32|94E3F7",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Else
//红叉
FindMultiColor 663,1216,693,1234,"080C73","18|-25|084DD6,20|27|105DEE,-12|-11|101C52,-9|17|10246B,15|-17|1949D6,12|1|103DCE,15|8|0835B5,17|25|1945CE,13|15|192484",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Else
End If
End If
End If
// End If
ReleaseCapture
End Sub
Sub 自动攻击玩家()
do
//截图至内存中
KeepCapture
//当前目标女蛊师
FindMultiColor 589,397,696,664,"B5C2F7","2|-4|21243A,3|-8|5A65A4,6|7|3A394A,7|4|848594,7|22|A4A6AD,-8|18|94A6FF,-3|16|8CAADE,-14|15|7B9EE6,24|-1|BDB2AD",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Call 技能()
Else
//当前目标男蛊师
FindMultiColor 598,397,685,506,"84A6DE","0|-5|8CA2C5,-3|8|000408,2|8|5A7594,-4|26|3A314A,2|26|425D84,-13|17|8CA6DE,-16|16|738ACE,-24|17|6379C5,11|19|313131",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Call 技能()
Else
//当前目标女剑仙
FindMultiColor 590,390,693,663,"738ACE","-3|9|21283A,-2|4|191419,1|17|101419,-9|26|C5D2FF,-16|25|5A5DBD,17|19|636573,15|20|CEE7FF,0|32|080808,5|20|4A4D73",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Call 技能()
Else
//当前目标男剑仙
FindMultiColor 584,377,695,672,"6375BD","-1|18|313942,-8|14|A4C6EE,-12|27|5A7DBD,-17|25|8492E6,12|28|94B2DE,14|27|29183A,0|32|29243A,-11|35|101421,-16|35|423D3A",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Call 技能()
Else
//当前目标女豪侠
FindMultiColor 583,369,698,510,"8C92B5","-10|1|192D4A,-14|-2|524152,-14|15|080810,-25|9|6B8AD6,-11|11|42557B,-31|8|5A61BD,-39|5|5271BD,-39|-3|8C9ACE,-14|-17|191419",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Call 技能()
Else
//当前目标男豪侠
FindMultiColor 577,389,691,665,"426594","0|6|3A496B,3|14|314163,7|14|5A7194,-14|24|4A59A4,11|9|6B7DAD,11|11|313552,4|30|212442,-14|7|29394A,-13|2|425184",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Call 技能()
Else
Exit Do
End If
End If
End If
End If
End If
End If
//删除内存中的截图
ReleaseCapture
Delay 100
Loop
Delay 脚本运行速度
//点击切换目标键
FindMultiColor 305,1125,370,1175,"CE7D7B","-6|-5|EEC2C5,38|-24|F7E7E6,16|6|C5757B,0|-1|D6817B,8|-2|C57984,3|-10|EEB2AD,30|-25|BD7D8C,20|-8|734542,17|-17|BD7984",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End Sub
Function 技能()
If ReadUIConfig("技能1") = true Then
随机(最大值,最小值)
Tap 238 + 随机数, 1224 + 随机数
Delay 200
End If
If ReadUIConfig("技能2") = true Then
随机(最大值,最小值)
Tap 235 + 随机数,1119 + 随机数
Delay 200
End If
If ReadUIConfig("技能3") = true Then
随机(最大值,最小值)
Tap 159 + 随机数,1044 + 随机数
Delay 200
End If
If ReadUIConfig("技能4") = true Then
随机(最大值,最小值)
Tap 56 + 随机数,1044 + 随机数
Delay 200
End If
If ReadUIConfig("技能0") = true Then
随机(最大值,最小值)
Tap 109 + 随机数,1173 + 随机数
Delay 200
End If
End Function
Sub 接受组队邀请()
KeepCapture
FindMultiColor 170,852,428,872,"7BC67B","8|-3|63EB4A,33|21|7BFF7B,23|20|73DF63,18|-7|84F373,14|-426|9C456B,12|-453|AD4973,15|-436|EECAE6,30|-426|3145EE,24|-424|4251E6",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
Else
//邀请提示
FindMultiColor 90,779,188,884,"EEE7EE","-9|1|7B4163,-10|-1|945184,-14|2|BD7D9C,-15|1|844D63,7|15|1020C5,9|11|1931D6,7|10|E6D2DE,8|-1|9C5D8C,-4|-4|C549A4",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
End If
End If
ReleaseCapture
End Sub
Sub 抢红包()
FindMultiColor 197,916,320,1007,"637DAD","-28|-26|73DFF7,-31|-26|193184,-33|-8|5AD6F7,-32|18|5ACEEE,-7|3|6B8EBD,-3|-9|7396BD,11|11|7385BD,17|-4|6385B5,12|-21|2928A4",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
Delay 500
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
End If
End Sub
Sub 灵儿红包()
//灵儿红包确定
FindMultiColor 166,565,216,714,"7B3D6B","-4|-22|848584,5|-18|B5B2B5,-5|25|AD4D9C,-8|28|5A595A,11|15|100408,-11|-12|732D63,-2|6|63315A,-7|-27|B55194,-4|-11|8C5984",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
End If
Do
If 时间("分") = 1 and 时间("秒") >= 6 Then
Exit Do
ElseIf 时间("分") = 3 and 时间("秒") >= 6 Then
Exit Do
ElseIf 时间("分") = 5 and 时间("秒") >= 6 Then
Exit Do
Else
Tap 253,962
End If
Delay 50
Loop
Delay 5000
//灵儿红包确定
FindMultiColor 166,565,216,714,"7B3D6B","-4|-22|848584,5|-18|B5B2B5,-5|25|AD4D9C,-8|28|5A595A,11|15|100408,-11|-12|732D63,-2|6|63315A,-7|-27|B55194,-4|-11|8C5984",0,相似度,intX,intY
If intX > -1 And intY > -1 Then
Delay 1000
Call 截图("灵儿红包","")
随机(最大值,最小值)
Tap intX + 随机数, intY + 随机数
End If
End Sub
Sub 多点找色数据库(参数)
Select Case 参数
Case "点券红包"
找点=Array(197,916,320,1007,"637DAD","-28|-26|73DFF7,-31|-26|193184,-33|-8|5AD6F7,-32|18|5ACEEE,-7|3|6B8EBD,-3|-9|7396BD,11|11|7385BD,17|-4|6385B5,12|-21|2928A4")
Case "绿勾"
找点=Array(269,768,476,905,"73E75A","1|-19|4A9E4A,1|-4|31853A,-11|-5|5AE36B,21|18|5AD663,-4|1|296D31,5|-11|7BE763,-2|-11|6BEB52,8|3|73EB63,12|16|6BCE52")
Case "组队邀请"
找点=Array(168,391,437,921,"B5D6DE","-1|5|526D7B,0|14|C5E3E6,-8|6|CEEBEE,-9|9|294552,-5|22|9CBAC5,-1|35|BDDBDE,-8|43|849EAD,-18|46|84A2AD,-4|51|94AAB5")
Case "邀请提示"
找点=Array(90,779,188,884,"EEE7EE","-9|1|7B4163,-10|-1|945184,-14|2|BD7D9C,-15|1|844D63,7|15|1020C5,9|11|1931D6,7|10|E6D2DE,8|-1|9C5D8C,-4|-4|C549A4")
Case "摄魂夺魄"
找点=Array(8,975,315,1280,"5A0031","-5|0|842063,-7|37|FFCAF7,18|5|290029,35|11|841C73,54|4|730029,-42|7|D6004A,-17|32|73004A,3|15|7B046B,-7|-36|840031")
Case "无毒赤焰"
找点=Array(6,991,291,1275,"100873","-4|-13|290031,1|-13|5231EE,4|-4|CECAEE,30|-3|B5A2C5,20|-10|DEDBFF,36|-8|D6CAD6,25|-12|AD81D6,-16|-9|5200A4,14|-12|52355A")
Case "回梦诀"
找点=Array(8,975,315,1280,"5A1442","4|25|422D31,-17|15|FF10FF,18|2|FFC2F7,-24|28|FFB2FF,-31|13|941084,-35|18|FF04F7,-27|-12|AD49A4,-9|43|DE5DDE,11|-1|F728E6")
Case "当前目标男豪侠"
找点 = Array(577,389,691,665,"426594","0|6|3A496B,3|14|314163,7|14|5A7194,-14|24|4A59A4,11|9|6B7DAD,11|11|313552,4|30|212442,-14|7|29394A,-13|2|425184")
Case "当前目标女豪侠"
找点 = Array(583,369,698,510,"8C92B5","-10|1|192D4A,-14|-2|524152,-14|15|080810,-25|9|6B8AD6,-11|11|42557B,-31|8|5A61BD,-39|5|5271BD,-39|-3|8C9ACE,-14|-17|191419")
Case "当前目标男剑仙"
找点=Array(584,377,695,672,"6375BD","-1|18|313942,-8|14|A4C6EE,-12|27|5A7DBD,-17|25|8492E6,12|28|94B2DE,14|27|29183A,0|32|29243A,-11|35|101421,-16|35|423D3A")
Case "当前目标女剑仙"
找点=Array(590,390,693,663,"738ACE","-3|9|21283A,-2|4|191419,1|17|101419,-9|26|C5D2FF,-16|25|5A5DBD,17|19|636573,15|20|CEE7FF,0|32|080808,5|20|4A4D73")
Case "当前目标男蛊师"
找点=Array(598,397,685,506,"84A6DE","0|-5|8CA2C5,-3|8|000408,2|8|5A7594,-4|26|3A314A,2|26|425D84,-13|17|8CA6DE,-16|16|738ACE,-24|17|6379C5,11|19|313131")
Case "当前目标女蛊师"
找点=Array(589,397,696,664,"B5C2F7","2|-4|21243A,3|-8|5A65A4,6|7|3A394A,7|4|848594,7|22|A4A6AD,-8|18|94A6FF,-3|16|8CAADE,-14|15|7B9EE6,24|-1|BDB2AD")
Case "切换目标键"
找点=Array(270,1071,438,1219,"FFF7F7","-8|2|EEB2B5,-4|10|D6929C,-12|1|F7EFEE,-12|11|DE8E8C,-14|6|C5757B,-17|8|FFF7F7,3|18|F7BEC5,-1|24|DEA6B5,21|-13|AD7D84")
Case "仙侣传送弹窗"
找点=Array(405,379,474,472,"10283A","2|3|ADCAD6,2|24|D6EFF7,-5|27|08203A,6|31|9C9E9C,1|36|082031,1|45|EEEBDE,-9|47|EEEBDE,10|48|EEE3D6,-9|55|CECAC5")
Case "仙侣传送弹窗1"
找点=Array(404,381,470,894,"5A7184","-8|-3|A4C2CE,-21|0|082031,1|9|19354A,-6|12|08203A,0|24|42596B,1|45|314D5A,-20|59|19354A,-6|84|102842,1|124|213D52")
Case "仙侣传送前往"
找点=Array(268,753,350,923,"000000","0|-2|CE55A4,-5|10|5A595A,3|10|D6D6D6,4|8|000000,2|34|FFFFFF,1|31|100408,-10|32|BD5DA4,-4|52|080808,-4|48|F7FBF7")
Case "仙侣传送前往1"
找点=Array(268,753,350,923,"311829","-8|0|632D52,2|-19|080000,-3|-17|DE65B5,1|10|CE61B5,-6|14|9C4D8C,0|24|F7F7F7,-7|31|080808,-11|38|292829,8|36|BD4594")
Case "诏书"
找点=Array(222,616,282,666,"3A356B","-1|2|BDC6C5,2|4|E6EBEE,6|2|A4AAAD,-1|8|7B8E94,6|-1|C5C2C5,-3|5|52595A,-4|4|E6EBF7,-5|1|9C9EAD,-6|0|63558C")‘=
Case "土灵符"
找点=Array(125,459,226,587,"193DB5","-2|1|528ED6,9|1|0831B5,11|2|8CD6FF,6|6|1935C5,7|4|ADCAFF,1|10|102DA4,0|11|10558C,-8|-7|082884,-7|-4|4281BD")
Case "提交任务"
找点=Array(114,303,171,410,"4A4D4A","15|-4|E6E7E6,10|26|FFFFFF,5|26|8C497B,12|37|CECECE,14|15|313131,1|18|211021,12|45|633152,2|58|292D29,12|-7|3A393A")‘=
Case "接受任务"
找点=Array(105,296,171,412,"3A3D3A","-12|-22|9C9A9C,-8|-29|84396B,-1|-29|8C3D73,-7|-2|73396B,7|12|080408,-11|28|C5CAC5,-6|7|211019,3|3|7B396B,-6|-40|9C8594")‘=
Case "日常任务"
找点=Array(327,45,567,93,"2139A4","-1|17|1935AD,6|13|DEDFDE,-7|6|8C8E8C,-2|10|000000,7|8|525152,2|11|7B7D7B,3|7|000000,-3|0|3145B5,2|16|3A4173")‘=
Case "仙盟总管仙盟任务"
找点=Array(256,113,309,262,"5A4D4A","15|-3|4A3931,17|12|3A2D29,5|18|3A2D29,15|17|423131,2|27|4A393A,2|50|423531,18|33|3A2D31,1|61|52413A,11|81|5A4542")‘=
Case "仙盟总管仙盟任务1"
找点=Array(246,101,319,283,"4A3931","-9|3|7B6152,-11|-16|3A2D31,-7|-26|CEAE9C,4|-23|4A3D3A,3|-37|8C7163,5|11|52413A,1|9|4A393A,2|33|4A393A,-1|38|7B655A")
Case "仙盟任务"
找点=Array(325,44,567,114,"E6E3DE","5|4|DEDBDE,-2|8|6B6D6B,2|5|7B797B,3|11|B5B2B5,8|7|E6E7E6,1|10|7B7D7B,8|6|A4A2A4,2|8|292829,-1|5|313131")‘=
Case "仙盟任务1"
找点=Array(309,42,570,316,"3A4DB5","4|-5|F7FBF7,-5|-2|CED2CE,-1|6|3A4563,10|14|7BC2D6,-9|13|314D52,8|17|8CE3F7,9|29|5A8A94,-7|34|94E3FF,1|49|84CADE")
Case "任务栏开"
找点=Array(424,1,530,43,"9C9294","16|-7|3A3131,32|-5|4A353A,25|10|A49E9C,38|16|FFF7F7,30|-10|73656B,28|-15|6B4D4A,18|4|63555A,9|-17|A46D6B,2|15|9C6163")‘=
Case "任务栏未开"
找点=Array(446,4,508,43,"846163","13|12|C59294,22|-7|3A2829,28|-1|3A2D29,-6|6|A4797B,19|3|422D31,-9|2|BD9294,-15|10|523D3A,17|3|523D42,19|7|3A2D31")‘=
Case "队伍栏开"
找点=Array(323,1,566,56,"FFEBEE","-20|4|E6C2C5,-10|-10|5A5152,-11|-11|EEEBE6,-24|-3|6B6163,-25|-18|CECAC5,-22|-13|423531,-26|-13|AD717B,-48|-13|524542,-53|-6|FFFFFF")
Case "队伍栏未开"
找点=Array(311,1,435,48,"DEAEAD","17|19|422D31,-2|-4|E6AEAD,8|8|5A4142,18|17|946D73,29|3|E6AEAD,-12|0|8C6D6B,-11|19|3A2D29,17|-3|73595A,31|11|E6B2B5")
Case "原地复活"
找点=Array(80,349,457,904,"DE61B5","6|-11|F7FBF7,8|1|080000,0|18|080808,-1|27|7B416B,-4|30|6B656B,-3|55|C559AD,4|48|524D52,-1|67|5A5D5A,-4|82|080408")
Case "返回城镇"
找点 = Array(80, 349, 457, 904, "AD4984", "4|-22|080808,6|-20|F7F7F7,-6|-3|000000,0|20|080408,-5|33|BD59A4,-1|51|636163,-2|61|CE51A4,-11|54|B5499C,1|92|63204A")
//神魔之井【【【【【【【【【【【【【【【【【【
Case "神魔之井弹窗"
找点=Array(421,450,460,600,"00519C","-20|1|103D6B,-20|12|083963,-1|55|0069DE,-18|47|08498C,-19|84|0859B5,1|83|083963,-4|88|00519C,-8|112|29495A,-1|128|42596B")
Case "神魔之井立即前往"
找点=Array(282,773,335,906,"C565B5","-1|-25|000000,2|25|8C8A8C,-3|-44|732D52,7|-52|636963,1|-33|212021,-4|35|BD499C,5|42|000400,-9|60|100C10,11|43|843163")
Case "神魔之井前往"
找点=Array(102,1168,188,1243,"426D7B","14|14|000000,23|18|293952,-7|-4|3A49B5,-22|12|08147B,14|3|B5B2B5,18|-11|100C21,-8|4|73C6E6,-3|6|5A7D8C,32|17|6379A4")
Case "进行中神魔之井"
找点 = Array(479, 1106, 549, 1209, "297D5A", "2|24|217152,-8|16|297D5A,-12|45|21694A,1|54|31A673,-18|30|217552,-27|21|D6D6D6,-36|23|D6DBD6,-44|58|ADAAAD,-36|63|B5B2B5")
Case "仙盟活动神魔前往"
找点=Array(137,1027,173,1095,"B559A4","3|-28|BDC2BD,-11|-20|84396B,-13|9|190C19,-7|27|943D7B,-7|4|42203A,17|63|2941E6,8|66|B5BEFF,10|58|EEEBFF,-12|-26|C5BEC5")
Case "仙盟活动神魔前往1"
找点=Array(144,1053,167,1067,"8C457B","5|-27|BDBEBD,-9|27|848184,-3|-27|D665B5,-10|-20|84396B,8|-16|732D5A,5|23|DEE3DE,-10|-27|D6D6D6,-12|4|848584,5|25|212021")
//】】】】】】】】】】】】】】】
Case "活动限时神魔前往"
找点=Array(76,1132,220,1278,"5271A4","10|-18|000000,9|-13|F7F7F7,-14|-18|212042,-7|21|000000,-16|9|EEF3F7,-33|13|4A496B,-34|18|080C08,-32|-10|7BAAB5,11|25|632DA4")
Case "死亡聊天"
找点=Array(4,46,68,132,"523531","-3|0|6B4942,-19|4|9C8184,-1|9|4A2D21,-4|20|D6D6D6,9|5|524542,10|16|311C19,-14|11|6B4542,-14|0|63393A,-3|-8|523129")
Case "聊天附近"
找点=Array(446,1,664,105,"4A4D4A","-4|-5|080808,3|9|DEDFDE,-11|15|5A595A,-7|22|8C6963,-4|31|D6D2D6,2|48|FFFFFF,-7|41|000000,-12|51|E6E3E6,-8|49|84655A")
Case "聊天队伍"
找点=Array(382,2,474,98,"D6D6D6","-1|-16|FFFFFF,-2|-12|4A494A,-11|-1|424142,-8|0|B5B6B5,-15|9|424542,-1|21|3A393A,-1|22|9C9A9C,-9|37|7B6152,-9|35|191810")
Case "聊天定位"
找点=Array(186,14,229,109,"6B4142","7|-15|EEF3EE,0|6|6B4142,8|24|080400,3|19|3A393A,2|26|73454A,-3|-12|000400,-4|27|422D29,7|14|423D42")
Case "聊天发送"
找点=Array(28,460,73,555,"6B4542","1|-18|844D52,9|-14|E6E3E6,11|8|422421,2|30|000000,-6|31|636163,2|7|844D52,-5|-5|000400,11|23|000000,2|15|5A595A")
Case "聊天表情"
找点=Array(21,397,80,455,"D685C5","1|9|BD7DAD,-9|5|AD799C,-7|5|FFFBFF,2|1|E6C2DE,1|7|FFFFFF,-4|18|AD85AD,-4|20|8C455A,13|4|DE7DAD,-19|4|845542")
Case "打开聊天界面"
找点=Array(5,366,71,435,"5A4942","-3|2|7B655A,0|-8|4A3529,-19|-2|845152,-14|-9|6B413A,9|1|847D7B,9|-6|8C817B,-3|19|845942,-4|-16|522D21,-14|3|734142")
Case "关闭聊天界面"
找点=Array(619,581,718,628,"EED6CE","-1|13|D69E8C,0|4|FFF7F7,13|15|F7E7D6,-13|14|EED6C5,-8|8|DEAA9C,5|-539|CE7194,19|-540|E69ECE,6|-526|BD8EA4")
Case "坐标-线"
找点=Array(165,256,560,421,"088EAD","-11|1|63CEDE,-2|9|4AB6CE,7|7|6BD2E6,3|0|3AAAC5,-3|-1|4ABACE,-9|-9|42B6CE,-11|-10|0085AD,9|5|0085A4,-1|10|5AC6DE")
Case "离开"
找点=Array(480,669,559,977,"00AADE","1|-5|08B2EE,-1|-19|105194,0|13|00CAFF,-2|25|00BAEE,-6|-25|00CAFF,-6|38|00CAFF,-8|38|00CEFF,-8|-25|00CAFF,-8|7|00CAFF")
Case "抽奖关闭"
找点=Array(124,571,180,722,"6B2852","-2|-9|A4AAA4,-2|-3|EEEFEE,-3|0|000400,-14|11|844573,-4|22|000000,-18|30|B54D94,-13|37|4A2442,-20|41|8C8A8C,-14|45|C54DAD")
Case "场景天罡剑阵"
找点=Array(683,1118,718,1271,"9C969C","4|-2|100C10,4|19|080C08,-2|12|000400,-9|17|EEEFEE,3|25|080408,-4|41|191819,2|42|313131,2|48|100C10,-2|79|A4A6A4")
Case "仙盟无双弹窗"
找点=Array(404,447,472,610,"08457B","-8|-5|193142,1|9|08314A,-13|18|08243A,-5|57|5A6973,-4|66|102842,-5|74|0859B5,-6|80|5A6973,-5|99|D6CEC5,-9|113|082031")
Case "仙盟无双立即前往"
找点=Array(282,758,339,915,"525552","-7|-1|DE65B5,-3|6|292829,-4|21|737573,-2|46|848184,-3|53|B5B6B5,0|58|311029,-10|61|6B285A,0|84|190810,-12|83|3A1429")
Case "须弥幻境弹窗"
找点=Array(406,448,468,618,"6B757B","-9|-8|0055AD,-20|-1|0855A4,-3|22|193542,-8|45|006DE6,-6|54|08417B,-5|62|082842,-4|88|B5CED6,-3|92|3A596B,-1|106|738E9C")
Case "须弥幻境弹窗立即前往"
找点=Array(277,759,339,914,"3A393A","-6|-22|080808,-8|-42|848184,-11|-32|3A1831,-3|-6|949694,-13|-23|7B3163,-14|7|B555A4,-14|35|42203A,-9|41|8C356B,-1|48|D6D2D6")
Case "须弥幻境挑战"
找点 = Array(119, 980, 185, 1143, "423D42", "0|3|6B2D52,-9|17|84497B,-15|22|63315A,-14|30|000000,-5|49|080400,-13|48|CE55AD,-19|7|4A203A,-3|45|F7FBF7,-17|53|632852")
Case "副本奖励宝箱"
找点=Array(97,937,155,1094,"CE69B5","0|-22|191819,-2|-28|080408,3|21|84657B,-4|26|000000,-9|-53|EEEFEE,-9|1|424142,-7|61|D6DBD6,-5|27|6B315A,-6|8|101010")
Case "副本奖励宝箱1"
找点=Array(247,401,359,882,"312442","0|-14|CED2D6,-1|-4|636173,8|4|C5C6CE,-1|6|6B656B,28|8|314929,-12|0|212D19,-13|31|192410,-20|10|314D29,-8|25|6B6D84")
Case "净天弹窗"
找点=Array(396,435,481,619,"103963","5|1|0859B5,-14|-1|083152,-12|8|08519C,-3|41|08519C,6|56|08498C,6|82|084D94,-5|90|102D42,-7|87|10283A,-6|93|10283A")
//《《《《《《一条龙》》》》》》
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
// Case "属性加成-气血"
// 找点=Array()
End Select
End Sub
Sub 测试找点()
找色列表=array("净天弹窗","副本奖励宝箱1","副本奖励宝箱","队伍栏未开","仙盟总管仙盟任务1","坐标-线","聊天发送","聊天定位","打开聊天界面","关闭聊天界面","聊天表情","聊天队伍","须弥幻境挑战","须弥幻境弹窗立即前往","须弥幻境弹窗","仙盟无双立即前往","仙盟无双弹窗","场景天罡剑阵","抽奖关闭","离开","仙盟任务1","活动限时神魔前往","仙盟活动神魔前往","进行中神魔之井","神魔之井立即前往","神魔之井弹窗","聊天附近","死亡聊天","返回城镇","原地复活","队伍栏开","任务栏开","日常任务","接受任务","提交任务","土灵符","点券红包","绿勾","组队邀请","邀请提示","摄魂夺魄","无毒赤焰","回梦诀","当前目标男豪侠","当前目标男剑仙","当前目标女剑仙","当前目标女蛊师","切换目标键","仙侣传送弹窗","仙侣传送弹窗1","仙侣传送前往","仙侣传送前往1")
Dim a,i:i=0
//截图至内存中
KeepCapture
For Each a In 找色列表
call 多点找色数据库(找色列表(i))
ShowMessage 多点找色(找点(0),找点(1),找点(2),找点(3),找点(4),找点(5),找色列表(i))
i=i+1
Delay 找色速度
If intX>-1 And intY>-1 Then
Delay 2000
End If
Delay 5
Next
//删除内存中的截图
ReleaseCapture
End Sub
Function 多点找色(x,y,x1,y1,参照点,相对点,名称)
FindMultiColor x,y,x1,y1,参照点,相对点,0,相似度,intX,intY
If intX>-1 And intY>-1 Then
多点找色 = 名称
End If
End Function
Function 截图(文件夹名,图片名)
Delay 1000
Dim SD卡目录
SD卡目录=GetSdcardDir()
图片名 = 图片名&时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
Dim j
j = Dir.Exist(SD卡目录&"/"&文件夹名&"/"&图片名&".png")
if j = 1 then
图片名 = 图片名 & "-1"
End If
Dim 文件路径=SD卡目录&"/"&文件夹名
If Dir.Exist(文件路径) = 2 Then
网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
SnapShot SD卡目录&"/"&文件夹名&"/"&图片名&".png"
Else
Call Dir.Create(文件路径) //先创建一个文件夹
网络时间 = 时间("年")&"年"&时间("月")&"月"&时间("日")&"日 "&时间("时")&":"&时间("分")&":"&时间("秒")
SnapShot SD卡目录&"/"&文件夹名&"/"&图片名&".png"
End If
TracePrint SD卡目录&"/"&文件夹名&"/"&图片名&".png"
End Function
Function 找字(x,y,x1,y1,颜色格式串,相似度)
找字=Ocr(x,y,x1,y1,颜色格式串,相似度)
End Function
//Function 数组的最大下标(arr)
// Dim a,i:i=0
// For Each a In arr
// i=i+1
// Next
// 数组的最大下标=i-1
//End Function
//TracePrint 数组的最大下标(找点)
标签：公告 cal apt sys config 目标 控件 日常 抢红包
原文地址：https://www.cnblogs.com/amumumuyoulan/p/12860351.html
