下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
抖音私信的效果你知道手动限制多少吗，不超过20个人，在继续私信的时候我们就会发现会被限制或者屏蔽，就算在本地你是发送过去了，但是对方根本就没收到，但是通过脚本插件定制版你就能成功发送出去，因为脚本插件是用了内部协议的方式发送的，这种方式是最稳定的私信营销方式。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数
布局名称 = "星辰抖音全自动关注评论v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "进入抖音界面后，点右上角搜索在启动")
TracePrint UI.NewRow(布局名称, "newrow" )
TracePrint UI.AddTextView(布局名称, "文字框1", "延迟时间：")
TracePrint UI.AddEditText(布局名称, "输入框2", "3000")
TracePrint UI.NewRow(布局名称, "newrow" )
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "newrow" )
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "先点我初始化")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "在点我关注")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)
Function 全自动点红包()
ShowMessage "准备自动化操作..."
UI.Close (布局名称)
End Function
'创建一个初始化处理函数
Function 点我初始化()
时间=UI.GetText("输入框2")
私信次数 = UI.GetText("输入框3")
TracePrint 时间
TracePrint 111111111111
话术 = Split(ReadUIConfig("输入框1","没有ID"), "#")
ShowMessage "数据正在初始化..."
TracePrint 话术(1)
TracePrint 分割话术(1)
End Function
For i = 1 To UBOUND(话术)
Delay 时间
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 242, 94
Delay 500
InputText 话术(i - 1)
Tap intX,intY
Delay 时间
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
End If
End If
If intX = -1 Then
ShowMessage "当前不在抖音搜索界面..."
End If
//通过判断表达式的取值，来执行后面的动作或控制
Next
