闲鱼捡漏扫货脚本，低价下单，全自动安卓按键精灵开源代码！-526互联

之前给客户定制的，功能就是可以在最新发布区识别低价商品，符合价格条件的自动下单这么一个效果，省的人工一个个去看价格。

UI界面：

UI界面代码：

=====================================================

界面1:

{
激活页面(检测速度不建议快):

{
输入框:

{
名称:"输入框11",

提示内容:"提示用户应该输入什么内容",

初始文本:"请输入您的激活码！",

仅输入数字:false,

密码:false,

文字大小:0,

最大输入长度:0,

高度:0,

宽度:0,

注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"

按钮:

{
名称:"按钮1",

显示内容:"获取机器码",

点击响应:"子程序",

文字大小:0,

高度:0,

宽度:0,

注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"

}

===========================================================

脚本代码：

==========================================================

Dim 脚本名称,选择结果,返回的命令,_xml,价格,延时,循环次数,呵呵,判断价格,砍价价格,结果,最低价格,检测速度
脚本名称 = "xkrj5.com 开源版！"

'创建一个名称为脚本名称的布局控件
TracePrint UI.Newlayout (脚本名称)
'添加一个名称为"文字框1"，初始内容为"姓名："的文字框控件
//TracePrint UI.AddTextView(脚本名称, "文字框1", "商品关键词：")

//TracePrint UI.AddEditText(脚本名称, "输入框1", "已废弃，请先手动搜索",400,100)
TracePrint UI.NewRow(脚本名称, "" )

TracePrint UI.AddTextView(脚本名称, "文字框2", "置最高价格：")

TracePrint UI.AddEditText(脚本名称, "输入框3", "100",130,100)
TracePrint UI.AddTextView(脚本名称, "文字框2", "最低价：")
TracePrint UI.AddEditText(脚本名称, "输入框5", "50",130,100)

TracePrint UI.NewRow(脚本名称, "" )
TracePrint UI.AddTextView(脚本名称, "文字框5", "置延迟时间：")
TracePrint UI.AddEditText(脚本名称, "输入框2", "2000",300,100)
TracePrint UI.AddTextView(脚本名称, "文字框6", "（毫秒）")
TracePrint UI.NewRow(脚本名称, "" )
TracePrint UI.AddTextView(脚本名称, "文字框5", "置最低砍价：")
TracePrint UI.AddEditText(脚本名称, "输入框9", "100元",300,100)
TracePrint UI.AddTextView(脚本名称, "文字框6", "（元）")
TracePrint UI.NewRow(脚本名称, "" )

TracePrint UI.AddRadioGroup(脚本名称,"选择方式",{"收藏砍价", "钉钉转发"},0)
TracePrint UI.NewRow(脚本名称, "" )

TracePrint UI.AddButton(脚本名称, "按钮2", "初始化扫货")
TracePrint UI.AddButton(脚本名称, "按钮1", "解锁软件")

TracePrint UI.SetOnClick("按钮2", 初始化数据)
TracePrint UI.SetOnClick("按钮1", 激活软件)
'显示名称为：脚本名称的布局控件

//创建悬浮窗(数量上限32个)
FW.NewFWindow("悬浮窗1",0,56,600,200)
FW.AddTextView("悬浮窗1", "文字", "欢迎使用星辰闲鱼扫货监控,祝老板发大财...", 0, 0, 500, 100)
FW.SetTextColor("文字","0000FF")
FW.AddTextView "悬浮窗1", "文字1", "初始化数据", 0, 60, 500, 100

FW.SetTextColor "文字1", "DF0997"
FW.SetTextSize("文字1", 19)

//显示悬浮窗
FW.Show("悬浮窗1")
//无限循环等待，脚本停止后，浮窗自动消失
FW.Opacity("悬浮窗1", 50)

TracePrint UI.Show (脚本名称)

Function 初始化数据()

Import "shanhai.lua"

价格= UI.GetText("输入框3")
砍价价格=UI.GetText("输入框9")
最低价格=UI.GetText("输入框5")

TracePrint UI.Close(脚本名称)
价格 = Int(价格)
最低价格 = Int(最低价格)
检测速度 = UI.GetText("输入框2")
选择结果= UI.GetValue("选择方式")
End Function

Function 激活软件()

Dim 机器码,机器码1,机器码2,编辑框
机器码=File.Read("/sdcard/解锁.txt")
机器码1 = 机器码 + 1995+7432+111+999-2+2222+32423+73824748*2*5
ShowMessage ReadUIConfig("输入框11", 10000)
机器码2=ReadUIConfig("输入框11", 10000)
TracePrint 机器码1
If Int(机器码2) = Int(机器码1) Then
TracePrint "条件判断符合被通过!!"
Call File.Write("/sdcard/解锁OK.txt","我爱星辰开发")
ShowMessage "恭喜您成功解锁闲鱼扫货!", 3000, 350, 350
End If

End Function

//进入机器码判断

Dim 文件路径="/sdcard/解锁OK.txt"

If Dir.Exist(文件路径) =0 Then
ShowMessage "未激活，无法进行扫货操作", 3000, 350, 350
Delay 3000

End If

//进入机器码判断

If Dir.Exist(文件路径) = 0 Then //调试区域

FW.SetText("文字","恭喜您！已激活永久版")
//Tap 80, 267
//Delay 200
//Tap 115,666

Tap 215, -69

Delay 2500

Delay 1500
FW.SetText("文字","正在展示最新发布区商品...")
For i = 1 To 999999999999
Delay 检测速度

FW.SetText("文字","准备点击第："&i&"个商品")

//点击包邮

Dim intX1,intY1
FindPic 0,0,0,0,"Attachment:包邮.png","000000",0,0.9,intX1,intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
TracePrint intY1
Tap intX1+20, intY1

//进入商品界面
Delay 1200
FW.SetText "文字", "已进入商品界面，准备分析条件"

Dim intX,intY
FindPic 0,0,0,0,"Attachment:我想要.png","000000",0,0.8,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
//无法识别视频
Dim intXsp,intYsp
FindPic 0,0,0,0,"Attachment:视频.png","000000",0,0.5,intXsp,intYsp
If intXsp > -1 And intYsp > -1 Then
TracePrint intXsp
TracePrint intYsp
KeyPress "Back"
Delay 500
Swipe intX1,intY1, intX1,241, 1000
End If
//无法识别视频

If intXsp = -1 Then

//识别字体

SetRowsNumber(0)
TracePrint SetDictEx(0, "Attachment:mq_soft.txt")
TracePrint UseDict(0)
//以上两句脚本只需要调用一次
Dim ocrchar
ocrchar=Ocr(21,276,248,387,"4444FF",0.9)
Traceprint ocrchar
呵呵=ocrchar
If UTF8.InStr(1, ocrchar, ",")>0 Then

结果 = UTF8.InStr(1, ocrchar, ",")
TracePrint 结果
呵呵= UTF8.Left(ocrchar, 结果-1)
Traceprint 呵呵
ElseIf UTF8.InStr(1, ocrchar, ".") > 0 Then
结果 = UTF8.InStr(1, ocrchar, ".")
TracePrint 结果
呵呵 = UTF8.Left(ocrchar, 结果 - 1)
Traceprint 呵呵
Else
呵呵= ocrchar
Traceprint 呵呵
End If

//识别字体
判断价格 = Int(呵呵)
TracePrint "价格"&判断价格

FW.SetText "文字", "当前商品价格为：" & 呵呵 & "元"&" ---监控价："&价格
FW.SetText "文字1", "当前商品价格为：" & 呵呵 & "元"&" 高价："&价格&"元"&"-" &"低价："&最低价格&"元"

//判断价格

If Int(价格) < Int(判断价格) Then

FW.SetText "文字", "当前商品价格不符合预定的商品价，准备切换下一款商品"
KeyPress "Back"
Delay 500

End If
//判断价格

//判断价格
If Int(价格) >= Int(判断价格) Then

FW.SetText "文字", "准备要进入聊天界面，准备下单吧..."

If Int(判断价格) > Int(最低价格) Then
//选择钉钉
If 选择结果["选择方式"] = 1 Then
ShowMessage "钉钉转发"
Vibrate 3000
FW.SetText "文字", "准备要进入聊天界面，准备下单吧..."

Tap 600,91
Delay 1500
Swipe 448, 764, 166, 769, 500

Dim intXdd,intYdd
FindPic 0,0,0,0,"Attachment:找到钉钉.png","000000",0,0.9,intXdd,intYdd
If intXdd > -1 And intYdd > -1 Then
TracePrint intXdd
TracePrint intYdd
Tap intXdd, intYdd
Delay 1500
Tap 176, 523
Delay 1000
InputText "当前商品价格："&判断价格&"元"

Dim intXfs,intYfs
FindPic 0,0,0,0,"Attachment:发送.png","000000",0,0.9,intXfs,intYfs
If intXfs > -1 And intYfs > -1 Then
TracePrint intXfs
TracePrint intYfs
Tap intXfs, intYfs
Delay 1000
RunApp "com.taobao.idlefish"
Delay 1000

KeyPress "Back"
Delay 1000
End If
End If

End If

//选择钉钉

//下单不付款
If 选择结果["选择方式"] = 0 Then

ShowMessage "收藏砍价"

//收藏
Dim intXsc,intYsc
FindPic 0,0,0,0,"Attachment:收藏.png","000000",0,0.9,intXsc,intYsc
If intXsc > -1 And intYsc > -1 Then
TracePrint intXsc
TracePrint intYsc
Tap intXsc, intYsc
Delay 1000

End If
//收藏
//砍价
Dim intXwxy,intYwxy
FindPic 0,0,0,0,"Attachment:我想要.png","000000",0,0.9,intXwxy,intYwxy
If intXwxy > -1 And intYwxy > -1 Then
TracePrint intXwxy
TracePrint intYwxy
Tap intXwxy, intYwxy
Delay 2000
Tap 194, 1123
Delay 50
InputText "您好，请问"&砍价价格&"元卖不，请回复一下！"
//点击发送按钮
Delay 1000
Dim intXfshs,intYfshs
FindPic 0,0,0,0,"Attachment:发送话术.png","000000",0,0.9,intXfshs,intYfshs
If intXfshs > -1 And intYfshs > -1 Then
TracePrint intXfshs
TracePrint intYfshs
Tap intXfshs,intYfshs
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000