• 555阅读
  • 2回复

王者荣耀_[秦国陛下]王者冒险辅助V2.0(开源码) [复制链接]

上一主题 下一主题
离线啊冲
 

只看楼主 倒序阅读 使用道具 楼主  发表于: 2017-12-21
//脚本名:[秦国陛下]王者荣耀冒险(开源码)
//
//作者:国王陛下
//QQ:595836434
//(转载请声明!)
//
//*****************************
//创作不易,求鼓励(1毛也行啊)**
//①截一张图片②选择从相册里扫描*
//*****************************
//
//更多辅助&源码下载:http://pan.baidu.com/s/1mij3lc0
//秦国陛下(使用教程):http://bbs.anjian.com/showtopic-664249-1.aspx




//===以下是函数功能==========
Function 时间_延迟(时间)
    Delay 时间
End Function

Function 时间_倒计时(提示,延时)
    Dim i=延时
    For 延时
        消息框和调试(提示&i)
        Delay 1000
        i=i-1
    Next
End Function

Function 消息框和调试(提示)
    ShowMessage 提示, 0, 0, 960*(GetScreenY()/960)
    TracePrint 提示
End Function

Function 设备_截屏(时间)
    ReleaseCapture:Delay 时间:KeepCapture
End Function

Function 触摸_点(x,y)
    Tap x, y
    Delay 10
End Function

Function 触摸_点击(x,y)
    TouchDown x, y, 1
    Delay 100
    TouchUp 1
End Function

Function 随机数(M,X)
    Dim MyValue
    Randomize //随机数种子
    MyValue = Int(((M-X+1) * Rnd()) + X)  
    随机数= MyValue
End Function

Function 触摸_随机点(x,y,x1,y1)
    Dim x范围 = 随机数(x1,x)
    Dim y范围 = 随机数(y1,y)
    触摸_点 x范围, y范围
End Function

Function 触摸_随机点击(x,y,x1,y1)
    Dim x范围 = 随机数(x1,x)
    Dim y范围 = 随机数(y1,y)
    触摸_点击 x范围, y范围
End Function

//几秒:点A到 点B的时长
Function 滑动_普通(x, y, x1, y1, 毫秒)
    TouchDown x,y, 1
    Delay 100
    TouchMove x1, y1, 1, 毫秒
    Delay 100
    TouchUp 1
End Function

//返回:bool
//数组参数:下标0:比色颜色。下标1:相似度
Function 颜色_多点比色arr(颜色)
    If CmpColorEx(颜色(0),颜色(1)) = 1 Then
        颜色_多点比色arr=true
    Else
        颜色_多点比色arr=false
    End If
End Function

//返回:bool。参数:数组型[下标:6]。
//参数说明:0~3找色的区域。4第一颜色。5颜色偏差。6相似度
Function 颜色_区域找色arr(颜色)
    Dim IntX,IntY
    FindMultiColor 颜色(0),颜色(1),颜色(2),颜色(3),颜色(4),颜色(5),0,颜色(6),intX,intY
    If intX > -1 Then
        颜色_区域找色arr=true
    Else
        颜色_区域找色arr=false
    End If
End Function

//返回:bool。参数:数组型。
//参数说明:0~3点击区域坐标。4相似度。5提示。6延迟。7比色的颜色
Function 颜色_多点比色随机点击arr(颜色)
    颜色_多点比色随机点击arr = false
    if CmpColorEx(颜色(7),颜色(4)) =1 then
        触摸_随机点(颜色(0),颜色(1),颜色(2),颜色(3))
        If 颜色(5)<> "" Then
            消息框和调试 (颜色(5))
        End If
        Delay 颜色(6)
        颜色_多点比色随机点击arr=true
    End If
End Function
//===以上是函数功能==========

//======================冒险功能===========================↓
Function 冒险特征_选地图(类图,难度,地图)
    //滑动:点a:380,200  点b:120,200
    //类图:362,146,421,228  隔:134
    //难度:394,795,410,823  隔:104
    //地图:414,449,427,505  隔:55
    If 类图 = 3 Then //用户选4类图时
        滑动_普通 120, 242, 390, 243, 200 //往上滑动
        类图 = 2 //初始化第三类图
    Else
        滑动_普通 380, 200, 120, 200,200 //往下滑动
    End If
    时间_延迟 500
    类图 = 类图 * 134
    触摸_随机点 362 - 类图, 146, 421 - 类图, 228
    时间_延迟 200
    难度 = 难度 * 104
    触摸_随机点 394 - 难度,795,410 - 难度,823
    时间_延迟 200
    地图 = 地图 * 55
    触摸_随机点 414 - 地图,449,427 - 地图,505
End Function

Function 冒险上限执行()
    Dim 用户选择 = Int(ReadUIConfig("下拉框_上限操作",0))
    Select Case 用户选择
    Case 0 //关闭辅助
        时间_倒计时("金币上限!"&chr(10)&"关闭辅助",10)
        EndScript
            
    Case 1 //退出游戏,关辅
        时间_倒计时("金币上限!"&chr(10)&"退游关辅",10)
        KillApp "com.tencent.tmgp.sgame"//关闭游戏
        EndScript
            
    Case 2 //退游,关辅,息屏
        时间_倒计时("金币上限!"&chr(10)&"退游关辅,息屏",10)
        KillApp "com.tencent.tmgp.sgame"//关闭游戏
        KeyPress "Power"//息屏
        EndScript
            
    End Select
End Function

Function 逻辑线程_冒险挑战()
    Dim x = 0,y = 0
    Thread.SetShareVar "局部变量_冒险挑战颜色", ""
    
    Do
        Dim 冒险找色 = Thread.GetShareVar("局部变量_冒险挑战颜色")
        Select Case 冒险找色
        Case "主界面颜色"
            触摸_随机点 160,766,209,836 //选择冒险模式
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "冒险页面颜色"
            触摸_随机点 164, 438, 237, 554
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
                
        Case "闯关颜色"
            触摸_随机点 66,706,94,784
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "页面人物没满颜色"
            触摸_随机点 69,539,95,613
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "选人未满颜色"
            触摸_随机点 257,214,282,235//打开英雄表
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "选人表颜色"
            //横距离100,纵100
            //第一英雄坐标:400,30,430,60
            触摸_随机点 400 - x * 100, 30 + y * 100, 430 - x * 100, 60 + y * 100
            y = y + 1
            If y >= 8 Then
                y = 0
                x = x + 1
                If x >= 5 Then
                    x = 0
                    y = 0
                    消息框和调试 "人物已完!"
                End If
            End If
            消息框和调试 ("第"&1+y+x*8&"个英雄!")
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "选人确定颜色"
            触摸_随机点 17, 853, 42, 904
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "自动颜色"
            触摸_随机点 514, 887, 526, 907    
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "胜利颜色"
            触摸_随机点 16,412,47,555 //点任意点击屏幕
            时间_延迟 200
            触摸_随机点 16,412,47,555 //点任意点击屏幕
            时间_延迟 4000
            
            Thread.SetShareVar "全局数组_胜次数",Thread.GetShareVar("全局数组_胜次数") + 1
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""    
            
        Case "失败颜色"
            触摸_随机点 33,433,67,524 //点击返回
            时间_延迟 4000
            Thread.SetShareVar "全局数组_败次数",Thread.GetShareVar("全局数组_败次数") + 1
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "胜利奖励颜色"
            触摸_随机点 59,456,82,506
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        Case "再来一次颜色"
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            
        End Select
        时间_延迟 500
    Loop
End Function

Function 冒险挑战_内部广告()
    Dim 子程序_相似度 = 0.9
    Dim 冒险跳过红色 = Array(505,861,519,928,子程序_相似度,"跳过红",1000,"490|856|0E59CB-101010,504|944|1574CE-101010,508|925|158DE5-101010,526|905|41F1F8-101010,520|901|1DAAEB-101010")
    Dim 冒险跳过白色 = Array(498,871,519,921,子程序_相似度,"跳过白",1000,"489|879|F5DF45-101010,504|879|F9F0E2-101010,500|904|FFFFFF-101010,523|943|FDDB5B-101010,504|936|AF6D32-101010")
    Dim 满星奖励 = Array(383,714,405,733,子程序_相似度,"满星奖励",1000,"392|419|B7821B-101010,394|723|E7C532-101010,388|761|291811-101010,367|745|F9C727-101010")
    Dim 提示框_健康系统 = Array("351|467|4D1D2D-101010,346|720|682747-101010,131|625|1E4587-101010,83|594|2E0D14-101010,156|670|4E23B9-101010",子程序_相似度)
        
    设备_截屏(100)
    If 颜色_多点比色随机点击arr (冒险跳过白色) Then
    ElseIf 颜色_多点比色随机点击arr(冒险跳过红色) Then
    ElseIf 颜色_多点比色随机点击arr(满星奖励) Then
    ElseIf 颜色_多点比色arr(提示框_健康系统) Then
        消息框和调试("健康系统_内")
        触摸_随机点 149,594,169,647
    End If
End Function

Function 循环找色_冒险挑战()
    Dim 子程序_相似度 = 0.9
    Dim 超时_计时 = 0
    Dim 主界面颜色 = Array("508|427|0220D6-101010,520|525|FDF7FC-101010,523|624|D8B186-101010,515|708|FFFFFE-101010,525|715|99600E-101010,499|682|291816-101010",子程序_相似度)
    Dim 冒险页面颜色 = Array("526|57|E3CE0E-101010,391|478|E9D8B7-101010,149|485|B8946E-101010,159|470|E69191-101010,515|114|DBB02C-101010",子程序_相似度)
    Dim 选图页面颜色 = Array("504|49|ECC21D-101010,510|54|2C1B12-101010,525|160|FFFFFF-101010,523|199|FFFFFF-101010,518|242|261B14-101010",子程序_相似度)
    Dim 下一步颜色 = Array("47|742|B57332-101010,63|781|FFFFFF-101010,49|804|D49932-101010,59|829|FFFFFF-101010,62|853|C48238-101010",子程序_相似度)
    Dim 闯关颜色 = Array("71|678|1C82D7-101010,79|709|FFFFFF-101010,86|732|29A3E6-101010,90|748|FFFFFF-101010,80|782|2287D7-101010",子程序_相似度)
    Dim 页面人物没满颜色 = Array("513|55|291812-101010,527|283|FEFEFE-101010,199|770|2C1A0D-101010,194|775|2B180D-101010,82|509|C58439-101010,83|617|BE7A35-101010",子程序_相似度)
    Dim 选人主页颜色 = Array("511|15|BA9115-101010,512|78|BA9115-101010,513|118|332323-101010,517|827|4C2B23-101010,487|810|000674-101010",子程序_相似度)
    Dim 选人未满颜色 = Array("487|809|000674-101010,457|814|FDC427-101010,288|821|EAB025-101010,298|883|C87D1A-101010,275|889|3A3333-101010",子程序_相似度)
    Dim 选人表颜色 = Array("487|809|000674-101010,462|809|FFD833-101010,378|813|FEBC28-101010,284|827|E9AF23-101010,286|813|442B23-101010",子程序_相似度)
    Dim 选人满颜色 = Array("313|905|FFFFFE-101010,313|897|1C0B8B-101010,313|913|1C0B8B-101010,305|906|17087F-101010,370|811|FECD30-101010",子程序_相似度)
    Dim 选人确定颜色 = Array("520|806|4C2B23-101010,499|810|EFEFEF-101010,486|809|00066E-101010,30|840|2498E2-101010,33|923|248EDA-101010",子程序_相似度)
    
    Dim 自动颜色 = Array("511|886|E8B52D-101010,519|885|FFFFFE-101010,520|883|654A07-101010,529|906|805F0D-101010,525|948|E9AF5C-101010",子程序_相似度)
    Dim 新自动颜色 = Array("511|884|E7B42C-101010,519|884|FFFFFC-101010,521|882|654A09-101010,512|902|DEB531-101010,506|896|CD9B25-101010",子程序_相似度)
    Dim 自动已开启颜色 = Array("500|881|9E5C1A-101010,534|880|9B5A19-101010,535|914|995919-101010,501|915|9E5C1A-101010",子程序_相似度)
    Dim 胜利颜色 = Array("471|702|234C7D-101010,418|685|4689CD-101010,34|416|FFFFFF-101010,35|461|FFFFFF-101010,38|541|FFFFFF-101010",子程序_相似度)
    Dim 失败颜色 = Array("458|419|D1D1D1-101010,454|460|CACACA-101010,431|542|999999-101010,51|443|1B9CE6-101010,55|467|FFFFFF-101010",子程序_相似度)
    Dim 再来一次颜色 = Array("441|504|2774BF-101010,441|601|8195CB-101010,227|513|1032E1-101010,228|522|63EFFE-101010,465|499|FFFFFF-101010",子程序_相似度)
    Dim 金币上限颜色_模拟器 = Array("235|714|CEECEE-101010,226|738|CEECEE-101010,238|731|CEECEE-101010,250|744|CEECEE-101010,241|750|CEECEE-101010,236|833|E5DED0-101010,238|898|ECE5D5-101010",子程序_相似度)
    Dim 金币上限颜色_手机 = Array("235|714|CCEDEB-101010,226|738|CFEDEE-101010,238|731|CFEEEE-101010,250|744|CCEBED-101010,241|750|CEEEEE-101010,230|875|120C04-101010,235|912|AEAA9B-101010",子程序_相似度)
    Dim 胜利奖励颜色 = Array("61|421|2688D8-101010,77|461|FFFFFF-101010,77|491|FFFFFF-101010,75|507|38A8E7-101010,61|540|2584D3-101010",子程序_相似度)
    
    Dim 返回键颜色 = Array(500, 32, 527, 71,子程序_相似度,"返回键",1000,"505|7|291811-101010,497|41|A76201-101010,503|47|E7B71A-101010,507|69|EAC428-101010,511|89|241410-101010")
        
    Thread.SetShareVar("局部变量_冒险挑战颜色","")
    Dim 冒险线程ID = Thread.Start(逻辑线程_冒险挑战)
    Do
        设备_截屏(100)
        If 颜色_多点比色arr(主界面颜色) Then
            Thread.SetShareVar "局部变量_冒险挑战颜色", "主界面颜色"
            消息框和调试 "主界面颜色"
            时间_延迟 1000
            
        ElseIf 颜色_多点比色arr(冒险页面颜色) Then
            Thread.SetShareVar "局部变量_冒险挑战颜色", "冒险页面颜色"
            消息框和调试 "冒险页面颜色"
            
        ElseIf 颜色_多点比色arr(选图页面颜色) Then
            Dim 冒险模式用户 = Thread.GetShareVar("冒险模式用户")
            Select Case 冒险模式用户
            Case 0
                //指定卡关
                Dim 类图 = Int(ReadUIConfig("下拉框_地图类",0))
                Dim 难度 = Int(ReadUIConfig("下拉框_地图难度",0))
                Dim 地图 = Int(ReadUIConfig("下拉框_地图图", 0))
                冒险特征_选地图(类图,难度,地图)
            Case 1
                //最新卡关
                //冒险选图_最新卡关
            Case 2
                //随机卡关
                //Dim 类图_随机 = 随机数(3,0)
                //Dim 难度_随机 = 随机数(2,0)
                //Dim 地图_随机 = 随机数(3,0)
                //冒险特征_选地图(类图_随机,难度_随机,地图_随机)
            End Select
            触摸_随机点 38, 764, 60, 810     //下一步
            时间_延迟 3000
            
        ElseIf 颜色_多点比色arr(闯关颜色) Then //这里需要找没满人 则选人
            If 颜色_多点比色arr(页面人物没满颜色) Then
                Thread.SetShareVar "局部变量_冒险挑战颜色", "页面人物没满颜色"
                消息框和调试 "页面人物没满颜色"
            Else
                Thread.SetShareVar "局部变量_冒险挑战颜色", "闯关颜色"
                消息框和调试 "闯关颜色"
            End If
            
        ElseIf 颜色_多点比色arr(选人主页颜色) Then//进入选人页面
            Thread.SetShareVar "局部变量_冒险挑战颜色", "选人主页颜色"    
            //Dim t = TickCount()
            Do
                //If 时间_计时(t, 120000, true) Then //超时无条件退出do
                //    Exit Do
                //End If
                设备_截屏(100)
                If 颜色_多点比色arr(选人未满颜色) Then
                    Thread.SetShareVar "局部变量_冒险挑战颜色", "选人未满颜色"
                    消息框和调试 "选人未满颜色"
                    时间_延迟 1000
                ElseIf 颜色_多点比色arr(选人满颜色) Then//人满时,找确定
                    设备_截屏(100)
                    If 颜色_多点比色arr(选人确定颜色) Then
                        消息框和调试 "选人确定颜色"
                        Thread.SetShareVar "局部变量_冒险挑战颜色", "选人确定颜色"
                        时间_延迟 2000
                        Exit Do
                    End If
                ElseIf 颜色_多点比色arr(选人表颜色) Then
                    消息框和调试 "选人表颜色"
                    Thread.SetShareVar "局部变量_冒险挑战颜色", "选人表颜色"
                    时间_延迟 1000
                End If
                时间_延迟 500
            Loop
            
        ElseIf 颜色_多点比色arr(自动颜色) And 颜色_多点比色arr(自动已开启颜色) = False Then
            Thread.SetShareVar "局部变量_冒险挑战颜色", "自动颜色"
            消息框和调试 "自动颜色"
            
        ElseIf 颜色_多点比色arr(新自动颜色) And 颜色_多点比色arr(自动已开启颜色) = False Then
            Thread.SetShareVar "局部变量_冒险挑战颜色", "自动颜色"
            消息框和调试 "新自动颜色"
            
        ElseIf 颜色_多点比色arr(胜利颜色) Then
            Thread.SetShareVar "局部变量_冒险挑战颜色", "胜利颜色"
            消息框和调试 "胜利颜色"
            
        ElseIf 颜色_多点比色arr(失败颜色) Then
            Thread.SetShareVar "局部变量_冒险挑战颜色", "失败颜色"
            消息框和调试 "失败颜色"
            
        ElseIf 颜色_多点比色arr(再来一次颜色) Then
            时间_延迟 1000
            If ReadUIConfig("多选框_金币上限", true) Then
                设备_截屏(100)
                If 颜色_多点比色arr(金币上限颜色_模拟器) Then //金币上限
                    TracePrint "金币上限_模拟器"
                    冒险上限执行
                ElseIf 颜色_多点比色arr(金币上限颜色_手机) Then
                    TracePrint "金币上限_手机"
                    冒险上限执行
                End If
            End If
            
            //次数到了
            Dim 用户人机次数 = Thread.GetShareVar("全局_用户冒险次数")
            Dim 人机已执行次数 = Thread.GetShareVar("全局数组_胜次数")+ Thread.GetShareVar("全局数组_败次数")
            If 人机已执行次数 >= 用户人机次数 And 用户人机次数 <> 0 Then
                ShowMessage ("胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数"),0,0,960*(GetScreenY()/960))
                TracePrint "胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数")
                时间_倒计时 "已完成相应次数!" & Chr(10) & "即将关闭", 10
                EndScript
            End If
            
            //几局休息
            Dim 用户确定休息 = ReadUIConfig("多选框_冒险休息")
            Dim 用户几局休息 = Int(ReadUIConfig("输入框_冒险休息_次"))
            Dim 用户休息时间 = Int(ReadUIConfig("输入框_冒险休息_分钟"))
            If 用户确定休息 Then
                Dim 次数转换 = Int(Thread.GetShareVar("全局数组_按次数休息"))
                If 次数转换 >= 用户几局休息 Then
                    Thread.SetShareVar("全局数组_按次数休息",0)//初始0
                    时间_倒计时("冒险休息"&用户休息时间&"分钟:",用户休息时间*60)
                End If
                Thread.SetShareVar("全局数组_按次数休息",Thread.GetShareVar("全局数组_按次数休息") + 1 )
            End If
            
            Dim 冒险用户卡关选择 = ReadUIConfig("下拉框_冒险模式",0)
            If 冒险用户卡关选择 = 0 Then
                触摸_随机点 35,686,59,767 //点击再来一次
            Else
                触摸_随机点 40,530,65,583 //点击返回
            End If
            Thread.SetShareVar "局部变量_冒险挑战颜色", "再来一次颜色"
            消息框和调试 "再来一次颜色"
            时间_延迟 7000
            
        ElseIf 颜色_多点比色arr(胜利奖励颜色) Then
            Thread.SetShareVar "局部变量_冒险挑战颜色", "胜利奖励颜色"
            消息框和调试 "胜利奖励颜色"
            
        Else
            Thread.SetShareVar "局部变量_冒险挑战颜色", ""
            冒险挑战_内部广告
            ShowMessage ("胜:"&Thread.GetShareVar("全局数组_胜次数")&" 败:"&Thread.GetShareVar("全局数组_败次数"),0,0,960*(GetScreenY()/960))
            
        End If
        
        If Thread.GetShareVar("局部变量_冒险挑战颜色") = "" Then
            超时_计时 = 超时_计时 + 1
            If 超时_计时 >= 6 Then
                超时_计时 = 0
                设备_截屏 (100)
                Do While 颜色_多点比色随机点击arr(返回键颜色)
                    设备_截屏 (100)
                    时间_延迟 1000
                Loop
                //王者_游内启动游戏()
            End If
        Else
            超时_计时 = 0
        End If
        时间_延迟 1000
    Loop
    
    Thread.Start (冒险线程ID)
End Function
//======================冒险功能===========================↑

//主程序虚构
Function OnScriptExit()
    ResetScreenScale //释放分频率
End Function

//①建议你把下面的分类,然后包装到函数里;
//②现在下面零零散散的,不好阅读;
//③写的时候想偷懒一下,呵呵,平时不是这样写的,这样对部分人好理解!
Function UI初始化()
    SetScreenScale 540,960 //设置开发分频率
    For 3 //提示内容
        消息框和调试 ("欢迎使用!秦国王者" & Chr(10) & GetScreenX() & "*" & GetScreenY())
        时间_延迟 1000
    Next
    //界面设置初始化
    Thread.SetShareVar "全局_主模式", CInt(ReadUIConfig("下拉框_主模式", 0))
    Thread.SetShareVar "冒险模式用户", CInt(ReadUIConfig("下拉框_冒险模式", 0))
    Thread.SetShareVar "全局_用户冒险次数", CInt(ReadUIConfig("输入框_挑战次数", 0))
End Function

Function 主函数()
    Select Case Thread.GetShareVar("全局_主模式")
    Case 0
        //冒险
        For 2
            消息框和调试 "正在执行-冒险模式"
            时间_延迟 1000
        Next
        循环找色_冒险挑战
    End Select
End Function


//全局变量
Thread.SetShareVar("全局数组_胜次数",0)
Thread.SetShareVar("全局数组_败次数",0)
Thread.SetShareVar "全局数组_按次数休息", 0

//代码执行入口
UI初始化:主函数()

善者 慈悲心常在 无怨无恨 以苦为乐
默认压缩密码www.hifyl.com
文件分享密码问题:http://www.hifyl.com/read-htm-tid-4444.html
离线lisongling

只看该作者 沙发  发表于: 2017-12-29
花了不少时间吧,厉害的

只看该作者 板凳  发表于: 01-05
找到个最新翻墙软件,无界,超好用!!!

电脑版+ 安卓版

有时360软件可能会误报,身在中国,原因你懂的

vvv777.ys168.com
快速回复
限100 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
上一个 下一个