之前帮客户开发的一个直播间、橱窗商品口令采集脚本，时间有点久啦~
放出给大家研究玩玩，如果你也学按键的话，可以参考一下！
因为着急交付，写法有点子潦草，大佬别笑话我哈哈蛤
Import zm.luae
Import jsdvip.luae
Import ShanHai.lua
Import Ym.mql
If jsdvip.StartServer() Then
TracePrint 恭喜你!!可以使用插件
Else
TracePrint 很遗憾!!!您的设备不支持jsd节点相关功能
End If
/*----------------------------------------------*/
Dim Ret,Info(),记录值=,商品标题,商品口令,已完成,标题坐标(),顶部坐标(),底部坐标(),中心坐标(),分割,下标,是否变动,进入采集区,执行条件,h,获取同级,商品标题数组,顶部坐标Y,底部坐标Y
h=Thread.Start(弹窗处理线程)
Call 主程序()
Thread.Stop(h)
Function 主程序()
Do
If jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/qig).desc(商品列表)) Then
Call 抖音直播数据采集()
ElseIf jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/fpa)) Then
Call 抖音橱窗数据采集()
ElseIf jsdvip.FindNode(By.text(销量)) and jsdvip.FindNode(By.text(价格)) and jsdvip.FindNode(By.text(综合)) Then
Call 快手商品页采集()
ElseIf jsdvip.FindNode(By.res(com.smile.gifmaker:id/skin_container)) Then
Call 快手直播页采集()
Else
ShowMessage 未检测到数据采集页面，请手动切换！
End If
Delay 100
Loop
End Function
Function 抖音直播数据采集()
判断新页面 (By.res(com.ss.android.ugc.aweme:id/qig).desc(商品列表))
Do
顶部坐标 = jsdvip.GetRect(By.res(com.ss.android.ugc.aweme:id/haj))
底部坐标 = jsdvip.GetRect(By.res(com.ss.android.ugc.aweme:id/rx_))
中心坐标 = jsdvip.GetPoint(By.res(com.ss.android.ugc.aweme:id/rx_))
If 顶部坐标 <> Null and 底部坐标 <> Null And 中心坐标 <> Null Then
Exit Do
Else
ShowMessage 获取坐标中~
End If
Loop
Do Until 执行条件 = true
Ret = jsdvip.FindNodeS(By.res(com.ss.android.ugc.aweme:id/tv_title),node)
If Ret Then
Info = jsdvip.GetNodeInfoAll(node)
If Info <> Null Then
For i = 1 To UBOUND(Info[1]) + 1
商品标题 = Info[1][i]
是否变动 = jsdvip.FindNode(By.text( & 商品标题 & ))
If InStr(1, 记录值, 商品标题) = 0 and 是否变动 Then
记录值 = 记录值 & ---- & 商品标题
TracePrint 商品标题
Call 位置计算(商品标题,顶部坐标[4],底部坐标[4], 100)
If 抖音直播进入商品页(商品标题)=True Then
商品口令 = 获取口令()
Call 保存口令(商品口令, 抖音橱窗数据-&DateTime.Format(%Y-%m-%d))
Call DY返回商品主页(By.res(com.ss.android.ugc.aweme:id/qig).desc(商品列表))
End If
ElseIf 是否变动 = Null Then
Exit For
End If
Next
End If
End If
If jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/qig).desc(商品列表)) Then
Call 抖音直播滑动(商品标题)
执行条件 = jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/wp4))
End If
Delay 100
Loop
End Function
Function 抖音橱窗数据采集()
Do
顶部坐标 = jsdvip.GetRect(By.res(com.ss.android.ugc.aweme:id/y6=))
底部坐标 = jsdvip.GetRect(By.res(com.ss.android.ugc.aweme:id/fpb))
中心坐标 = jsdvip.GetPoint(By.res(com.ss.android.ugc.aweme:id/fpb))
If 顶部坐标 <> Null and 底部坐标 <> Null And 中心坐标 <> Null Then
Exit Do
Else
ShowMessage 获取坐标中~
End If
Loop
Do Until 执行条件 = True
Ret = jsdvip.FindNodeS(By.res(com.ss.android.ugc.aweme:id/tye),node)
If Ret Then
Info = jsdvip.GetNodeInfoAll(node)
For i = 0 To UBOUND(Info[1])
jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/tye),i,nodetitle)
jsdvip.FindChlid(nodetitle, By.res(com.ss.android.ugc.aweme:id/ty0), newnode)
商品标题 = jsdvip.GetText(newnode, 0)
分割 = Split(商品标题, \n)
商品标题 = 分割[1]&分割[2]
If InStr(1, 记录值, 商品标题) = 0 and 商品标题 <> Then
记录值 = 记录值 & ---- & 商品标题
TracePrint 商品标题
Call DY位置计算 (i, 顶部坐标[4], 底部坐标[4], 150)
Call DY橱窗进入商品页(i)
商品口令 = 获取口令()
TracePrint 商品口令
Call 保存口令(商品口令, 抖音橱窗数据-&DateTime.Format(%Y-%m-%d))
Call DY返回商品主页(By.res(com.ss.android.ugc.aweme:id/fpm))
End If
Next
End If
Call DY橱窗滑动()
执行条件 = jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/fn8))
Loop
End Function
Function 抖音直播滑动(商品标题)
Dim 底部坐标(),盒高()
盒高 = jsdvip.GetRect(By.res(com.ss.android.ugc.aweme:id/jie))
If 盒高 <> null Then
TouchDown 盒高[3]/2, 盒高[4],1
TouchMove 盒高[3]/2, 盒高[2],1,1000
TouchUp 1
Else
ShowMessage 未获取到有效坐标
End If
End Function
Function 抖音直播进入商品页(商品标题)
Dim 坐标(),开始时间
jsdvip.Click (By.text( & 商品标题 & ))
开始时间 = TickCount()
Do
If jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/vbh)) Then //抖音分享点击
坐标 = jsdvip.GetPoint(By.res(com.ss.android.ugc.aweme:id/vbh))
If 坐标 <> Null Then
Tap 坐标[1] + 20, 坐标[2]
End If
ElseIf jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/abe)) Then //抖音商品页面进入
坐标 = jsdvip.GetRect(By.res(com.ss.android.ugc.aweme:id/abe))
If 坐标 <> Null Then
Swipe 坐标[1]+100, 坐标[2]-100, 坐标[1]+100, 坐标[2] - 600, 500
End If
ElseIf jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/sz-).text(复制链接))//复制链接
jsdvip.Click (By.res(com.ss.android.ugc.aweme:id/sz-).text(复制链接))
抖音直播进入商品页 = True
Exit Do
ElseIf jsdvip.FindNode(By.text(请勿离开直播间，否则抽奖资格失效)) Then//福袋抽奖
KeyPress Back
抖音直播进入商品页 = False
Call DY返回商品主页(By.res(com.ss.android.ugc.aweme:id/qig).desc(商品列表))
Exit Do
Else
If TickCount() - 开始时间 > 5000 Then
ShowMessage 超时返回
抖音直播进入商品页 = False
Exit Do
ElseIf jsdvip.GetText(By.clazz(android.widget.TextView).depth(14), 0) <> 商品标题 and jsdvip.GetText(By.clazz(android.widget.TextView).depth(14), 0) <>Null Then
ShowMessage 目标不匹配
Call DY返回商品主页(By.res(com.ss.android.ugc.aweme:id/qig).desc(商品列表))
Exit Do
End If
End If
Delay 100
Loop
End Function
Function DY位置计算(下标,顶部坐标Y,底部坐标Y,容错)
标题坐标 = jsdvip.GetPoint(By.res(com.ss.android.ugc.aweme:id/tye),下标)
If 标题坐标 <> Null Then
If 标题坐标[2] < 顶部坐标Y Then
TouchDown 中心坐标[1], 中心坐标[2],1
TouchMove 中心坐标[1], 中心坐标[2]+(顶部坐标Y-标题坐标[2])+容错,1,500
TouchUp 1
ElseIf 标题坐标[2] > 底部坐标Y Then
TouchDown 中心坐标[1], 中心坐标[2],1
TouchMove 中心坐标[1], 中心坐标[2]-(标题坐标[2]-底部坐标Y)-容错,1,500
TouchUp 1
End If
End If
End Function
Function DY橱窗滑动()
If 底部坐标 <> null and 顶部坐标 <> null Then
TouchDown 底部坐标[3] -250, 底部坐标[4] - 50, 1
TouchMove 顶部坐标[1], 顶部坐标[2]-50,1,1500
TouchUp 1
Else
Swipe(GetScreenX()/2,GetScreenY()/2,GetScreenX()/2,GetScreenY()/2-200,1000)
End If
End Function
Function DY橱窗进入商品页(下标)
Dim 坐标()
jsdvip.Click (By.res(com.ss.android.ugc.aweme:id/tye),下标)
Do
If jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/vbh)) Then //抖音分享点击
坐标 = jsdvip.GetPoint(By.res(com.ss.android.ugc.aweme:id/vbh))
If 坐标 <> Null Then
Tap 坐标[1]+20,坐标[2]
End If
ElseIf jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/sz-).text(复制链接)) Then
jsdvip.Click(By.res(com.ss.android.ugc.aweme:id/sz-).text(复制链接))
Exit Do
Else
ShowMessage 等待加载中
End If
Loop
End Function
Function DY返回商品主页(退出节点)
Do
If jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/iwc)) Then
jsdvip.Click (By.res(com.ss.android.ugc.aweme:id/iwc))//关闭分享
ElseIf jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/adt)) Then
jsdvip.Click (By.res(com.ss.android.ugc.aweme:id/adt))//详情页面返回
ElseIf jsdvip.FindNode(By.text(请勿离开直播间，否则抽奖资格失效)) Then//福袋抽奖
TracePrint By.text(一键发表评论)
KeyPress Back
ElseIf jsdvip.FindNode(退出节点) Then
Exit Do//商品主页退出
Else
ShowMessage 等待返回首页
End If
Loop
End Function
Function 快手商品页采集()
判断新页面 (By.text(价格))
判断新页面 (By.text(销量))
Do
顶部坐标 = jsdvip.GetRect(By.clazz(android.view.ViewGroup).pkg(com.smile.gifmaker).depth(35), 0)
顶部坐标Y = 顶部坐标[4]
// TracePrint 顶部坐标[1],顶部坐标[2],顶部坐标[3],顶部坐标[4]
底部坐标 = jsdvip.GetRect(By.clazz(android.widget.FrameLayout).pkg(com.smile.gifmaker).depth(8), 3)
If 底部坐标 = null Then
底部坐标 = jsdvip.GetRect(By.clazz(android.view.ViewGroup).pkg(com.smile.gifmaker).depth(35), 1)
// TracePrint 底部坐标[1],底部坐标[2],底部坐标[3],底部坐标[4]
底部坐标Y=底部坐标[4]
Else
底部坐标Y=底部坐标[2]
// TracePrint 底部坐标[1],底部坐标[2],底部坐标[3],底部坐标[4]
End If
中心坐标 = jsdvip.GetPoint(By.res(com.smile.gifmaker:id/krn_content_container))
// TracePrint 中心坐标[1],中心坐标[2]
If 顶部坐标 <> Null and 底部坐标 <> Null And 中心坐标 <> Null Then
Exit Do
Else
ShowMessage 获取坐标中~
End If
Loop
Do Until 执行条件 = True
商品标题数组 = 快手商品页取所有标题()
If UBOUND(商品标题数组) <> 0 Then
For i = 1 To UBOUND(商品标题数组)
商品标题 = 商品标题数组[i]
If InStr(1, 记录值, 商品标题) = 0 and IsNumeric(Right(商品标题,Len(商品标题)-1)) = False Then
TracePrint 商品标题
Call 位置计算(商品标题,顶部坐标Y,底部坐标Y,150)
进入采集区 = 进入商品页(商品标题)
If 进入采集区 = true Then
Delay 500
商品口令 = 获取口令()
Call 保存口令(商品口令, 快手店铺数据- & DateTime.Format(%Y-%m-%d))
记录值 = 记录值 & ---- & 商品标题
Call 返回商品主页(By.text(综合).clazz(android.widget.TextView))
Elseif 进入采集区 = False Then
Call 返回商品主页(By.text(综合).clazz(android.widget.TextView))
End If
End If
Next
End If
// Ret = jsdvip.FindNodeS(By.depth(42).clazz(android.widget.TextView), node)
// TracePrint Ret
// If Ret Then
// Info = jsdvip.GetNodeInfoAll(node)
// TracePrint Info
// For i = 1 To UBOUND(Info[1]) + 1
// If jsdvip.FindLv(By.text( & Info[1][i] & ).depth(42), 0, node1)=True Then
// 商品标题 = jsdvip.GetText(node1,0)
// If InStr(1, 记录值, 商品标题) = 0 and IsNumeric(Right(商品标题,Len(商品标题)-1)) = False Then
// TracePrint 商品标题
// Call 位置计算(商品标题,顶部坐标[4],底部坐标[4],150)
// 进入采集区 = 进入商品页(商品标题)
// If 进入采集区 = true Then
// Delay 500
// 商品口令 = 获取口令()
// Call 保存口令(商品口令, 快手店铺数据- & DateTime.Format(%Y-%m-%d))
// 记录值 = 记录值 & ---- & 商品标题
// Call 返回商品主页(By.text(商品).clazz(android.widget.TextView))
// Elseif 进入采集区 = False Then
// Call 返回商品主页(By.text(商品).clazz(android.widget.TextView))
// End If
// End If
// End If
// Next
// End If
Call 快手店铺滑动(商品标题)
执行条件 = jsdvip.FindNode(By.text(没有更多内容啦).depth(35))
Loop
End Function
Function 快手直播页采集()
判断新页面 (By.res(com.smile.gifmaker:id/skin_container))
Do
顶部坐标 = jsdvip.GetRect(By.res(com.smile.gifmaker:id/view_pager_container))
底部坐标 = jsdvip.GetRect(By.res(com.smile.gifmaker:id/view_pager_container))
中心坐标 = jsdvip.GetPoint(By.res(com.smile.gifmaker:id/view_pager_container))
If 顶部坐标 <> Null and 底部坐标 <> Null And 中心坐标 <> Null Then
Exit Do
Else
ShowMessage 获取坐标中~
End If
Loop
Do Until 执行条件 = True
Ret = jsdvip.FindNodeS(By.depth(25).clazz(android.widget.TextView),node)
If Ret Then
Info = jsdvip.GetNodeInfoAll(node)
For i = 1 To UBOUND(Info[1]) + 1
If Info[1][i] <> 看讲解 And Info[1][i] <> 讲解中 And Info[1][i] <> 求讲解 And IsNumeric(Info[1][i]) = false Then
商品标题 = Info[1][i]
If InStr(1, 记录值, 商品标题) = 0 Then
TracePrint 商品标题
Call 位置计算(商品标题, 顶部坐标[2], 底部坐标[4], 150)
进入采集区 = 进入商品页(商品标题)
If 进入采集区 = true Then
Delay 500
商品口令 = 获取口令()
TracePrint 商品口令
Call 保存口令 (商品口令, 快手直播数据- & DateTime.Format(%Y-%m-%d))
记录值 = 记录值 & ---- & 商品标题
Call 返回商品主页(By.res(com.smile.gifmaker:id/skin_container))
Elseif 进入采集区 = False Then
Call 返回商品主页 (By.res(com.smile.gifmaker:id/skin_container))
End If
End If
End If
Next
End If
Call 快手直播滑动 (商品标题)
执行条件 = jsdvip.FindNode(By.res(com.smile.gifmaker:id/no_more_tv).text(划到底了，赶快下单吧))
Loop
End Function
Function 快手店铺滑动(商品标题)
TracePrint 店铺采集滑动
If 底部坐标 <> Null And 顶部坐标 <> Null Then
TouchDown GetScreenX()/2, 底部坐标Y-50,1
TouchMove GetScreenX()/2, 顶部坐标Y+50,1,1000
TouchUp 1
End If
End Function
Function 快手直播滑动(商品标题)
TracePrint 直播采集滑动
If 底部坐标 <> Null And 顶部坐标 <> Null Then
TouchDown GetScreenX()/2, 底部坐标[4] - 10, 1
TouchMove GetScreenX()/2, 顶部坐标[2]-10,1,1000
TouchUp 1
End If
End Function
Function 进入商品页(商品标题)
Dim 坐标(), 点击进入=false,点击分享 = false, 详情页缩小 = false, 复制链接 = false, 商品回放 = false,newtitle
Do
If 点击进入 = false Then
If jsdvip.Click(By.text( & 商品标题 & )) Then
点击进入 = True
Else
进入商品页 = False
Exit Do
End If
End If
// If 商品回放 = false Then
If jsdvip.FindNode(By.res(com.smile.gifmaker:id/title_tv).text(商品讲解回放)) Then //有商品回放点击商品链接
TracePrint 商品讲解回放
If jsdvip.Click(By.text( & 商品标题 & )) = False Then
坐标 = jsdvip.GetPoint(By.clazz(android.widget.TextView).pkg(com.smile.gifmaker).depth(15), 2)
If 坐标 <> null Then
Tap 坐标[1], 坐标[2]
坐标 = null
End If
End If
//
// If jsdvip.Click(By.text( & 商品标题 & )) Then
// 商品回放 = True
// End If
End If
// End If
If 点击分享 = false Then
If jsdvip.FindNode(By.res(com.smile.gifmaker:id/share_btn_opaque)) Then //点击分享
If jsdvip.Click (By.res(com.smile.gifmaker:id/share_btn_opaque)) Then
点击分享 = True
End If
End If
End If
If 详情页缩小 = false And 点击分享 = false Then
If jsdvip.FindNode(By.res(com.smile.gifmaker:id/detail_V2_root_main_bottom_id)) Then //详情页缩小的要滑动一下
坐标 = jsdvip.GetRect(By.res(com.smile.gifmaker:id/detail_V2_root_main_bottom_id))
If 坐标 <> Null Then
Swipe 坐标[1] + 100, 坐标[2] - 100, 坐标[1] + 100, 坐标[2] - 600, 500
详情页缩小 = True
End If
ElseIf jsdvip.FindNode(By.res(com.smile.gifmaker:id/self_detail_bottom_bar_action_layout))//详情页缩小的要滑动一下
坐标 = jsdvip.GetRect(By.res(com.smile.gifmaker:id/self_detail_bottom_bar_action_layout))
If 坐标 <> Null Then
Swipe 坐标[1] + 100, 坐标[2] - 150, 坐标[1] + 100, 坐标[2] - 650, 500
详情页缩小 = True
End If
End If
End If
If 复制链接 = false and 点击分享 = True Then //复制链接
If jsdvip.FindNode(By.res(com.smile.gifmaker:id/title).text(复制链接)) Then
jsdvip.Click(By.res(com.smile.gifmaker:id/title).text(复制链接))
复制链接 = true
进入商品页 = True
Exit Do
End If
End If
ShowMessage 等待加载中
Loop
End Function
Function 位置计算(商品标题,顶部坐标Y,底部坐标Y,容错)
TracePrint 位置计算：,顶部坐标Y,底部坐标Y
标题坐标 = jsdvip.GetPoint(By.text( & 商品标题 & ))
If 标题坐标 <> Null Then
If 标题坐标[2] < 顶部坐标Y Then
TracePrint 太靠上了，下移一点
TouchDown 中心坐标[1], 中心坐标[2],1
TouchMove 中心坐标[1], 中心坐标[2]+(顶部坐标Y-标题坐标[2])+容错,1,500
TouchUp 1
ElseIf 标题坐标[2] > 底部坐标Y Then
TracePrint 太靠下了，上移一点
TouchDown 中心坐标[1], 中心坐标[2],1
TouchMove 中心坐标[1], 中心坐标[2]-(标题坐标[2]-底部坐标Y)-容错,1,500
TouchUp 1
End If
End If
End Function
Function 返回商品主页(退出节点)
Do
If jsdvip.FindNode(By.res(com.smile.gifmaker:id/back_btn_trans)) Then
jsdvip.Click (By.res(com.smile.gifmaker:id/back_btn_trans))//回放详情页返回
ElseIf jsdvip.FindNode(By.res(com.smile.gifmaker:id/title_tv).text(商品讲解回放)) Then
jsdvip.Click (By.res(com.smile.gifmaker:id/right_btn))//回放页面返回
ElseIf jsdvip.FindNode(By.res(com.smile.gifmaker:id/back_btn_opaque)) Then
jsdvip.Click(By.res(com.smile.gifmaker:id/back_btn_opaque))//无回放页面返回
ElseIf jsdvip.FindNode(退出节点) Then
Exit Do//商品主页退出
Else
ShowMessage 等待返回首页
End If
Loop
End Function
Function 获取口令()
Dim 商品口令
商品口令 = Sys.GetClipText()
If 商品口令 <> Then
获取口令() = 商品口令
Else
商品口令 = Dialog.InputBox(口令处理:)
获取口令() = 商品口令
End If
End Function
Function 保存口令(商品口令, 文件名)
Dim 文件路径,是否存在
文件路径 = /sdcard/AnjianPdata/ & 文件名 & .txt
是否存在 = Dir.Exist(文件路径)
If 是否存在 = 2 Then
zm.FileCreate(文件路径)
ElseIf 是否存在 = 0 Then
zm.DirCreate(/sdcard/AnjianPdata/)
zm.FileCreate(文件路径)
End If
zm.FileWriteAppend(文件路径, 商品口令)
End Function
Function 判断新页面(节点)
Do
If jsdvip.FindNode(节点) Then
判断新页面 = True
Exit Do
ElseIf jsdvip.FindNode(By.res(com.ss.android.ugc.aweme:id/hdl)) Then
jsdvip.Click (By.res(com.ss.android.ugc.aweme:id/hdl))//抖音关闭直播小窗体
Else
ShowMessage 等待新页面
End If
Loop
End Function
Sub 弹窗处理线程()
dim 运行条件
jsdvip.StartServer()
Do
If jsdvip.FindNode(By.text(口令处理
) Then
If jsdvip.LongClick(By.clazz(android.widget.EditText), 2000) Then
If jsdvip.Click(By.clazz(android.widget.TextView).text(粘贴)) Then
Delay 500
jsdvip.Click (By.clazz(android.widget.Button).text(确定))
End If
End If
End If
Delay 100
Loop
End Sub
Function 快手商品页取所有标题()
dim Kxml,前特征文本,后特征文本,标题文本串
Kxml = jsdvip.GetUIXml()
Kxml = Replace(Kxml,\r\n,)
前特征文本 = >& <node index=&&0&& text=&
后特征文本 = & resource-id=&&& class=&&android.widget.TextView
商品标题数组 = ym.取所有中间文本(Kxml,前特征文本,后特征文本)
For i = 0 To UBOUND(商品标题数组)
If 商品标题数组[i] <> and InStr(1, 商品标题数组[i], )=0 Then
标题文本串 = 商品标题数组[i] & ---- & 标题文本串
End If
Next
快手商品页取所有标题 = Split(标题文本串,----)
End Function