小红书评论区用户主页自动点赞脚本，留痕必备，全自动按键精灵开源脚本

刚给客户定制了一个自动在小红书的评论区点赞用户然后进入主页给它的头像点赞，然后给作品点赞，下面是按键精灵脚本开发的，源码你可以直接粘贴拿过去用，我这边完整的分享出来，延迟时间啥的都可以控制，1000就是1秒。

ui界面：

脚本代码：

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

'创建布局名称

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

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

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

TracePrint UI.Newlayout (布局名称)

'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件

TracePrint UI.AddTextView(布局名称, "文字框1", "输入私信次数：")

TracePrint UI.AddEditText(布局名称, "输入框1", "1000",400,100)

TracePrint UI.NewRow(布局名称, "" )

TracePrint UI.AddTextView(布局名称, "文字框1", "输入延迟时间：")

TracePrint UI.AddEditText(布局名称, "输入框2", "1500",400,100)

TracePrint UI.NewRow(布局名称, "" )

TracePrint UI.AddButton(布局名称, "按钮2", "点我启动点赞")

'设置名称为"按钮1"的控件的控件点击事件

TracePrint UI.SetOnClick("按钮2", 全自动点红包)

TracePrint UI.Show (布局名称)

Function 全自动点红包()

点赞次数 = UI.GetText("输入框1")

延迟时间=UI.GetText("输入框2")

ShowMessage "准备自动化操作..."

分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")

UI.Close (布局名称)

End Function

For i = 1 To 点赞次数

//红心识别

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-900,intY

Delay 延迟时间

//是否有关注

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 150, 353

Delay 延迟时间

Tap 881, 1525

Delay 延迟时间

KeyPress "Back"

Delay 延迟时间

KeyPress "Back"

Delay 延迟时间

Swipe intX, intY, intX,105,1000

Delay 延迟时间

End If

//是否有关注

TracePrint "aaa"&intX1

If intX1 = -1 Then

Swipe intX,intY, intX,105,1000

Delay 延迟时间

End If

End If

//红心识别

Next

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