总有问全分辨率(无视分辨率)的脚本怎么写,通常我们就是获取界面的xml,然后在提取里面想要的内容。
1、获取界面xml(注:不是所有的界面都可以获取的xml)
import “shanhai.lua”
Dim _xml=shanhai.getuixml()
TracePrint _xml
2、xml内容简单分析
右键复制xml,然后粘贴到文本里面
把这一段代码复制到文本以后,用搜索功能ctrl+f,查找要找的东西。
3、提取xml的文字
import “shanhai.lua”
Dim _xml=shanhai.getuixml()
TracePrint _xml
dim content=shanhai.RegexFind(_xml,”text=””([^””]+)”)
For Each k In content
TracePrint k
Next
4、根据文字点击(比较常用)
import “shanhai.lua”
Dim _xml=shanhai.getuixml()
TracePrint _xml
Call click(“设置”)
Function click(n)
Dim xy=shanhai.regexfind(shanhai.findxmlkey(_xml,”text”,n,”bounds”),”%d+”)
If Len(xy(0)) = 0 Then
xy=shanhai.regexfind(shanhai.findxmlkey(_xml,”content-desc”,n,”bounds”),”%d+”)
End If
TracePrint xy(0),xy(1)
// Tap xy(0),xy(1)
End Function
5、点击包含指定文字的节点
比如 一段文字是“100人在看”,我们希望点击只要文字中含有“人在看”这几个字的节点。
import “shanhai.lua”
Dim _xml=shanhai.getuixml()
TracePrint _xml
dim content=shanhai.RegexFind(_xml,”text=””([^””]+)”)
For Each k In content
If InStr(1, k, “系统”)>0 Then
click(k)
End If
Next
Function click(n)
Dim xy=shanhai.regexfind(shanhai.findxmlkey(_xml,”text”,n,”bounds”),”%d+”)
If Len(xy(0)) = 0 Then
xy=shanhai.regexfind(shanhai.findxmlkey(_xml,”content-desc”,n,”bounds”),”%d+”)
End If
TracePrint xy(0),xy(1)
// Tap xy(0),xy(1)
End Function
本期教程就这些。