misaki手游梦幻西游一键40级脚本

资源介绍:

要求分辨率-平板-1280*720(192dpi) 

功能:自动登录(需要手动登录一次) / 一键0级到40级(新号请手动根据指引完成一次) / 自动提交技能点 / 自动上阵 / 自动世界喊话

资源作者:

资源图片:

201805185939_164.gif

资源下载:

Dim intX,intY,intX1, intY1,intX2, intY2,intX3, intY3,intX4, intY4,intX5, intY5,intX6, intY6,intX7, intY7,intX8, intY8,intX9, intY9,intX10, intY10
 
Dim intX11,intY11,intX12,intY12, intX13, intY13, intX14, intY14,武器升级,检测是否提升完成,是否进入游戏
  
Dim 次数,intX15,intY15,intX16, intY16,intX17, intY17,intX18, intY18,intX19, intY19,intX20, intY20,延迟时间,喊话内容,临时路径
 
dim 已切换,intX21,intY21,intX36, intY36,intX37, intY37,不在执行
 
延迟时间 = ReadUIConfig("延迟时间", "6000")
  
喊话内容 = ReadUIConfig("喊话内容", "未输入")
  
 /*
  
For 99
          
    For 3
           
        ShowMessage 延迟时间
         
        Delay 1000
          
    Next
          
    For 3
           
        ShowMessage 喊话内容
         
        Delay 1000
          
    Next 
          
Next*/
  
//For 99
           
         
临时路径 = GetTempDir()
 
不在执行 = 0
 
TracePrint 临时路径&"Misakmhxy/"
     
PutAttachment 临时路径&"Misakmhxy/", "*.png"
         
Delay 1000
          
//Next  
  
//检测是否打开游戏
 
是否进入游戏 = 0
  
While 是否进入游戏 = 0
  
    FindPic 14, 528, 70, 587, "Attachment:消息.png", "000000", 0, 0.9, intX15, intY15
 
    Delay 50
 
    FindPic 5, 3, 1265, 699, "Attachment:梦幻西游.png", "000000", 0, 0.9, intX19, intY19
     
    Delay 50
 
    FindPic 516,493,764,565, "Attachment:登录游戏.png", "000000", 0, 0.9, intX20, intY20
     
    Delay 50
                 
    FindPic 448, 476, 564, 514, "Attachment:我有经验.png", "000000", 0, 0.9, intX36, intY36
     
    Delay 50
     
    FindPic 554, 48, 726, 98, "Attachment:福利界面.png", "000000", 0, 0.9, intX12, intY12 
 
    If intX19 > -1 And intY19 > -1 Then
     
        TracePrint "打开游戏"
 
        Tap intX19, intY19 //打开游戏 516,493,764,565 
 
    ElseIf intX20 > -1 And intY20 > -1 Then
    
        TracePrint "登录游戏"
         
        Tap intX20, intY20 //打开游戏  
 
    ElseIf intX15 > -1 And intY15 > -1 Then
    
        TracePrint "进入游戏"
         
        是否进入游戏 = 1
 
    ElseIf intX36 > -1 And intY36 > -1 Then
                                  
        TracePrint "我有经验"
                             
        Tap intX36, intY36
 
    ElseIf intX12 > -1 And intY12 > -1 Then 
         
        Tap 1089, 78
         
    End If
                                  
    TracePrint "监视中"
     
    Delay 200
         
Wend  
 
If ReadUIConfig("模式选择框") = 0 Then
 
    ShowMessage "当前选的是:做任务!"
     
    TracePrint "做任务"
     
    Goto 做任务
     
ElseIf ReadUIConfig("模式选择框") = 1 Then
 
    ShowMessage "当前选的是:喊话!"
     
    TracePrint "喊话"
     
    Goto 喊话
     
End If
 
//喊话
 
Rem 喊话
 
For 9999999999999
 
    FindPic 14, 528, 70, 587, "Attachment:消息.png", "000000", 0, 0.9, intX15, intY15
 
    FindPic 470, 35, 580, 94, "Attachment:发送.png", "000000", 0, 0.9, intX16, intY16
 
    Delay 200
 
    If intX16 > -1 And intY16 > -1 Then
         
        Delay 20
 
        Tap 66,209 //世界
 
        Delay 20
 
        Tap 284, 75 //点击输入
 
        InputText 喊话内容
 
        Delay 20
 
        Tap 1253,34 //确定
 
        Delay 20
 
        Tap intX16, intY16 //发送
 
        次数 = 0
 
        For 延迟时间
 
            Delay 1000
         
            次数 = 次数 + 1
         
            ShowMessage 次数 & "秒后继续发消息!"
 
        Next
         
    End If
         
Next
 
 
If intX15 > -1 And intY15 > -1 Then
 
    Tap intX15, intY15 
 
    //选择字体 
     
End If
 
// 做任务
 
Rem 做任务
 
Dim intX30, intY30,intX31, intY31,intX32, intY32,intX33, intY33,intX34, intY34,intX35, intY35
 
For 99999999999
         
 
    FindPic 0, 0, 1277, 692, "Attachment:自动寻路.png", "000000", 1, 0.8, intX, intY
     
    FindPic 0, 0, 1277, 692, "Attachment:巡逻中.png", "000000", 1, 0.8, intX17, intY17
 
    FindPic 908,214,1273,715, "Attachment:选择要做的事.png", "000000", 4, 1.0, intX1, intY1
         
    FindPic 0, 0, 1277, 692, "Attachment:战斗中.png", "000000", 0, 1.0, intX2, intY2
         
    FindPic 995, 38, 1209, 96, "Attachment:任意.png", "000000", 4, 1.0, intX3, intY3    
     
    FindPic 997, 23, 1257, 69, "Attachment:跳过剧情.png", "000000", 0, 0.9, intX4, intY4
     
    FindPic 1039, 551, 1146, 597, "Attachment:使用.png", "000000", 3, 0.9, intX5, intY5
     
    FindPic 554, 48, 726, 98, "Attachment:福利界面.png", "000000", 0, 0.9, intX12, intY12 
     
    FindPic 928,566,964,603, "Attachment:购买.png", "000000", 0, 0.9, intX30, intY30 
     
    FindPic 1056,563,1087,598, "Attachment:上交.png", "000000", 0, 0.9, intX31, intY31 
     
    FindPic 173,25,226,60, "Attachment:未知界面.png", "000000", 0, 0.8, intX32, intY32
  
    If intX > -1 And intY > -1 Then //检测是否自动寻路
            
        TracePrint "自动寻路中"
         
        Delay 500 
         
        //        自动寻路是否到达目的地 = 0
         
        //        Call 检测自动寻路是否到达目的地()
    ElseIf intX17 > -1 And intY17 > -1 Then //检测是否自动寻路
            
        TracePrint "巡逻中"
         
        Delay 500  
         
    ElseIf intX1 > -1 And intY1 > -1 Then
         
        TracePrint "选择要的事情" //到达目的地 
         
        FindPic 937,234,1234,297, "Attachment:选择要做的事.png", "000000", 4, 0.9, intX8, intY8
     
        If intX8 > -1 And intY8 > -1 Then //多条选择要做的事[4]
         
            FindPic 948,149,1218,228, "Attachment:选择要做的事.png", "000000", 0, 0.9, intX35, intY35
     
            If intX35 > -1 And intY35 > -1 Then //多条选择要做的事[5]
         
                TracePrint "多条选择要做的事[5]"
             
                Tap intX35, intY35
         
            Else
         
                TracePrint "多条选择要做的事[4]"
             
                Tap intX8, intY8 
 
            End If
 
        Else
         
            FindPic 936,295,1234,365, "Attachment:选择要做的事.png", "000000", 4, 1.0, intX14, intY14
     
            If intX14 > -1 And intY14 > -1 Then
         
                TracePrint "多条选择要做的事[3]"
                 
                Tap 1114,341
            Else
             
                FindPic 950, 434, 1228, 694, "Attachment:选择要做的事.png", "000000", 4, 1.0, intX7, intY7
     
                If intX7 > -1 And intY7 > -1 Then
         
                    FindPic 938,475,974,501, "Attachment:要的事1.png", "000000", 1, 0.9, intX7, intY7
     
                    If intX7 > -1 And intY7 > -1 Then
                         
                        FindPic 935,408,978,432, "Attachment:选择要的事2.png", "000000", 4, 0.9, intX18, intY18
 
                        If intX18 > -1 And intY18 > -1 Then
     
                            TracePrint "要的事2"
     
                            Tap intX18, intY18
                        Else
                 
         
                            TracePrint "多条选择要做的事[1]"
                     
                            Tap intX7, intY7
                         
                     
                        End If
                         
                     
                    Else
                 
         
                        TracePrint "多条选择要做的事[2]"
     
                        Tap 1073,388
         
                    End If
                Else 
     
                    FindPic 1037, 550, 1151, 603, "Attachment:使用2.png", "000000", 1, 0.9, intX5, intY5
     
                    If intX5 > -1 And intY5 > -1 Then
     
                        TracePrint "使用[2]"
     
                        Tap intX5, intY5
     
                    Else
     
         
                        TracePrint "多条选择要做的事[1]"
     
                        Tap intX1, intY1
     
                    End If
     
                End If
              
          
            End If
             
        End If
         
         
    ElseIf intX2 > -1 And intY2 > -1 Then
         
        TracePrint "战斗中"
         
        FindPic 1204,664,1263,701,"Attachment:自动.png","000000",0,0.9,intX2,intY2
             
        If intX2 > -1 And intY2 > -1 Then
             
            TracePrint "没有自动战斗中" 
             
            Tap intX2, intY2 
         
        End If
         
        Delay 3000 //战斗中延迟释放性能 
         
    ElseIf intX3 > -1 And intY3 > -1 Then
         
        TracePrint "对话中"  
         
        Tap intX3, intY3
         
    ElseIf intX4 > -1 And intY4 > -1 Then
         
        TracePrint "跳过剧情"
         
        Tap intX4, intY4
         
    ElseIf intX5 > -1 And intY5 > -1 Then
         
        TracePrint "使用"
         
        Tap intX5, intY5
         
    ElseIf intX12 > -1 And intY12 > -1 Then
         
        TracePrint "福利界面"
         
        FindPic 383, 71, 1095, 675, "Attachment:领取.png", "000000", 0, 0.9, intX13, intY13
         
        If intX13 > -1 And intY13 > -1 Then
         
            Tap intX13, intY13
         
        End If
         
        Tap 1088,90
         
    ElseIf intX30 > -1 And intY30 > -1 Then
         
        TracePrint "购买页面"
         
        Tap intX30, intY30
         
    ElseIf intX31 > -1 And intY31 > -1 Then
         
        TracePrint "上交页面"
         
        Tap intX31, intY31
         
    ElseIf intX32 > -1 And intY32 > -1 Then
         
        
        intX = 0
        intY = 0
         
        FindPic 576, 22, 701, 57, "Attachment:助战界面.png", "000000", 0, 0.9, intX, intY
         
                  
        If intX > -1 And intY > -1 Then
                  
            
            TracePrint "不在执行:"&不在执行
            TracePrint "助战界面"
             
            Dim 上阵是否成功
             
            上阵是否成功 = 0
            While 上阵是否成功 = 0
             
                If CmpColorEx("788|533|FEFEFF,943|534|EBFAFF,836|568|113F79,857|568|12417A",0.9) = 1 Then //上阵按钮
                    TracePrint 1 //上阵
                    Tap 868,552
                Else
                    If CmpColorEx("1048|341|3488CC,1051|355|489ED6,1072|346|CFF4FE",0.9) = 1 Then //右键按钮
                        TracePrint 1 
                        If CmpColorEx("1097|227|24491D,1095|256|025464,1077|258|0D3858,1046|189|692A19",0.9) = 1 Then
                            TracePrint "添加满了"
                             
                            Tap 989,137 //关闭
                             
                            Tap 1138,51 //关闭
                             
                            上阵是否成功 = 1
                                 
                            不在执行 = 1
                                 
                             
                        Else
                             
                            Tap 1059,350 //右键按钮
                             
                            上阵是否成功 = 0
                        End If
                    Else
                    Tap 387,314
                       // Tap 332, 412
                    End If
                     
                End If
                Delay 200
            Wend 
         
        Else
        
        
            TracePrint "未知界面"
         
            FindPic 80, 21, 1240, 707, "Attachment:指引按键.png", "33A2E7", 0, 1.0, intX33, intY33
         
            If intX33 > -1 And intY33 > -1 Then
         
                TracePrint "扎到指引按键:"& intX33, intY33 
             
                Tap intX33, intY33
             
                Delay 20
             
                intX = 0
                intY = 0
               
                FindPic 960,624,994,656,"Attachment:一键升级.png","000000",0,0.9,intX,intY
                If intX > -1 And intY > -1 Then
                    TracePrint "一键升级"
                 
                    Tap intX, intY
                 
                End If
             
            End If
         
            FindPic 126,58,1114,697, "Attachment:可以关闭.png", "000000", 0, 0.9, intX34, intY34
         
            If intX34 > -1 And intY34 > -1 Then
         
                TracePrint "可以关闭" 
             
                Tap 1105,52
             
            End If
         
        End If
         
    Else
     
        FindPic 233, 2, 965, 74, "Attachment:自动提升.png", "000000", 0, 0.8, intX9, intY9
         
        If intX9 > -1 And intY9 > -1 Then
         
            TracePrint "可以提升战斗力了"
         
            Tap intX9, intY9
         
            Delay 1500
         
            FindPic 151,98,969,416, "Attachment:技能提升.png", "000000", 0, 0.7, intX11, intY11 
             
            If intX11 > -1 And intY11 > -1 Then
             
                TracePrint "技能可以提升了"
                 
                武器升级 = 0
 
 
                If 武器升级 = 0 Then
 
                    Tap intX11, intY11
                 
                    检测是否提升完成 = 0
                 
         
                    While 检测是否提升完成 = 0
                 
         
                        FindPic 445, 148, 870, 402, "Attachment:升级完成.png", "000000", 1, 0.8, intX10, intY10
             
                        If intX10 > -1 And intY10 > -1 Then
             
                            TracePrint "升级完成"
                 
                            Tap 1100, 52
                     
                            检测是否提升完成 = 1 
                 
                        Else
         
                            Tap 991, 639 //点击升级
                 
                        End If
                     
                    Wend
         
         
                Else //表示武器升级 忽悠
         
                    武器升级 = 1
                 
                    TracePrint "没有"
                 
               /* Tap 702, 156
                 
                Delay 500
                 
                Tap intX9, intY9*/
         
                End If
                 
            End If
             
        Else
         
            FindPic 1030,168,1279,517, "Attachment:升级不到.png", "000000", 0, 0.8, intX6, intY6
         
            If intX6 > -1 And intY6 > -1 Then
         
                TracePrint "角色需要升级,已选择做次要任务!"
                 
                intX = 0
                 
                intY = 0 
     
                FindPic 1151,50,1180,79, "Attachment:17级.png", "000000", 0, 0.9, intX37, intY37
                 
                If intX37 > -1 And intY37 > -1 Then //检测是否17级
            
                    TracePrint "17级了" 
                    If 不在执行 = 0 Then
                        FindPic 1218,645,1238,666,"Attachment:展开.png","000000",0,0.9,intX,intY
                        If intX > -1 And intY > -1 Then
                            TracePrint "展开了"
                            intX = 0 
                            intY = 0 
                            FindPic 1129,646,1177,682,"Attachment:助战.png","000000",0,0.9,intX,intY
                            If intX > -1 And intY > -1 Then
                                TracePrint "点击助战"
                                Tap intX,intY
                            Else
                                TracePrint "没有助战"
                             
                            End If
                        Else
                            TracePrint "没有展开"
                          
                            Tap 1232, 663
                        End If
                    Else
             
                        Tap 1166, 316
                 
                        Delay 500
                         
                    End If
         
                Else
                    FindPic 940,402,974,428,"Attachment:要的事情2.png","000000",0,0.9,intX,intY
                    If intX > -1 And intY > -1 Then
                        TracePrint "要的事情2"
                     
                    Else
             
                        Tap 1166, 316
                 
                        Delay 500
                     
                    End If
         
                End If
                 
          
            Else 
                 
 
                FindPic 935,408,978,432, "Attachment:选择要的事2.png", "000000", 4, 0.9, intX18, intY18
 
                If intX18 > -1 And intY18 > -1 Then
     
                    TracePrint "要的事2"
     
                    Tap intX18, intY18
             
                Else  
                 
                    FindPic 393,521,426,549, "Attachment:组队中.png", "000000", 0, 0.8, intX21, intY21
 
                    If intX21 > -1 And intY21 > -1 Then
                     
                        TracePrint "组队中"
                         
                        ShowMessage "你当前正在组队中,如果不是组队任务请退出!"
 
                 
                    Else
                 
                        FindPic 448,476,564,514, "Attachment:我有经验.png", "000000", 0, 0.9, intX36, intY36
 
                        If intX36 > -1 And intY36 > -1 Then
                                  
                            TracePrint "我有经验"
                             
                            Tap intX36, intY36
                             
                        Else
                 
                            intX = 0
                            intY = 0
                  
                 
                            FindPic 573,156,708,207, "Attachment:选择宠物.png", "000000", 0, 0.9, intX, intY
 
                            If intX > -1 And intY > -1 Then
                                  
                                TracePrint "选择宠物"
                             
                                //Tap intX, intY
                                 
                                Tap 519,377
                             
                            Else
                             
                                intX = 0
                                intY = 0
           

misaki手游梦幻西游一键40级脚本》有0个想法

回复 易语言资源 取消回复

您的电子邮箱地址不会被公开。 必填项已用*标注