Import "shanhai.lua"
Dim UI_XML, XY, arrXY
// 获取当前界面的XML信息
UI_XML = shanhai.GetUIXml()
XY = FindXML(UI_XML, "社区")
If XY <> "" Then
arrXY = Split(XY,",")
TracePrint "社区按钮的坐标为:" & arrXY(0) & "x" & arrXY(1)
End If
Function FindXML(XML, key)
// 组合正则表达式
Dim pattern = "text=""" & key & """.-bounds=""%[([^%]]+)%]"
dim RegexArr = shanhai.RegexFind(XML,pattern)
If RegexArr(0) <> null Then
TracePrint "匹配到字符"
FindXML = RegexArr(0)
Else
TracePrint "未匹配到字符"
FindXML = ""
End If
End Function