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

在 2018年5月16日2018年5月16日上张贴由杀死书生发表回复

资源介绍：

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

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

资源作者：

资源图片：

资源下载：

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