王者荣耀循环刷冒险源码

bdw

Function 冒险_挑战

      Dim i=0

      Do



              KeepCapture



              If CmpColorEx("132|928|FFFFFF,137|909|335C75,166|992|AFF3F3,135|968|C1CDD8,148|942|7692A2",0.9) = 1 Then

                    TracePrint "发现闯关按钮"

                    范围点击 119,918,153,998

              End If



              If CmpColorEx("693|1205|FBEFDD,705|1233|72502F,680|1241|B99F86,691|1242|FBEFDD,686|1180|C8864C",0.9) = 1 Then

                    TracePrint "发现跳过按钮"

                    范围点击 681,1204,700,1245

              End If



              If CmpColorEx("677|1170|FDCC37,695|1200|E1D7A2,679|1198|FFC83B,689|1179|FDFDFD,694|1167|FFFFFE",0.9) = 1 Then

                    TracePrint "发现自动战斗按钮处于启动"

                    Delay 1000

              elseIf CmpColorEx("677|1172|E2BC27,677|1197|E7B42C,690|1179|FDFDFD,694|1200|DBD1A1,695|1199|EEEECC", 0.9) = 1 Then

                    TracePrint "发现自动战斗按钮处于关闭"

                    范围点击 683,1166,700,1201

                    Delay 1000

              End If

      

              If CmpColorEx("83|569|FFFFFF,74|715|FFFFFF,483|388|612716,623|639|F4F457,665|353|2A1611",0.9) = 1 Then

                    TracePrint "发现闯关结束"

                    范围点击 52, 546, 110, 744

                    Delay 2000

                    i = i + 1

                    If i >= CInt(ReadUIConfig("闯关次数")) Then

                          For m = 10 To 1 Step -1

                                  ShowMessage "闯关次数完成，"