下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
你知道那些直播间一秒发送10条20条广告文字的人是怎么弄的吗，其实他们就是通过这种插件实现的，这个插件的作用就是一次性在别人的直播间批量发送弹幕信息，而且都是他们预先设定好的广告文字，来给他们的产品倒流，虽然很烦，但是毋庸置疑他们的效果是确实是非常棒的。
源码部分：
'创建布局名称
Dim 布局名称,虚拟欢迎,话术,分割话术,随机值,文本,id,结果,毫秒,观看直播间,内容
布局名称 = "抖音直播间高级版直播间刷屏v1.5"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "防风控直播间刷屏工具，VIP定制版，开启后手动勿干预！")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddTextView(布局名称, "文字框1", "新用户欢迎语：")
TracePrint UI.AddEditText(布局名称, "输入框4", "欢迎：")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddTextView(布局名称, "文字框2", "观看直播间随机值：")
TracePrint UI.AddEditText(布局名称, "输入框5", "10000")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddTextView(布局名称, "文字框1", "设置毫秒：")
TracePrint UI.AddEditText(布局名称, "输入框3", "5000")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "先点一下我初始化数据")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"自定义回复", "虚拟欢迎", "一直点赞"},0)
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.Show (布局名称)
'创建一个初始化处理函数
Function 点我初始化()
UI.Close (布局名称)
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
TracePrint 分割话术(1)
毫秒 = UI.GetText("输入框3")
观看直播间=UI.GetText("输入框5")
TracePrint 毫秒
结果= UI.GetValue("选择功能")
TracePrint 结果["选择功能"]
虚拟欢迎 = UI.GetText("输入框4")
id = Array("孙xxx","文xxx","和xxx","孙xxx","爱xxx","换xxx","消xxx","在xxx","我xxx","是xxx","人xxx","额xxx","拍xxx","催xxx")
End Function
If 结果["选择功能"] = 1 Then
ShowMessage "虚拟欢迎"
For i = 1 To 99999999
Dim MyValue1
Randomize
MyValue1 = Int(((UBound(id)-2+1) * Rnd()) + 1)
Traceprint MyValue1
Tap 92,1129
InputText 虚拟欢迎&id(MyValue1)&"进入主播间！"
Delay 500
Tap 681,1128
Delay 毫秒
Next
End If
If 结果["选择功能"] = 0 Then
ShowMessage "启动刷屏"
Do
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((UBound(分割话术)-2+1) Rnd()) + 1)
Traceprint MyValue
Sys.SetClipText 分割话术(MyValue)
Tap 122,1133
Delay 1500
//点击抖音输入款
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
Touch intX - 200, intY, 2000
Delay 1000
//粘贴
Dim intX1,intY1
FindPic 0,0,0,0,"Attachment:粘贴1.png","000000",0,0.9,intX1,intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
TracePrint intY1
Tap intX1, intY1
Delay 500
//发送
Dim intX3,intY3
FindPic 0,0,0,0,"Attachment:发送1111.png","000000",0,0.9,intX3,intY3
If intX3 > -1 And intY3 > -1 Then
TracePrint intX3
TracePrint intY3
Tap intX3,intY3
Delay 1000
End If
//发送
End If
//粘贴
End If
//点击抖音输入款
// Exit Do
//退出循环
Loop
End If
If 结果["选择功能"] = 2 Then
ShowMessage "一直给主播上赞~~~"
For i = 1 To 99999999999999999999
//这里的脚本可以循环10次
Tap 335, 438
Delay 500
Next
End If
**
