android 的函数调用,安卓版在函数内部调用子程序，子程序如何能得到函数过程中得到的变量 _ 按键精灵手机版 - 按键精灵论坛...

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