总有问全分辨率（无视分辨率）的脚本怎么写，通常我们就是获取界面的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
本期教程就这些。
閱讀更多 按鍵精靈郭立員 的文章
