下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
有时候我们在闲鱼发了一个低价的优质商品，前手刚发，没过2秒就被别人给下单了，而且还直接付款了，真是把我的下巴都给惊掉了，后面我就开始研究这方面的协议和技术以及代码，终于发现了原来是有专用接口的，通过接口我们就能实现低价商品的监控以及条件筛选，符合条件的就自动进行下单，下单后还可以设定要不要付款这些参数，具体的功能我们已经写好了，大家看软件吧。
源码部分：
Dim 脚本名称,选择结果,返回的命令,_xml,价格,延时,循环次数,呵呵,判断价格,砍价价格,结果,最低价格,检测速度
脚本名称 = "星辰闲鱼扫货【支持下单】v 2.1"
'创建一个名称为脚本名称的布局控件
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+7382474825
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
End If
//点击发送按钮
//如果没有出现发送按钮则返回
If intYfshs = -1 Then
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
End If
//如果没有出现发送按钮则返回
End If
//砍价
End If
//下单不付款
End If
//判断价格如果低于预定价格
If Int(判断价格) < Int(最低价格) Then
KeyPress "Back"
Delay 500
End If
//通过判断表达式的取值，来执行后面的动作或控制
//判断价格如果低于预定价格
End If
//判断价格
End If
End If
//进入商品界面
//是否为闲鱼界面
If intX = -1 Then
FW.SetText "文字", "非闲鱼页面，准备返回"
KeyPress "Back"
Delay 500
Swipe intX1,intY1, intX1,241, 1000
Delay 500
End If
//是否为闲鱼界面
End If
//如果没有找到包邮就继续换
FW.SetText "文字", "未找到商品，正在切换数据..."
Swipe 366,1081, 361,511, 1000
//如果没有找到包邮就继续换
Next
End If
