【星辰闲鱼商品捡漏工具】按键精灵源码，低价识别下单

其实这款脚本运行逻辑也非常简单，就是通过ocr识别读取在闲鱼客户端搜索的商品列表价格，然后程序会对比软件预算设置好的价格参数，符合价格条件的会自动下单，进行这么一个操作，但是有时候检测的商品多了会出现验证码，这个问题大家可以重新优化一下，我这边也只是提供的脚本的一个基本框架而已，运行效果的话相比人工去检测价格肯定要高很多倍，毕竟是自动化运行还能多开操作。
界面源码:

界面1:
{
        激活页面(检测速度不建议快):
        {
                输入框:
                {
                        名称:"输入框11",
                        提示内容:"提示用户应该输入什么内容",
                        初始文本:"请输入您的激活码！",
                        仅输入数字:false,
                        密码:false,
                        文字大小:0,
                        最大输入长度:0,
                        高度:0,
                        宽度:0,
                        注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
                },        
                按钮:
                {
                        名称:"按钮1",
                        显示内容:"获取机器码",
                        点击响应:"子程序",
                        文字大小:0,
                        高度:0,
                        宽度:0,
                        注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
                },        

        },        

}

核心代码：

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+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

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