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