下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
一些用户在一个抖音作品下面留下了一个营销的评论，然后通过矩阵账号操作实现对指定的评论ID进行批量点赞，这样他的评论就能顶的非常高，来实现这么一个效果，那么这种情况下是需要通过工具来实现的，用手动的方式是非常不现实的，并且还可以导入作品ID然后对指定的作品进行点赞收藏操作，营销效果也是非常好。
源码部分：
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口
布局名称 = "抖音关键词视频评论点赞【客户端】v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框2", "手动搜索关键词，进入列表后，点开始评论按钮")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "点我初始化界面开始评论")
TracePrint UI.NewRow(布局名称, "new_row")
'TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"普通私信", "截屏私信", "粉丝私信"},0)
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 点我私信)
TracePrint UI.Show (布局名称)
Function 点我私信()
id=UI.GetText("输入框2")
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
TracePrint UI.Close(布局名称)
End Function
'创建一个初始化处理函数
For i = 1 To 5
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, intY
Delay 1000
Tap intX + 178, intY
Delay 1500
Tap 123, 1128
Tap 123, 1128
Delay 100
//要产生指定范围的随机整数，请使用以下公式：
//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:fasong.png","000000",0,0.9,intX1,intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
TracePrint intY1
Tap intX1, intY1
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
End If
End If
If intY = -1 Then
Swipe 309,613, 279,283,1000
End If
//通过判断表达式的取值，来执行后面的动作或控制
Next
