刺激战场
  • 594阅读
  • 3回复

王者荣耀挂机精灵测试版 [复制链接]

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

只看楼主 倒序阅读 使用道具 楼主  发表于: 2017-12-21
Swipe 0, 0, 0, 0
//初始化
Dim intX=0,intY=0,是否启动游戏=False,长=960,宽=540,偏色值=偏色值,h,初始登陆=faLse
TracePrint SetDictEx(0, "Attachment:字库.txt")
TracePrint UseDict(0)
ShowMessage ReadUIConfig("自动签到")
ShowMessage ReadUIConfig("自动日常")
ShowMessage ReadUIConfig("自动刷金")
////////////////////////////////////////逻辑///////////////////////////////////////////
If ReadUIConfig("自动登陆") = true Then
    TracePrint "自动登陆开启了"
    Call 启动游戏()
    Delay 1000
    Call 初始化游戏界面()
End If
If ReadUIConfig("自动刷金") = true Then
    Call 自动刷金()
End If
Sub 初始化游戏界面()
    Dim i=0
    While i < 15
        If 登陆界面() = TRUE Then
            ShowMessage "正在登陆游戏" ,3000,0,宽
            TracePrint "正在登陆游戏"
        End If
        If 主界面() = TRUE Then
            If 初始登陆 = TRUE Then
                Delay 3000
                For i = 1 To 10
                    If 点击图片(长 * 0.6, 宽 * 0.01, 长, 宽 * 0.4, "主界面_公告叉",偏色值, 0.8) > 10 or  点击图片(长 * 0.6, 宽 * 0.01, 长, 宽 * 0.4, "主界面_公告叉2", 偏色值, 0.8) > 10 Then
                        TracePrint "点击公告叉"
                        ShowMessage "点击公告叉", 2000, 0, 宽
                        Delay 1000
                    End If              
                    Delay 500
                Next
            End If
            TracePrint "初始化完毕"
            ShowMessage "初始化完毕", 3000, 0, 宽
            Delay 1000
            Exit Sub
        End If
        If 二级界面() = TRUE Then
            ShowMessage "返回主界面" ,3000,0,宽
            TracePrint "返回主界面"
            Exit Sub
        End If
        If 其它界面() = TRUE Then
            ShowMessage "请手工返回主界面" ,3000,0,宽
            TracePrint "请手工返回主界面"
            EndScript
        End If
        If i = 14 Then
            ShowMessage "查找主界面失败" ,3000,0,宽
            TracePrint "查找主界面失败"
            EndScript    
        End If
        Delay 3000
        i=i+1
    Wend
End Sub
///////////////////////////////////////调用函数///////////////////////////////////////////
//1登陆界面:登陆,微信,腾讯游戏,开始游戏2主界面:公告叉,领取,主界面,3二级界面:设置,退出,好友,箭头,社区,4其它界面:失败返回,读取条,自动,
//登陆界面
Function 登陆界面()
    TracePrint "正在查找登陆界面"
    登陆界面=False
    If 查找图片(长*0.4 ,宽*0.35, 长*0.6, 宽*0.4, "登陆_王者荣耀",  "333333",0.6) > 10 Then //腾讯游戏
        初始登陆=TRUE
        TracePrint "找到王者荣耀"
        Delay 1000
        If 点击图片(长*0.2, 宽*0.6, 长*0.5, 宽, "登陆_微信",  "111111",0.7) > 10  or 点击图片(长*0.2, 宽*0.6, 长*0.5, 宽, "登陆_微信2",  "111111",0.7) > 10 Then //腾讯游戏
            Delay 1000
            ShowMessage "请手工登陆服务器后重新开启辅助" ,3000,0,宽
            TracePrint "请手工登陆服务器后重新开启辅助"
            EndScript
        End If
        If 点击图片(长*0.3, 宽*0.6, 长*0.7, 宽, "登陆_开始游戏",  "111111",0.7) > 10  or 点击图片(长*0.3, 宽*0.6, 长*0.7, 宽, "登陆_开始游戏2",  "111111",0.7) > 10 Then //腾讯游戏
            Delay 3000
            TracePrint "开始游戏"
            ShowMessage "开始游戏",3000,0,宽
        End If
    End If
    If 查找图片(长*0.2, 宽*0.2, 长*0.5, 宽*0.5, "登陆_腾讯游戏",  偏色值,0.6) > 10 Then //腾讯游戏
        TracePrint "找到腾讯游戏"
        ShowMessage "找到腾讯游戏", 5000, 0, 宽
        初始登陆 = TRUE
        Delay 5000
        Exit Function
    End If
    If 查找图片(长*0.3, 宽*0.2, 长*0.6, 宽*0.5, "登陆_TIMI",  偏色值,0.6) > 10 Then //腾讯游戏
        TracePrint "找到TIMI"
        ShowMessage "找到TIMI",3000,0,宽
        Delay 5000
        Exit Function
    End If
    If 查找图片(长*0.3, 宽*0.7, 长*0.8, 宽 ,"登陆_读取条",  "111111",0.9) > 10 Then //腾讯游戏
        TracePrint "读取游戏中"
        ShowMessage "读取游戏中",5000,0,宽
        Delay 5000
        Exit Function
    End If
End Function
//查找主界面
Function 主界面()
    主界面=False
    TracePrint "正在查找主界面"
    If 点击图片(长*0.6, 宽*0.6, 长, 宽, "主界面_领取", 偏色值, 0.9) > 10 Then
        TracePrint "领取奖励"
        ShowMessage "领取奖励", 2000, 0, 宽
        Delay 2000
    End If
    If 点击图片(长*0.3, 宽*0.5, 长*0.5, 宽*0.8, "退出_取消_蓝", 偏色值, 0.9) > 10 Then
        TracePrint "取消"
        ShowMessage "取消", 2000, 0, 宽
        Delay 2000
    End If
    If 点击图片(长 * 0.6, 宽 * 0.6, 长, 宽, "主界面_领取_礼", 偏色值, 0.9) > 10 Then
        TracePrint "领取奖励"
        ShowMessage "领取奖励", 2000, 0, 宽
        Delay 2000
    End If            
    If 点击图片(长*0.3, 宽*0.3, 长*0.9, 宽, "主界面_确定_蓝", 偏色值, 0.6) > 10 Then
        TracePrint "确定"
        ShowMessage "确定", 2000, 0, 宽
        Delay 1000
        Exit Function
    End If        
    If 点击图片(长 * 0.6, 宽 * 0.01, 长, 宽 * 0.4, "主界面_公告叉", 偏色值, 0.8) > 10 or  点击图片(长 * 0.6, 宽 * 0.01, 长, 宽 * 0.4, "主界面_公告叉2", 偏色值, 0.8) > 10 Then
        TracePrint "点击公告叉"
        ShowMessage "点击公告叉", 2000, 0, 宽
        Delay 1000
        Exit Function
    End If
    If 点击图片(长 * 0.7, 宽 * 0.1, 长, 宽 * 0.3, "主界面_首充叉", 偏色值, 0.8) > 10 Then
        TracePrint "点击首充叉"
        ShowMessage "点击首充叉", 2000, 0, 宽
        Delay 1000
        Exit Function
    End If
    If 查找文字(100, 200, 300, 300, "对战", "1996BE-111111|17BEF5-111111|18A9D8-111111", 0.9) > 10 Then
        TracePrint "已进入主界面"
        ShowMessage "已进入主界面", 2000, 0, 宽
        主界面=TRUE
    End If
    If 查找图片(0, 宽*0.8, 长*0.5, 宽, "界面_铭文", 偏色值, 0.8) > 10 OR  查找图片(0, 宽*0.8, 长*0.5, 宽, "界面_英雄", 偏色值, 0.8) > 10 Then
        TracePrint "已进入主界面"
        ShowMessage "已进入主界面", 2000, 0, 宽
        主界面=TRUE
    End If
    
End Function
//查找二级界面
Function 二级界面()
    二级界面=False
    TracePrint "查找二级界面"
    If 点击图片(长 * 0.3, 0, 长*0.7, 宽 * 0.5, "冒险_胜利", "111111", 0.9) > 10 Then
        TracePrint "战斗胜利!"
        ShowMessage "战斗胜利!",3000,0,宽
        Delay 1000
    End If
    If 点击图片(长*0.4, 宽*0.7, 长*0.6, 宽, "冒险_返回_黄", 偏色值, 0.9) > 10 Then
        TracePrint "返回黄"
        ShowMessage "返回黄", 2000, 0, 宽
        Delay 2000
    End If
    If 点击图片(长*0.5, 宽*0.8, 长, 宽, "冒险_返回_蓝", "111111", 0.9) > 10 Then
        TracePrint "返回蓝"
        ShowMessage "返回蓝", 2000, 0, 宽
        Delay 2000
    End If
    If 点击图片(长 * 0.6, 宽 * 0.01, 长, 宽 * 0.4, "主界面_公告叉", 偏色值, 0.8) > 10 or  点击图片(长 * 0.6, 宽 * 0.01, 长, 宽 * 0.4, "主界面_公告叉2", 偏色值, 0.8) > 10 Then
        TracePrint "点击公告叉"
        ShowMessage "点击公告叉", 2000, 0, 宽
        Delay 1000
        Exit Function
    End If
    If 点击图片(长*0.8, 0, 长, 宽*0.3, "二级_赛事叉", 偏色值, 0.8) > 10 Then
        TracePrint "赛事叉"
        ShowMessage "赛事叉", 2000, 0, 宽
        Delay 2000
    End If  
    If 点击图片(0, 宽 * 0.4, 长*0.2, 宽*0.6, "二级_好友", 偏色值, 0.8) > 10 Then
        TracePrint "好友"
        ShowMessage "好友", 2000, 0, 宽
        Delay 2000
        二级界面=TRUE
    End If
    If 点击图片(0, 0, 长*0.2, 宽*0.2, "二级_箭头_大", 偏色值, 0.8) > 10 Then
        TracePrint "返回"
        ShowMessage "返回", 2000, 0, 宽
        Delay 2000
        二级界面=TRUE
    End If
    If 点击图片(0, 0, 长*0.2, 宽*0.2, "二级_箭头_小", 偏色值, 0.8) > 10 Then
        TracePrint "返回"
        ShowMessage "返回", 2000, 0, 宽
        Delay 2000
        二级界面=TRUE
    End If
    If 点击图片(长*0.4, 宽*0.7, 长*0.6, 宽, "知道了", 偏色值, 0.8) > 10 Then
        TracePrint "知道了"
        ShowMessage "知道了", 2000, 0, 宽
        Delay 2000
    End If  
    If 点击图片(长*0.9, 宽*0.9, 长, 宽, "二级_社区叉", 偏色值, 0.8) > 10 Then
        TracePrint "返回叉"
        ShowMessage "返回叉", 2000, 0, 宽
        Delay 2000
        二级界面=TRUE
    End If
End Function
//查找其它界面
Function 其它界面()
    其它界面=False
    TracePrint "正在查找其它界面"
    If 查找图片(0, 宽 * 0.9, 长, 宽, "冒险_读取条", 偏色值, 0.8) > 10 Then
        TracePrint "正在读取地图"
        ShowMessage "正在读取地图",3000,0,宽
        Delay 3000  
    End If
    If 查找图片(长 * 0.9, 0, 长, 宽 * 0.2, "冒险_设置", "111111", 0.8) > 10 Then
        TracePrint "正在冒险任务请"
        ShowMessage "正在冒险跳过",3000,0,宽
        Delay 2000  
    End If
    If 查找图片(长*0.8, 0, 长, 宽*0.3,"冒险_跳过", "111111", 0.8) > 10 Then
        TracePrint "正在冒险跳过"
        ShowMessage "正在冒险跳过",3000,0,宽
        Delay 2000  
    End If
    If 查找图片(长*0.4, 宽*0.6, 长*0.6, 宽*0.9,"断开_确定", "111111", 0.8) > 10 Then
        TracePrint "断开_确定"
        ShowMessage "断开_确定",3000,0,宽
        Delay 2000  
    End If          
End Function
Sub 自动刷金()
    TracePrint "自动刷金开启了"
    Delay 1000
    进入冒险模式()
    If 点击图片(长*0.1, 宽*0.1, 长*0.4, 宽, "冒险_堕落的祸源", 偏色值,  0.8) > 10 Then
        Swipe 长*0.2, 宽*0.2, 长*0.2, 宽*0.5
        Delay 1000
    End If
    If 点击图片(长*0.1, 宽*0.1, 长*0.4, 宽, "冒险_陨落的废都", 偏色值, 0.8) > 10 Then
        Delay 1000  
    End If
    If 选择级别("大师") = TRUE Then
        TracePrint "大师TRUE"
        If 选择魔女回忆() = TRUE Then
            TracePrint "魔女TRUE"
            循环挂机
        ElseIF 选择级别("精英")=TRUE THEN
            TracePrint "精英TRUE"
            If 选择魔女回忆() = TRUE Then
                TracePrint "魔女TRUE"
                循环挂机
            ElseIF 选择级别("普通") =TRUE THEN
                TracePrint "普通TRUE"
                If 选择魔女回忆() = TRUE Then
                    TracePrint "魔女TRUE"
                    循环挂机()
                Else
                    TracePrint "选择级别出错!"
                    ShowMessage "选择级别出错!", 3000, 0, 宽
                    EndScript
                End If
            Else
                TracePrint "选择级别出错!"
                ShowMessage "选择级别出错!", 3000, 0, 宽
                EndScript
            End If
        ElseIF 选择级别("普通") =TRUE THEN
            TracePrint "普通TRUE"
            If 选择魔女回忆() = TRUE Then
                TracePrint "魔女TRUE"
                循环挂机()
            Else
                TracePrint "选择级别出错!"
                ShowMessage "选择级别出错!", 3000, 0, 宽
                EndScript
            End If
        Else
            TracePrint "选择级别出错!"
            ShowMessage "选择级别出错!", 3000, 0, 宽
            EndScript
        End If
    ElseIF 选择级别("精英")=TRUE THEN
        TracePrint "精英TRUE"
        If 选择魔女回忆() = TRUE Then
            TracePrint "魔女TRUE"
            循环挂机
        ElseIF 选择级别("普通") =TRUE THEN
            TracePrint "普通TRUE"
            If 选择魔女回忆() = TRUE Then
                TracePrint "魔女TRUE"
                循环挂机()
            Else
                TracePrint "选择级别出错!"
                ShowMessage "选择级别出错!", 3000, 0, 宽
                EndScript
            End If
        Else
            TracePrint "选择级别出错!"
            ShowMessage "选择级别出错!", 3000, 0, 宽
            EndScript
        End If
    ElseIF 选择级别("普通") =TRUE THEN
        TracePrint "普通TRUE"
        If 选择魔女回忆() = TRUE Then
            TracePrint "魔女TRUE"
            循环挂机()
        Else
            TracePrint "选择级别出错!"
            ShowMessage "选择级别出错!", 3000, 0, 宽
            EndScript
        End If
    Else
        TracePrint "选择级别出错!"
        ShowMessage "选择级别出错!", 3000, 0, 宽
        EndScript
    End If
    TracePrint "选择级别完事儿啦!"
End Sub
//循环挂机
SUB 循环挂机()
    TracePrint "开始循环挂机"
    If 点击图片(长 * 0.7, 宽 * 0.8, 长, 宽, "冒险_下一步", 偏色值, 0.8) > 10 Then
        TracePrint "冒险_下一步!"
        Delay 1000
        If 查找图片(长 * 0.7, 宽 * 0.5, 长 * 0.9, 宽 * 0.8, "冒险_空白英雄", 偏色值, 0.9) > 10 Then
            TracePrint "冒险_空白英雄!"
            If 点击图片(长 * 0.5, 宽 * 0.7, 长 * 0.7, 宽 * 0.9, "冒险_更换阵容", 偏色值, 0.8) > 10 Then
                TracePrint "冒险_更换阵容!"
                Delay 2000
                For i = 1 To 10//选择英雄
                    If 查找图片(0, 0, 长 * 0.2, 宽 * 0.2, "战斗_英雄", 偏色值, 0.9) > 10 Then
                        Tap 长 * 0.06,  宽 * 0.205//1.1
                        Delay 1000
                        Tap 长 * 0.06*2,  宽 * 0.205//1.2
                        Delay 1000
                        Tap 长 * 0.06,  宽 * 0.205*2//2.1
                        Delay 1000
                        Tap 长 * 0.06*2, 宽 * 0.205*2//2.2
                        Delay 1000
                        Exit For
                    End If
                    TracePrint "查找出战英雄!"&i
                    i = i + 1
                    Delay 2000
                Next
                Tap 长*0.9,  宽 * 0.92//进入游戏
                Delay 2000
                If 开始冒险() > 10 Then
                    TracePrint "冒险完成!"
                End  IF
            End IF
        Else
            While 1
                If 开始冒险() = TRUE Then
                    TracePrint "冒险完成!"
                End If
                If 冒险后判断() = False Then
                    Exit While
                End If
                Delay 2000
            Wend
            //当循环条件成立的时候,反复执行循环体
            TracePrint "冒险执行完毕!"
        End If
    End If
End Sub
//开始冒险
Function 开始冒险()
    开始冒险=FALSE
    dim i=0
    For i = 1 To 10
        If 点击图片(长 * 0.7, 宽 * 0.8, 长, 宽, "冒险_闯关", 偏色值, 0.8) > 10 Then
            Delay 5000
            If 查找图片(0, 宽 * 0.6, 长, 宽, "冒险_读取条", 偏色值, 1) > 10 Then
                TracePrint "正在读取地图"
                ShowMessage "正在读取地图", 3000, 0, 宽
                开始冒险=TRUE
                Delay 5000
                Exit FOR
            End If
        End If
        i = i + 1
        Delay 1000
        TracePrint "冒险_读取条"&i
    Next
    While 1
        TracePrint "while"
        If 点击图片(长*0.8, 0, 长, 宽*0.3, "冒险_跳过", 偏色值, 0.9) > 10 Then
            TracePrint "跳过对话"
            ShowMessage "跳过对话",3000,0,宽
            Goto 冒险循环尾
        End If
        If 点击图片(长 * 0.8, 0, 长, 宽 * 0.2, "冒险_自动_关", 偏色值, 0.9) > 10 Then
            开始冒险=TRUE
            TracePrint "点击自动"
            ShowMessage "点击自动",3000,0,宽
            Goto 冒险循环尾
        End If
        If 查找图片(长*0.8, 0, 长, 宽*0.3, "冒险_自动_开", 偏色值, 0.9) > 10 Then
            TracePrint "正在战斗"
            ShowMessage "正在战斗", 3000, 0, 宽
            Delay 2000
            Goto 冒险循环尾
        End If
        If  点击图片(长 * 0.3 ,宽*0.8, 长*0.7, 宽 , "冒险_点击屏幕继续", 偏色值, 0.9) > 10 Then
            TracePrint "战斗胜利!"
            ShowMessage "战斗胜利!",3000,0,宽
            Delay 1000
            Tap 长/2, 宽/2
            Delay 3000
            Exit while
        End If
        If 点击图片(长 * 0.4, 宽*0.8, 长*0.6, 宽, "冒险_返回_黄", 偏色值, 0.9) > 10 Then
            TracePrint "战斗失败!"
            ShowMessage "战斗失败!",3000,0,宽
            Delay 500
            Tap 长/2, 宽/2
            Delay 3000
            Exit while
        End If
        If 点击图片(长 * 0.5, 宽 * 0.6, 长 * 0.7, 宽 * 0.8, "断线_确定_红", 偏色值, 0.9) > 10 Then
            TracePrint "断线了,时间太长了~"
            ShowMessage "断线了,时间太长了~", 2000, 0, 宽
            EndScript
        End If
        Rem 冒险循环尾
        Delay 3000
    Wend
End Function
Function 冒险后判断()
    For i = 1 To 10
        If 查找图片(长*0.8, 宽*0.5, 长, 宽*0.7, "冒险_今日收益已达上限", 偏色值, 0.9) > 10 Then
            TracePrint "今日收益已达上限"
            ShowMessage "今日收益已达上限", 2000, 0, 宽
            冒险后判断=False
            Exit Function
        End If
        If 点击图片(长 * 0.5, 宽 * 0.5, 长* 0.9, 宽*0.9, "断线_确定_红", 偏色值, 0.9) > 10 Then
            TracePrint "断线_确定_红"
            ShowMessage "断线_确定_红", 2000, 0, 宽
            冒险后判断=False
            Exit Function
        End If
        If 点击图片(长 * 0.5, 宽 * 0.5, 长 * 0.9, 宽 * 0.9, "断开_确定_黄", 偏色值, 0.9) > 10 Then
            TracePrint "断开_确定_黄"
            ShowMessage "断开_确定_黄", 2000, 0, 宽
            冒险后判断=False
            Exit Function
        End If
        If 点击图片(长 * 0.5, 宽 * 0.6, 长, 宽, "冒险_再次挑战", 偏色值, 0.9) > 10 Then
            TracePrint "冒险_再次挑战"
            ShowMessage "冒险_再次挑战", 2000, 0, 宽
            冒险后判断=True
            Exit Function
        End If
        Delay 1000
    Next
    冒险后判断=False
End Function
//选择魔女回忆
Function 选择魔女回忆()
    选择魔女回忆=FALSE
    Tap 长 * 0.6, 宽 * 0.4
    If 查找图片(长 * 0.55, 宽 * 0.35, 长 * 0.75, 宽 * 0.5, "冒险_魔女回忆_大师_真", 偏色值, 0.9) > 10  THEN
        选择魔女回忆 = TRUE
        Exit Function
    End If
    If 查找图片(长 * 0.55, 宽 * 0.35, 长 *  0.75, 宽 * 0.5, "冒险_魔女回忆_精英_真", 偏色值, 0.9) > 10  THEN
        选择魔女回忆 = TRUE
        Exit Function
    End If
    If 查找图片(长 * 0.55, 宽 * 0.35, 长 *  0.75, 宽 * 0.5, "冒险_魔女回忆_普通_真", 偏色值, 0.9) > 10  THEN
        选择魔女回忆 = TRUE
        Exit Function
    End If
End Function
Function 选择级别(级别)
    TracePrint "选择级别:"&级别
    ShowMessage "选择级别:"&级别, 3000, 0, 宽
    选择级别=False
    If 级别 = "大师" Then
        If 点击图片(长 * 0.7, 宽 * 0.1, 长, 宽 * 0.9, "冒险_大师_未选中", 偏色值, 0.8) > 10 Then
            Delay 1000
        End If
        If 点击图片(长 * 0.7, 宽 * 0.1, 长, 宽 * 0.9, "冒险_大师_选中", 偏色值, 0.9) > 10 Then
            Delay 1000
            选择级别=TRUE
        End If
    End If
    If 级别 = "精英" Then
        If 点击图片(长 * 0.7, 宽 * 0.1, 长, 宽 * 0.9, "冒险_精英_未选中", 偏色值, 0.8) > 10 Then
            Delay 1000
        End If
        If 点击图片(长 * 0.7, 宽 * 0.1, 长, 宽 * 0.9, "冒险_精英_选中", 偏色值, 0.9) > 10 Then
            Delay 1000
            选择级别=TRUE
        End If
    End If
    If 级别 = "普通" Then
        If 点击图片(长 * 0.7, 宽 * 0.1, 长, 宽 * 0.9, "冒险_普通_未选中", 偏色值, 0.8) > 10 Then
            Delay 1000
        End If
        If 点击图片(长 * 0.7, 宽 * 0.1, 长, 宽 * 0.9, "冒险_普通_选中", 偏色值, 0.9) > 10 Then
            Delay 1000
            选择级别=TRUE
        End If
    End If
End Function
//进入冒险模式
Sub 进入冒险模式()
    If 点击图片(长*0.6, 宽*0.7, 长*0.9, 宽*0.9, "冒险_冒险模式", 偏色值,1) > 10 Then
        Delay 1000
    End If
    If 点击图片(长*0.4, 宽*0.3, 长*0.8, 宽*0.6, "冒险_挑战", 偏色值, 1) > 10 Then
        Delay 1000
    End If
End Sub
//冒险NEW ()
Sub 冒险NEW()
    进入冒险模式()
    Delay 2000
    if 点击图片(长 * 0.6, 宽 * 0.6, 长, 宽, "闯关", 偏色值, 0.9)>10 then
        Delay 3000
    End if
    开始冒险 ()
    dim i=0
    While i<3
        If 点击图片(长 * 0.3, 宽*0.5, 长*0.7, 宽, "确定", 偏色值, 0.9) > 10 Then
            TracePrint "点击确定!"
            ShowMessage "点击确定!",3000,0,宽
            Delay 1000
            Exit While
        End If
        Delay 2000
    Wend
End Sub
///////////////////////////////////////做完函数///////////////////////////////////////////
//启动游戏
Sub 启动游戏()
    RunApp "com.tencent.tmgp.sgame"
    TracePrint "启动王者荣耀"
    ShowMessage "启动王者荣耀",3000,0,宽
    Delay 2000
End Sub
//查找图片
Function 查找图片(X1, Y1, X2, Y2, 图片名, 偏色值, 相似度)
    FindPic X1,Y1,X2,Y2,"Attachment:"&图片名&".png",偏色值,0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        TracePrint "已找到:"&图片名&","&intX&","&intY
    End If
    查找图片 = intX + intY
End Function
//点击图片
Function 点击图片(X1, Y1, X2, Y2, 图片名, 偏色值, 相似度)
    FindPic X1,Y1,X2,Y2,"Attachment:"&图片名&".png",偏色值,0,相似度,intX,intY
    If intX > -1 And intY > -1 Then
        TracePrint "已找到:"&图片名&","&intX&","&intY
        Tap intX + 10, intY + 10
    End If
    点击图片 = intX + intY
End Function
//查找文字
Function 查找文字(x1, y1, x2, y2, 文字, 颜色值,相似度)
    FindStr(x1,y1,x2,y2,文字,颜色值,相似度,intX,intY)
    If intX > -1 And intY > -1 Then
        TracePrint "已找到:"&文字&","&intX&","&intY
    End If
    查找文字=intX+intY
End Function
//点击文字
Function 点击文字(x1,y1,x2,y2,文字,颜色值,相似度)
    FindStr(x1,y1,x2,y2,文字,颜色值,相似度,intX,intY)
    If intX > -1 And intY > -1 Then
        TracePrint "已找到:"&文字&","&intX&","&intY
        Tap intX, intY
    End If
    点击文字=intX+intY
End Function
//多点找色
Function 多点找色(x1, y1, x2, y2, 颜色1, 颜色2)
    FindMultiColor x1,y1,x2,y2,颜色1,颜色2,0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        TracePrint intX
        TracePrint intY
    End If
    多点找色=intX+intY
End Function
善者 慈悲心常在 无怨无恨 以苦为乐
默认压缩密码www.hifyl.com
文件分享密码问题:http://www.hifyl.com/read-htm-tid-4444.html
离线qq1156136807

只看该作者 沙发  发表于: 2017-12-29
离线山雨

只看该作者 板凳  发表于: 01-05
3562yur67ygryh
https://www.2345.com/?k63020979

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

电脑版+ 安卓版

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

vvv777.ys168.com
快速回复
限100 字节
批量上传需要先选择文件,再选择上传
 
上一个 下一个