[提问] 无限循环中内 存不断增加，如何解决 [复制链接]

Import "zm.luae" //导入插件,只需执行一次
zm.Init //初始化插件,只需执行一次

Dim ret
Do

ret=Null



ret = zm.FindPicEx("完成3.png|完成.png|完成1.png|完成2.png", 0.60)



If ret Then

TracePrint "图片找到了, 有以下几种方式遍历找到的坐标"


TracePrint "第1种:遍历数组方法"

For i = 0 to Ubound(ret)

TracePrint "图片序号:", ret(i, 0), " 坐标:", ret(i, 1), ret(i, 2)

Next


For i = 0 to Ubound(ret)

Tap ret(i, 1), ret(i, 2)

Next



Delay 5000


For i = 0 to Ubound(ret)

Tap ret(i, 1), ret(i, 2)

Delay 200

Tap 275,287

Next


Else

TracePrint "没有找到图片"

End If



Delay 5000
TracePrint zm.GetScriptMemory()
zm.CollectGarbage

Loop