支持抖音快手的直播间刷屏脚本,自定义话术快速,新用户欢迎,按键精灵脚本开源 | 您所在的位置:网站首页 › 抖音直播怎么一直刷屏 › 支持抖音快手的直播间刷屏脚本,自定义话术快速,新用户欢迎,按键精灵脚本开源 |
用按键精灵之前给客户开发的脚本,功能我这边都设计好了,比如话术速度还有毫秒都可以自定义设置的,还支持虚拟欢迎等功能,还有一直点赞等功能,用按键精灵开发的,我现在拿着也用不了,就直接把源码开源出来。 uii界面: 脚本代码: ========================================================== '创建布局名称 Dim 布局名称,虚拟欢迎,话术,分割话术,随机值,文本,id,结果,毫秒,观看直播间,内容 布局名称 = "xkrj5.com 开源!" '创建一个名称为布局名称的布局控件 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 ================================================================ |
CopyRight 2018-2019 实验室设备网 版权所有 |