下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
怎么在抖音上挖的别人的流量呢，比如做二手商品的，一些做本地二手的商家，我们也想自己做这样的二手账号首先我们得有基础流量才行，那么基础流量怎么弄，肯定是需要一步步来涨粉啊，手动同行业账号的粉丝列表是最好的，因为关注对方对方会关的几率非常高的，但是手动又太麻烦了，尤其是一天要关注200+粉丝的话那不得累死，要先点主页，然后点关注又得返回两级菜单，太麻烦了，但是通过脚本就可以一键跳转个人主页，然后自动进行关注。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数,关注数量,随机数
布局名称 = "DY对方关注操作高级防风控版v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框1", "新用户欢迎语：")
TracePrint UI.AddEditText(布局名称, "输入框4", "200")
TracePrint UI.AddButton(布局名称, "按钮2", "进入对方关注列表后点击我，完全自动化")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)
Function 全自动点红包()
关注数量=UI.GetText("输入框4")
ShowMessage "准备自动化操作..."
UI.Close (布局名称)
End Function
For i = 1 To 关注数量
//这里的脚本可以循环10次
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((5000-2+1) Rnd()) + 1)
Traceprint MyValue
// 找关注
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 - 200, intY
Delay MyValue
ShowMessage "准备随机延时："&MyValue&"秒"
Delay 2000
// 又点关注
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 1500
End If
// 又点关注
ShowMessage "准备返回..."
KeyPress "Back"
Delay 1500
Swipe intX,intY, intX, 173,1000
ShowMessage "正在切换数据..."
End If
// 找关注
//退出循环
Next
