Dim qukan="com.jifen.qukan"

Dim weizhi

Dim x,y

x=GetScreenX()

y = GetScreenY()

//RunApp qukan

//mytap(0.5,3/8)

Dim intX,intY

Dim tempc

Dim  dibu=0

dim c(4)

For 50

Delay 2000

紫猫_滑动 0.5 * x, 0.5 * y, 0.5 * x, 0.2 * y, 1000

Delay 500

mytap 0.5, 0.2

Delay  1000

For 500

 FindPic 0,0,0,0,"Attachment:greenkuai1.png","000000",0,0.9,intX,intY

If intX > -1 And intY > -1 Then

Tap intX, intY

Delay 1000

End If

For i = 0 To 4

 c(i)=GetPixelColor(0.5*x, (i+1)*y/6)

Next

 紫猫_滑动 0.5 * x, 0.5 * y, 0.5 * x, 0.2 * y, 1000

 Delay 2000

FindPic 0,0,0,0,"Attachment:dibu.png","000000",0,0.9,intX,intY

If intX > -1 And intY > -1 Then

Exit for

Delay 1000

End If

dibu=1

For i = 0 To 4

tempc = GetPixelColor(0.5 * x, (i + 1) * y / 6)

If tempc <> c(i) Then 

dibu = 0

Exit For

End If

Next

If dibu = 1 Then 

Exit for

End If

Next

mytap(0.05,0.05)

Delay 1000

Next

//mytap(0.05,0.05)

//TouchMove X坐标, Y坐标

//Swipe 0.5*x, 0.5*y, 0.25*x, 0.55*y,1000

//紫猫_滑动 0.5*x, 0.5*y, 0.5*x, 0.3*y,1000

Function 紫猫_滑动(起点x, 起点y, 终点x, 终点y, 滑动耗时)

TouchDownEvent 起点x, 起点y, 1

For i=起点y to 终点y step -3

TouchMoveEvent 终点x, i, 1, 8

//TracePrint i

next

TouchUpEvent 1

End Function

Function tapXiaBian(weizhi)

Dim x,y,intX,intY

x=GetScreenX()

y = GetScreenY()

FindColor x*0.666,y*0.9,x,y,"2A3BF0",0,0.9,intX,intY

If intX > -1 And intY > -1 Then 

If weizhi = 4 Then 

tapXiaBian = 1

Exit Function

End If

intY = (intY + y) / 2

   If weizhi=0 then

Tap x-intX, intY

ElseIf weizhi = 1 Then

Tap x / 2, intY

Else 

Tap intX, intY

TracePrint intX

End If

TracePrint weizhi

End If

tapXiaBian = 0

End Function

//点击左上角，返回

Function mytap(myx,myy)

Dim x,y,intX,intY

x=GetScreenX()

y = GetScreenY()

intX = myx * x

intY = myy * y

Tap intX,intY

End Function

测试手机 小米3  交流微信 18634577636