下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
至于抖音我们就不用给大家过多的介绍了，其实我做抖音营销真的是做了好几年，也是积累了大量的抖音营销技巧和方案，那么这种情况下我肯定也是自己收藏了好几款不错的抖音营销插件，试了一下还好用，然后我自己已经赚够了，还留着这些工具对我来说没啥意义，就直接给大家分享吧，希望也能继续让这款软件给大家带来他自身的价值和意义，能为大家带来营销效果。
源码部分：
'创建布局名称
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","怎么联系啊"), "#")
ShowMessage "数据正在初始化..."
TracePrint 话术(1)
End Function
For i = 1 To 9999999
'找到粉丝
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 - 400, intY
ShowMessage "点击用户"
Delay 2000
'点击回关
Dim intX4,intY4
FindPic 0,0,0,0,"Attachment:点击回关.png","000000",3,0.7,intX4,intY4
If intX4 > -1 And intY4 > -1 Then
TracePrint intX4
TracePrint intY4
Tap intX4,intY4
Delay 1500
End If
'点击回关
'点击私信
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
ShowMessage "点击私信"
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-200, intY2
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((UBound(话术)-2+1) Rnd()) + 1)
Traceprint 话术(MyValue)
InputText 话术(MyValue)
Delay 1000
//点击发送
Dim intX3,intY3
FindPic 0,0,0,0,"Attachment:点击发送.png","000000",3,0.9,intX3,intY3
If intX3 > -1 And intY3 > -1 Then
TracePrint intX3
TracePrint intY3
Tap intX3,intY3
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Swipe intX, intY, intX, 226, 1000
End If
//点击发送
End If
'点击输入框
End If
'点击私信
End If
'找到粉丝
Next
