原理非常简单，就是自动刷视频，然后时间都是随机的，比如看视频或者看动态时间都是随机的，而且还能24小时运行，实现了一个非常不错的一个养号效果，支持抖音快手陌陌三个平台，客户定制的，现在代码留着没用，分享出来。
UI界面：
代码：
==============================================
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数
布局名称 = "xkrj5.com 开源"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddButton(布局名称, "按钮2", "24小时自动养号看视频")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)
Function 全自动点红包()
ShowMessage "准备自动化操作..."
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
UI.Close (布局名称)
End Function
Do
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue
Randomize
MyValue = Int(((9000-2+1) * Rnd()) + 1)
Traceprint MyValue
ShowMessage "准备随机看视频"&MyValue&"毫秒"
Delay MyValue
Dim MyValue1
Randomize
MyValue1 = Int(((5-2+1) * Rnd()) + 1)
Traceprint MyValue1
If MyValue = 2 Then
Tap 330, 432
Delay 100
Tap 330, 432
Tap 330,432
End If
//通过判断表达式的取值，来执行后面的动作或控制
Delay 1000
Swipe 341,849, 225,113,500
Loop
=====================================================