全网最稳最低价下单平台 (低价下单|全智能安卓按键精灵开源代码！|闲鱼捡漏扫货脚本)
添加微信好友。 免费测试。
复制微信号
之前给客户定制的，配置就是可以在最新颁布区识别低价商品，合乎多少钱条件的智能下单这么一个成果，省的人工一个个去看多少钱。
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*5ShowMessage ReadUIConfig("输入框11", 10000)机器码2=ReadUIConfig("输入框11", 10000)TracePrint 机器码1If Int(机器码2) = Int(机器码1) ThenTracePrint "条件判别合乎被经过!!"Call File.Write("/sdcard/解锁OK.txt","我爱星河开发")ShowMessage "祝贺您成功解锁闲鱼扫货!", 3000, 350, 350End If
End Function
//进入机器码判别
Dim 文件门路="/sdcard/解锁OK.txt"
If Dir.Exist(文件门路) =0 ThenShowMessage "未激活，不可启动扫货操作", 3000, 350, 350Delay 3000
//进入机器码判别
If Dir.Exist(文件门路) = 0 Then //调试区域
FW.SetText("文字","祝贺您！已激活终身版")//Tap 80, 267//Delay 200//Tap 115,666
Tap 215, -69
Delay 1500FW.SetText("文字","正在展现最新颁布区商品...")For i = 1 To 999999999999Delay 检测速度
FW.SetText("文字","预备点击第："&i&"个商品")
//点击包邮
Dim intX1,intY1FindPic 0,0,0,0,"Attachment:包邮.png","000000",0,0.9,intX1,intY1If intX1 > -1 And intY1 > -1 ThenTracePrint intX1TracePrint intY1Tap intX1+20, intY1//进入商品界面Delay 1200FW.SetText "文字", "已进入商品界面，预备剖析条件"
Dim intX,intYFindPic 0,0,0,0,"Attachment:我想要.png","000000",0,0.8,intX,intYIf intX > -1 And intY > -1 ThenTracePrint intXTracePrint intY//不可识别视频Dim intXsp,intYspFindPic 0,0,0,0,"Attachment:视频.png","000000",0,0.5,intXsp,intYspIf intXsp > -1 And intYsp > -1 ThenTracePrint intXspTracePrint intYspKeyPress "Back"Delay 500Swipe intX1,intY1, intX1,241, 1000End If//不可识别视频If intXsp = -1 Then
//识别字体
SetRowsNumber(0)TracePrint SetDictEx(0, "Attachment:mq_soft.txt")TracePrint UseDict(0)//以上两句脚本只有要调用一次性Dim ocrcharocrchar=Ocr(21,276,248,387,"4444FF",0.9)Traceprint ocrchar呵呵=ocrcharIf 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呵呵= ocrcharTraceprint 呵呵End If//识别字体判别多少钱 = Int(呵呵)TracePrint "多少钱"&判别多少钱
FW.SetText "文字", "以后商品多少钱为：" & 呵呵 & "元"&" ---监控价："&多少钱FW.SetText "文字1", "以后商品多少钱为：" & 呵呵 & "元"&" 低价："&多少钱&"元"&"-" &"低价："&最低多少钱&"元"
//判别多少钱
If Int(多少钱) < Int(判别多少钱) ThenFW.SetText "文字", "以后商品多少钱不合乎预约的商品价，预备切换下一款商品"KeyPress "Back"Delay 500
End If//判别多少钱
//判别多少钱If Int(多少钱) >= Int(判别多少钱) Then
FW.SetText "文字", "预备要进入聊天界面，预备下单吧..."If Int(判别多少钱) > Int(最低多少钱) Then//选用钉钉If 选用结果["选用形式"] = 1 ThenShowMessage "钉钉转发"Vibrate 3000FW.SetText "文字", "预备要进入聊天界面，预备下单吧..."
Tap 600,91Delay 1500Swipe 448, 764, 166, 769, 500Dim intXdd,intYddFindPic 0,0,0,0,"Attachment:找到钉钉.png","000000",0,0.9,intXdd,intYddIf intXdd > -1 And intYdd > -1 ThenTracePrint intXddTracePrint intYddTap intXdd, intYddDelay 1500Tap 176, 523Delay 1000InputText "以后商品多少钱："&判别多少钱&"元"
Dim intXfs,intYfsFindPic 0,0,0,0,"Attachment:发送.png","000000",0,0.9,intXfs,intYfsIf intXfs > -1 And intYfs > -1 ThenTracePrint intXfsTracePrint intYfsTap intXfs, intYfsDelay 1000RunApp "com.taobao.idlefish"Delay 1000KeyPress "Back"Delay 1000End IfEnd If
//选用钉钉
//下单不付款If 选用结果["选用形式"] = 0 Then
ShowMessage "收藏砍价"
//收藏Dim intXsc,intYscFindPic 0,0,0,0,"Attachment:收藏.png","000000",0,0.9,intXsc,intYscIf intXsc > -1 And intYsc > -1 ThenTracePrint intXscTracePrint intYscTap intXsc, intYscDelay 1000
End If//收藏//砍价Dim intXwxy,intYwxyFindPic 0,0,0,0,"Attachment:我想要.png","000000",0,0.9,intXwxy,intYwxyIf intXwxy > -1 And intYwxy > -1 ThenTracePrint intXwxyTracePrint intYwxyTap intXwxy, intYwxyDelay 2000Tap 194, 1123Delay 50InputText "您好，请问"&砍价多少钱&"元卖不，请回复一下！"//点击发送按钮Delay 1000Dim intXfshs,intYfshsFindPic 0,0,0,0,"Attachment:发送话术.png","000000",0,0.9,intXfshs,intYfshsIf intXfshs > -1 And intYfshs > -1 ThenTracePrint intXfshsTracePrint intYfshsTap intXfshs,intYfshsDelay 1000KeyPress "Back"Delay 1000KeyPress "Back"Delay 1000KeyPress "Back"Delay 1000
End If//点击发送按钮
//假设没有产生发送按钮则前往
If intYfshs = -1 ThenKeyPress "Back"Delay 1000KeyPress "Back"Delay 1000End If
//假设没有产生发送按钮则前往
//砍价
End If//下单不付款
//判别多少钱假设低于预约多少钱
If Int(判别多少钱) < Int(最低多少钱) ThenKeyPress "Back"Delay 500End If//经过判别表白式的取值，来口头前面的举措或控制
//判别多少钱假设低于预约多少钱
End If//判别多少钱
End If
End If//进入商品界面
//能否为闲鱼界面If intX = -1 ThenFW.SetText "文字", "非闲鱼页面，预备前往"KeyPress "Back"Delay 500Swipe intX1,intY1, intX1,241, 1000Delay 500End If//能否为闲鱼界面
End If//假设没有找到包邮就继续换FW.SetText "文字", "未找到商品，正在切换数据..."Swipe 366,1081, 361,511, 1000
//假设没有找到包邮就继续换
NextEnd If
