快手抖音同城自动评论脚本，推荐页支持，自定义评论内容，按键精灵开源版！

之前给客户定制的一个支持快手也抖音的自动同城评论脚本，可以原理很简单，自动上划视频，然后自动留下一个评论，评论内容通过语法分割，实现每次评论的内容都不一样，好了下面是UI和代码。

ui：

界面代码：

=====================================================

界面1:

{
请在下面设置话术:

{
输入框:

{
名称:"输入框1",

提示内容:"提示用户应该输入什么内容",

初始文本:"测试话术1#测试话术2#测试话术3",

仅输入数字:false,

密码:false,

文字大小:0,

最大输入长度:0,

高度:0,

宽度:0,

注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"

},

},

}

===========================================================

脚本代码：

=======================================================

'创建布局名称

Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数,点赞次数

布局名称 = "xkrj5.com 开源！"

'创建一个名称为布局名称的布局控件

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

====================================================