Function head()
Dim intX,intY
FindPic 169,863,319,1420,"Attachment:11.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
Delay 966
TracePrint intX//这里显示都对就是想把这个二个变量传到他们调用的子程序
TracePrint intY//这里显示都对
Thread.SetShareVar"横坐标",intX
Thread.SetShareVar"纵坐标",intY
Delay 666
Tap intX + 200, intY + 30
Delay 999
Call que()
End If
Delay 666
Dim i
i=1
For i=1 to 10
TracePrint "循环中,i=" & i
TracePrint i
If 1 > intY Then
TracePrint "没有了"
Exit For
End If
If intY > 1334 Then
TracePrint "不走了"
Exit For
Else
TracePrint intY
FindPic 169,intY+40,319,1420,"Attachment:11.png","000000",0,0.8,intX,intY
If intY > 875 Then
TracePrint intX
TracePrint IntY
Delay 500
Tap intX + 200, intY + 30
Delay 500
Call que()
intY=intY+20
i = i + 1
TracePrint i
End If
Delay 666
End If
Next
End Function
Sub lai
Dim intX= Thread.GetShareVar("横坐标")
Dim intY= Thread.GetShareVar("纵坐标")
TracePrint intX//在子程序里,显示为空
TracePrint intY//在子程序里,显示为空
Delay 100
Tap intX + 200, intY + 30
Delay 500
Call que()
End Sub
Sub que()
Dim intX= Thread.GetShareVar("横坐标")
Dim intY= Thread.GetShareVar("纵坐标")
TracePrint intX//在子程序里,显示为空
TracePrint intY//在子程序里,显示为空
Delay 999
Tap 268, 282
Delay 6000
Dim rColor
rColor = GetPixelColor(67,149)
If rColor="19AD1A" Then
Delay 300
Tap 48, 99
Delay 999
Tap 48, 99
Call lai()
Else
Delay 300
Tap 48, 99
Delay 999
Tap 48, 99
End If
End Sub