Dim 脚本名称,选择结果,返回的命令,_xml,价格,延时,循环次数,呵呵,判断价格,结果,最低价格,检测速度
脚本名称 = "星空美团检测价格抢单工具v1.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.AddRadioGroup(脚本名称,"选择方式",{"直接抢", "待开发"},0)
TracePrint UI.NewRow(脚本名称, "" )
TracePrint UI.AddButton(脚本名称, "按钮2", "初始化抢单")
TracePrint UI.SetOnClick("按钮2", 初始化数据)
'显示名称为:脚本名称 的布局控件
//创建悬浮窗(数量上限32个)
FW.NewFWindow("悬浮窗1",0,56,600,100)
FW.AddTextView("悬浮窗1", "文字", "欢迎使用星辰美团抢单,祝老板发大财...", 0, 0, 500, 100)
FW.SetTextColor("文字","0000FF")
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("输入框5")
TracePrint UI.Close(脚本名称)
价格 = Int(价格)
最低价格 = Int(最低价格)
检测速度 = UI.GetText("输入框2")
选择结果= UI.GetValue("选择方式")
End Function
//进入机器码判断
For i = 1 To 999999999999
Swipe 338,326, 380,773,200
Delay 2000 //延时1000毫秒
//先检测是否出现帮送单子
Dim intX,intY
FindPic 0,0,0,0,"Attachment:帮送图标.png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
//如果出现帮送单子,继续检测是否有接单图标
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
ShowMessage "此条帮送单子可以接单,准备抢单"
Tap intX1,intY1
End If
//如果出现帮送单子,继续检测是否有接单图标
End If
//先检测是否出现帮送单子
//如果没有出现帮送单子,就继续刷新
If intY = -1 Then
ShowMessage "当前订单没有帮送单子,将继续刷新"
Swipe 338,326, 380,773,200
Tap 357, 1127
Delay 2000
End If
//如果没有出现帮送单子,就继续刷新
Next