【闲鱼XML商品检测捡漏】获取界面XML元素，按键精灵源码

主要一个功能就是获取闲鱼界面的XML界面元素，可能会包括商品标题、价格，已经其它的一些信息...用的是shanhai插件，可以获取当前界面的xml信息，想要学习这方面知识的可以研究一下这个源码，然后它还能进行tcp通信，把在安卓端提取到的xml信息发送到服务端，源码我已经写好了，感兴趣的自己在雷电模拟器测试运行一下。

Dim 脚本名称,返回的命令
脚本名称 = "星辰闲鱼秒拍【注册卡版】v1.2"

'创建一个名称为脚本名称的布局控件
TracePrint UI.Newlayout (脚本名称) 
'添加一个名称为"文字框1"，初始内容为"姓名："的文字框控件
TracePrint UI.AddEditText(脚本名称, "输入框1", "3000",500,100) 
 TracePrint UI.NewRow(脚本名称, "" )
TracePrint UI.AddEditText(脚本名称, "输入框2", "192.168.1.3",500,100)

 TracePrint UI.NewRow(脚本名称, "" )

TracePrint UI.AddButton(脚本名称, "按钮2", "点我连接主机") 
TracePrint UI.AddButton(脚本名称, "按钮1", "设置读取毫秒") 
TracePrint UI.SetOnClick("按钮1", 控件点击事件)
TracePrint UI.SetOnClick("按钮2", 连接主机)

'显示名称为：脚本名称 的布局控件
TracePrint UI.Show (脚本名称)

 Dim a,b

 Function 连接主机()

  b = UI.GetText("输入框2")
  ShowMessage "正在连接主机..."

Import "socket.lua"

// 链接主机服务器
socket.CliendConnect(b, "12345") 

Import "shanhai.lua"

End Function

Function 控件点击事件()

  a = UI.GetText("输入框1")

  TracePrint a
  TracePrint b

  TracePrint UI.Close(脚本名称)
ShowMessage "启动检测脚本..."
Delay 2000

End Function

//循环开始

For i = 1 To 200000
//初始化最新发布
Dim intXzh,intYzh
FindPic 0,0,0,0,"Attachment:综合.png","000000",0,0.9,intXzh,intYzh
If intXzh > -1 And intYzh > -1 Then
    TracePrint intXzh
    TracePrint intYzh
    Tap intXzh, intYzh
    Delay 1500
    Tap 78,662

End If
//初始化最新发布
//综合异常后
Dim intX3ych,intY3ych
FindPic 0,0,0,0,"Attachment:异常后综合.png","000000",0,0.9,intX3ych,intY3ych
If intX3ych > -1 And intY3ych > -1 Then
    TracePrint intX3ych
    TracePrint intY3ych
    Tap intX3ych, intY3ych
    Delay 1000
    Tap 78,662
End If
//综合异常后

  TracePrint b

  Delay a

  TracePrint a

//获取界面xml信息

Dim _xml=shanhai.getuixml()
//写入文本信息（路径，内容）
Call File.Write("/sdcard/Pictures/xianyu.txt",_xml)
//读取文本信息（路径）
Dim 数据返回
数据返回=File.Read("/sdcard/Pictures/xianyu.txt")
TracePrint 数据返回

 Call socket.ClientSend(数据返回)

 ShowMessage "正在向电脑发送商品数据..."
    //接收数据

     //进入商品搜索刷新

Dim intX,intY
FindPic 0,0,0,0,"Attachment:最新发布2.png","000000",0,0.9,intX,intY
//检测是否处于闲鱼界面

    i = intX
    TracePrint intX
If i = -1 Then  
    //满足条件，执行下面的脚本  
  ShowMessage "当前没有处于闲鱼的搜索界面，请检测..."

End If

//检测是否处于闲鱼界面结束  

If intX > -1 And intY > -1 Then
    TracePrint intX
    TracePrint intY

    Tap intX,intY
Delay 1000
//点击最新发布
Dim intX3,intY3
FindPic 0,0,0,0,"Attachment:最新发布3.png","000000",0,0.9,intX3,intY3
If intX3 > -1 And intY3 > -1 Then
    TracePrint intX3
    TracePrint intY3
    Tap intX3, intY3
ShowMessage "正在刷新闲鱼最新商品数据..."
Delay 2000

Swipe 358,1173, 357,315,1000
Delay 1000
_xml=shanhai.getuixml()
TracePrint _xml

 Call socket.ClientSend(数据返回)

 ShowMessage "正在向电脑发送商品数据..."
Delay 1000
End If

//点击最新结束

//判断是否进入验证码
Dim intX2,intY2
FindPic 0,0,0,0,"Attachment:休息会.png","000000",0,0.9,intX2,intY2
If intX2 > -1 And intY2 > -1 Then
    TracePrint intX2
    TracePrint intY2

    Swipe 147,834, 659,827
Delay 3000

End If

//判断是否进入验证码

End If

      //进入商品搜索【结束】

    //判断是否刷新异常
Dim intX3sx,intY3sx
FindPic 0,0,0,0,"Attachment:刷新异常.png","000000",0,0.9,intX3sx,intY3sx
If intX3sx > -1 And intY3sx > -1 Then
    TracePrint intX3sx
    TracePrint intY3sx
    Tap intX3sx, intY3sx
Delay 2000
End If

//判断是否刷新异常

Next