【快手作品评论自动私信源码】按键精灵源码，自定义话术

这个源码是按键精灵的源码，主要实现的一个功能就是自动滑动快手视频，然后给作品下面留下自定义评论内容，话术可以批量设置，用#号分割，要用私信功能的话需要打开某个作品的评论区，然后启动脚本会自动识别评论用户，实现逐个发送私信的一个效果，源码我这边给大家奉上，里面的识图元素和坐标大家需要重新优化一下，不然可能会出现运行无效果的情况，分辨率不同的原因。

'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id

布局名称 = "星辰快手评论区ID私信脚本v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称) 
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "切记，评论区视频下方的的一些挂件要清理干净，不然脚本错误执行") 
'显示名称为：布局名称 的布局控件
 TracePrint UI.NewRow(布局名称, "new_row_" )
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "点我初始化数据") 
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "全自动后台打招呼") 
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 全自动搜索私信)
TracePrint UI.Show (布局名称)

Function 全自动搜索私信()

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

UI.Close (布局名称)

End Function

'创建一个初始化处理函数
Function 点我初始化()

ShowMessage "提示：确保当前处于私信界面，在启动脚本..."
    话术=ReadUIConfig("输入框1", 10000)
    分割话术=Split(话术,"#")
    ShowMessage "数据正在初始化..."
  TracePrint 话术
  TracePrint 分割话术(1)

End Function

Sub 关注并私信()
ShowMessage "提示：确保当前处于私信界面，在启动脚本..."

Tap 440,436

Delay 1500

Dim intX12,intY12

FindPic 0,0,0,0,"Attachment:对方权限.png","000000",0,0.9,intX12,intY12
Dim i
 TracePrint intX12
i = intX12   
If i = -1 Then  
TracePrint i
ShowMessage "对方未设置权限，可以向对方发私信"
Tap 377, 436
Delay 2000
ShowMessage "进入内容输入"

Tap 305,1123

InputText 分割话术(1)

Delay 1000

Tap 649, 528

Delay 1500

Tap 30,92

Delay 1000

Tap 30,92
Delay 1000

Swipe 66, 584, 69, 393
   ShowMessage "正在刷新新的ID..."
Delay 2000

End If

 //判断对方是否设置权限

Dim a
a = intX12   
If i > 1 Then 

 ShowMessage "此人设置了权限，返回换号吧"

Tap 38, 92

Delay 1500
Swipe 66, 584, 69, 393

Delay 1500

End If
//判断对方是否设置权限

End Sub

For i = 1 To 10
    //这里的脚本可以循环10次

     //判断红心位置
     ShowMessage "在判断用户所在区域"
    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
         ShowMessage "已经检测到用户"
        Tap intX - 581, intY
        Delay 2000

         //判断是否进入用户界面
        Dim intX1,intY1
FindPic 0,0,0,0,"Attachment:作品.png","000000",0,0.9,intX1,intY1
i =  intX1   
If i = -1 Then 
 ShowMessage "发现是楼中楼评论用户，正在返回重新检测..."
KeyPress "Back"
Delay 1000

 Tap intX - 507, intY

    Delay 2000

    Call 关注并私信()

End If

//判断是否进入用户界面结束

Call 关注并私信()

End If
  //判断红心位置结束   

Next