下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
快手的关注和点赞评论收藏的限制是非常小的，跟抖音不同，抖音的话好像操作几下就频繁了，但是快手并不会，所以说在快手上面做营销效果非常好，这种情况下我们如何才能实现来给我们自己的一些产品引流以及想在快手上迅速的吧我们的产品推广出去呢，那么接下来你就需要看我这个插件了，因为他确实能帮助到你。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数,点赞次数
布局名称 = "快手推荐视频自动评论软件v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框1", "输入评论次数：")
TracePrint UI.AddEditText(布局名称, "输入框1", "200",400,100)
TracePrint UI.NewRow(布局名称, "" )
TracePrint UI.AddButton(布局名称, "按钮2", "全自动评论稳定版")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)
Function 全自动点红包()
点赞次数=UI.GetText("输入框1")
ShowMessage "准备自动化操作..."
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
UI.Close (布局名称)
End Function
For i = 1 To 点赞次数
//先进行评论
ShowMessage "准备对当前作品评论操作"
Tap 654,577
Delay 2000
//找到输入款，输入内容并发送
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 1000
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) Rnd() + 最小值)
//例如产生2到6之间的随机数: 分割话术
Dim MyValue
Randomize
MyValue = Int(((UBound(分割话术)-2+1) Rnd()) + 1)
Traceprint MyValue
InputText 分割话术(MyValue)
Delay 1000
//点击发送按钮
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 "已发布一条评论"
End If
//点击发送按钮
Delay 1500
KeyPress "Back"
Delay 1000
//要产生指定范围的随机整数，请使用以下公式：
//Int((最大值 - 最小值 + 1) Rnd() + 最小值)
//例如产生2到6之间的随机数:
Dim MyValue1
Randomize
MyValue1 = Int(((9000-2+1) Rnd()) + 1)
Traceprint MyValue1
ShowMessage "准备随机观看视频"&MyValue1&"毫秒"
Delay MyValue1
Swipe 284, 995, 345, 193, 200
End If
//找到输入款，输入内容并发送
//先进行评论
Next
