这个脚本的运行逻辑就是它会只识别正在直播的主播,然后对主播进行逐个的发送私信,私信完一个会自动滑动带下一个主播,目前这个脚本还没办法设置发送数量,也就是说只要启动了它就会一直的运行,停止的话需要手动操作停止,后台关闭进程就OK了,要发送的话术需要用#号进行分割,比如xxx#bbb#ccc#它会随机提取一个进行发送。
界面源码分享:
界面1:
{
请在下面设置话术:
{
输入框:
{
名称:"输入框1",
提示内容:"提示用户应该输入什么内容",
初始文本:"测试话术1#测试话术2#测试话术3",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
},
}
脚本代码分享:
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口,分隔ID,最终年龄,最低年龄,年龄
布局名称 = "抖音主播精准私信工具【客户端】v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框2", "延迟时间:")
TracePrint UI.AddEditText(布局名称, "输入框3", "2000")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddTextView(布局名称, "文字框2", "使用提示:")
TracePrint UI.AddEditText(布局名称, "输入框4", "进入直播间后启动本软件!")
'显示名称为:布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1",标题为:"点我初始化"的按钮控件
'创建一个名称为"按钮1",标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "点我初始化私信主播")
TracePrint UI.NewRow(布局名称, "new_row")
'TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"普通私信", "截屏私信", "粉丝私信"},0)
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 点我私信)
TracePrint UI.Show (布局名称)
Function 点我私信()
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
TracePrint UI.Close(布局名称)
End Function
'创建一个初始化处理函数
Function 点我初始化()
End Function
For i = 1 To 99999999999999999999999999999
Delay 2000
Tap 57,102
ShowMessage "准备进入主播个人主页"
Delay 2000
Tap 86,700
Delay 1500
Tap 661, 100
Delay 1500
//发私信
ShowMessage "私信操作"
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
Tap intX, intY
Delay 2000
//是否为商业用户
Dim intXs,intYs
FindPic 0,0,0,0,"Attachment:是否为商业用户.png","000000",0,0.9,intXs,intYs
If intXs > -1 And intYs > -1 Then
TracePrint intXs
TracePrint intYs
Tap intXs, intYs
Delay 1000
ShowMessage "当前为商业用户"
Tap 265,1108
//输入内容
ShowMessage "分割话术"
Dim MyValue
Randomize
MyValue = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)
Traceprint MyValue
Delay 20
InputText 分割话术(MyValue)
Delay 1000
//输入内容
//发送内容
ShowMessage "发送内容"
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 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
ShowMessage "切换直播间"
Swipe 702,1093, 702,43,50
Delay 1000
End If
//是否为商业用户
End If
//发送内容
//不是商业用户
If intYs = -1 Then
//满足条件,执行下面的脚本
ShowMessage "切换"
Tap 140, 1112
//输入内容
ShowMessage "分割话术"
Dim MyValue1
Randomize
MyValue1 = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)
Traceprint MyValue1
Delay 20
InputText 分割话术(MyValue1)
Delay 1000
//发送
Dim intXfs,intYsfs
FindPic 0,0,0,0,"Attachment:发送.png","000000",0,0.9,intXfs,intYsfs
If intXfs > -1 And intYsfs > -1 Then
TracePrint intXfs
TracePrint intYsfs
Tap intXfs,intYsfs
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
ShowMessage "切换直播间"
Swipe 702,1093, 702,43,50
Delay 1000
End If
//发送
End If
//通过判断表达式的取值,来执行后面的动作或控制
//不是商业用户
End If
//发私信
//这里的脚本可以循环10次
Next
|