'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,循环数量,商品ID
布局名称 = "抖音制定商品秒拍v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "进入抖音小黄车商品列表界面,然后将所拍商品排序到第一位,然后启动即可...","700","300")
'添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框2", "1","200","300")
'显示名称为:布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row_" )
'创建一个名称为"按钮1",标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "初始化数据")
'创建一个名称为"按钮1",标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "启动功能")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 启用功能)
TracePrint UI.Show (布局名称)
Function 点我初始化()
分割话术 =Split(ReadUIConfig("输入框1", 10000),"#")
TracePrint 分割话术(1)
End Function
Function 启用功能()
ShowMessage "脚本准备开始运作"
//要产生指定范围的随机整数,请使用以下公式:
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim a
a=UBound(分割话术)
Traceprint a
Randomize
随机值 = Int(((a-2+1) * Rnd()) + 1)
Traceprint 随机值
//开始自动打招呼
商品ID=UI.GetText("输入框2")
ShowMessage "请确保您当前处于抖音直播间的商品界面,否则软件会出错!"
TracePrint UI.Close(布局名称)
//循环打招呼开始
End Function
For i = 1 To 10
//这里的脚本可以循环10次
//找到去抢购图标,并点击
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, intY1
Delay 1500
//找到颜色分类,并点击第一个属性
Dim intX2,intY2
FindPic 0,0,0,0,"Attachment:颜色分类.png","000000",0,0.9,intX2,intY2
If intX2 > -1 And intY2 > -1 Then
TracePrint intX2
TracePrint intY2
Tap intX2, intY2 + 115
ShowMessage "已经选择属性了"
Delay 1000
Tap 528, 2131
Delay 3000
//找到提交订单,并点击
Dim intX4,intY4
FindPic 0,0,0,0,"Attachment:提交订单.png","000000",0,0.9,intX4,intY4
If intX4 > -1 And intY4 > -1 Then
TracePrint intX4
TracePrint intY4
Tap intX4, intY4
ShowMessage "已经点击一次提交订单按钮啦!"
Delay 1000
Tap intX4, intY4
ShowMessage "已经点击第二次了"
Delay 1000
Tap intX4, intY4
ShowMessage "已经点击第三次了"
//找到提交订单,并点击【结束】
End If
ShowMessage "没找到提交订单"
//找到颜色分类【结束】
End If
Delay 3000
//找到提交订单并点击【结束】
Dim intX3,intY3
FindPic 0,0,0,0,"Attachment:提交订单.png","000000",0,0.9,intX3,intY3
If intX3 > -1 And intY3 > -1 Then
TracePrint intX3
TracePrint intY3
Tap intX3, intY3
//找到提交订单,并点击
Dim intX5,intY5
FindPic 0,0,0,0,"Attachment:提交订单.png","000000",0,0.9,intX5,intY5
If intX5 > -1 And intY5 > -1 Then
TracePrint intX5
TracePrint intY5
Tap intX5, intY5
ShowMessage "已经点击一次提交订单按钮啦!"
Delay 1000
Tap intX5, intY5
ShowMessage "已经点击第二次了"
Delay 1000
Tap intX5, intY5
ShowMessage "已经点击第三次了"
//找到提交订单,并点击【结束】
End If
//找到提交订单并点击【结束】
End If
////找到去抢购图标【下面结束】
End If
Next