部落冲突自动采集资源源码

Dim _ResourcesColor(),DrawScreen()

'---------------------------资源颜色------------------------------

Dim _ResourcesPoint = Array(9,163,583,1102)'资源查找范围坐标

_ResourcesColor(0) = Array(“3CD3EF”,“3|0|37C3E7,4|-2|57E6EF,2|-5|55EAF1,4|-12|A9D3CE,-5|-10|7FBFB2,-5|6|7FBFB6,8|6|B6DAD7”)'金币

_ResourcesColor(1) = Array(“D84DE8”,"-2|-4|C04AC3,1|-6|C046CB,6|-3|E92EF0,8|-9|B8DCD1,8|6|B8DCD4,-4|6|80C0B6,-5|-11|7BBCB1")'圣水

_ResourcesColor(2) = Array(“513648”,“0|-4|301A25,2|-4|402838,6|-1|694C60,9|-8|B8DAD7,-4|-8|7CBCB0,-7|-1|73B8B0,-2|7|85C0B8”)'黑油

'------------------------划动坐标------------------------------------

DrawScreen(0) = Array(351, 629, 230, 629, 200)'往上划

DrawScreen(1) = Array(230, 629, 450, 629, 200)'往下划

DrawScreen(2) = Array(450, 629, 330, 629, 200)'划回原坐标

'----------------------------点击函数-----------------------------------

Function _FindResourcesColor(ResPoint,ResColor)'查找资源并点击

Dim ArrColor,intX, intY

SetScreenScale 720,1280

For i = 0 To UBOUND(ResColor)

ArrColor = ResColor(i)

Do

FindMultiColor ResPoint(0),ResPoint(1),ResPoint(2),ResPoint(3), ArrColor(0), ArrColor(1), 1, 0.9, intX, intY

If intX > -1 Then

Tap intX, intY

Delay 100

End If

Delay 20

Loop Until intX = -1

Next

ResetScreenScale

End Function

'----------------------------调用函数-----------------------------------

For Each n In DrawScreen

Swipe n(0), n(1), n(2), n(3), n(4)

Delay 500

_FindResourcesColor(_ResourcesPoint,_ResourcesColor)'查找资源并点击

如果觉得《部落冲突自动采集资源源码》对你有帮助，请点赞、收藏，并留下你的观点哦！