为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵安卓版 正文

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

三叶资源网 2018-05-18 00:08:11 按键精灵安卓版 16142 ℃ 285 评论

资源介绍:

要求分辨率-平板-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
                  
                                FindPic 1168,614,1206,656,"Attachment:打开技能界面.png","000000",0,0.9,intX,intY
                                If intX > -1 And intY > -1 Then
                                          
                                    TracePrint "打开技能界面"
                                 
                                    Tap 1156, 666
                                 
                                Else
         
         
                                    intX = 0
                                    intY = 0
                                    FindPic 582,22,738,64,"Attachment:关闭刮刮乐.png","000000",0,0.9,intX,intY
                                    If intX > -1 And intY > -1 Then
                                        TracePrint "关闭刮刮乐"
                                         
                                        Tap 1144,52
                                    Else
         
                                        intX = 0
                                        intY = 0
                                        FindPic 464,419,527,451,"Attachment:三界.png","000000",0,0.9,intX,intY
                                        If intX > -1 And intY > -1 Then
 
                                            Tap 773, 427
                                        Else
                                            TracePrint "啥也没有"
                                            Tap 1153, 222
 
                                        End If
         
                                    End If
         
                 
                                     
                                End If
                            End If 
                        End If
                 
                    End If
                End If 
            End If
         
        End If
            
    End If
     
    Delay 200
     
Next


来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有285位网友发表了看法:

  • 小斌

    小斌  评论于 [2018-07-30 15:14:31]  回复

    额。资源图片么

  • 自学易语言

    自学易语言  评论于 [2018-10-18 23:23:56]  回复

    按键精灵区域找图找梦幻西游手游

  • 易语言资源

    易语言资源  评论于 [2018-11-01 15:23:21]  回复

    梦幻西游手游按键精灵脚本代码

  • 三叶网

    三叶网  评论于 [2019-03-06 00:54:01]  回复

    梦幻西游手游按键精灵脚本

  • 三叶网

    三叶网  评论于 [2019-03-06 00:55:30]  回复

    梦幻手游+一条脚本

  • 三叶网

    三叶网  评论于 [2019-03-07 10:47:07]  回复

    梦幻西游手游安卓版免费脚本精灵

  • 三叶网

    三叶网  评论于 [2019-03-07 10:49:11]  回复

    梦幻西游手游踩空间脚本

  • 三叶网

    三叶网  评论于 [2019-03-07 11:00:05]  回复

    2018梦幻手游自动抓鬼辅助安卓

  • 三叶网

    三叶网  评论于 [2019-03-07 11:01:15]  回复

    手游梦幻西游脚本

  • 三叶网

    三叶网  评论于 [2019-03-07 11:06:26]  回复

    梦幻西游手游内置脚本

  • 三叶网

    三叶网  评论于 [2019-03-08 11:02:14]  回复

    梦幻西游手游脚本大全

  • 三叶

    三叶  评论于 [2019-03-26 14:05:01]  回复

    2018梦幻互通版脚本挖图2018

  • 三叶

    三叶  评论于 [2019-03-26 14:10:28]  回复

    梦幻西游手游安卓版免费脚本精灵

  • 三叶

    三叶  评论于 [2019-03-26 14:11:38]  回复

    梦幻西游手游脚本

  • 资源网

    资源网  评论于 [2019-04-01 12:38:48]  回复

    按键精灵梦幻怎么写一键1级到20多级

  • 三叶网

    三叶网  评论于 [2019-04-21 17:36:48]  回复

    梦幻西游免费辅助脚本手机版2019

  • 三叶网

    三叶网  评论于 [2019-04-21 17:38:05]  回复

    梦幻西游按键精灵

  • 资源网

    资源网  评论于 [2019-04-29 11:07:53]  回复

    梦幻西游免费辅助脚本手机版2018

  • 编程源码

    编程源码  评论于 [2019-04-29 11:45:31]  回复

    按键精灵安卓梦幻西游脚本

  • 易飞扬

    易飞扬  评论于 [2019-04-29 12:47:14]  回复

    2018梦幻互通版脚本挖图2018

  • 易语言源码网站

    易语言源码网站  评论于 [2019-05-15 09:29:56]  回复

    【原创源码】【按键精灵】misaki手游梦幻西游一键40级脚本

  • 资源网

    资源网  评论于 [2019-05-17 09:27:02]  回复

    安卓梦幻西游手游脚本精灵

  • 资源网站

    资源网站  评论于 [2019-05-17 10:25:26]  回复

    梦幻西游手游按键精灵脚本

    • 访客

      访客  评论于 [2020-05-04 16:45:53]  回复

      兔兔我默默啦啦啦啦

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
QQ空间协议16进制转10进制WebUI文本型多线程注册无水印解析JS检测代理IP勒索病毒社会网络劲舞团二值化软件源码OEM信息阿里云oss分片上传公众号短链接拖放对象模块找色画CPU折线图易语言对接猫池源码
最新评论