【抖音关键词搜索视频自动点赞评论】按键精灵源码分享

这个源码的功能是会自动在抖音搜索一个关键词，然后对搜索出来的作品进行点赞和评论，评论内容可以自定义，用#号进行分割，实现一个精准关键词的一个引流效果，把你的评论内容广告留给一些垂直关键词领域的视频下面，其它用户看到后会自动联系你，这是这款脚本的开发初衷，当前这款脚本的开发时间在2022年左右，目前已经识别不了最新版抖音了，你需要自己优化下里面包含的识图元素和代码。

界面源码：

界面1:
{
    请在下面设置你的私信话术，然后点启动:
    {
        输入框:
        {
            名称:"输入框1",
            提示内容:"提示用户应该输入什么内容",
            初始文本:"你好啊#这个视频好看#好美啊#真棒#呵呵",
            仅输入数字:false,
            密码:false,
            文字大小:0,
            最大输入长度:0,
            高度:700,
            宽度:500,
            注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
        },  

    },  

}

核心代码：

'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,循环数量,循环次数

布局名称 = "抖音关键词搜索视频自动点赞评论v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称) 
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "先搜索关键词，然后进入视频列表后，先点初始化数据，然后再点启动功能按钮。","700","300") 

'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框2", "1000","200","300") 

'显示名称为：布局名称 的布局控件
 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 点我初始化()

分割话术 =Split(ReadUIConfig("输入框1", 10000),"#")

TracePrint 分割话术(1)

循环次数=UI.GetText("输入框2")

End Function

Function 启用功能()

    ShowMessage "脚本准备开始运作"

    //要产生指定范围的随机整数，请使用以下公式： 
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数: 

    Dim a
a=UBound(分割话术)
Traceprint a
Randomize  
随机值 = Int(((a-2+1) * Rnd()) + 1)   
Traceprint 随机值

//开始自动打招呼

ShowMessage "请确保您当前处于抖音直播间的商品界面,否则软件会出错！"

 TracePrint UI.Close(布局名称)

 //循环打招呼开始

End Function

For i = 1 To 循环次数

    //这里的脚本可以循环10次

    //寻找评论图标，然后点击视频区域

    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

//通过判断表达式的取值，来执行后面的动作或控制

    //下方寻找评论图标结束
End If

i = intY   
If i > 456 Then  
    //满足条件，执行下面的脚本 
     Tap intX, intY - 181
    Delay 2000
     Tap 366,389
    Delay 100
    Tap 366,389
Delay 1000
 //点击视频评论
Dim intXp,intYp
FindPic 0,0,0,0,"Attachment:点击视频评论.png","000000",0,0.9,intXp,intYp
If intXp > -1 And intYp > -1 Then
    TracePrint intXp
    TracePrint intYp
    Tap intXp, intYp+273
Delay 1000
 //点击输入框
Dim intXs,intYs
FindPic 0,0,0,0,"Attachment:点击输入框.png","000000",0,0.9,intXs,intYs
If intXs > -1 And intYs > -1 Then
    TracePrint intXs
    TracePrint intYs
    Tap intXs, intYs
    Delay 100
InputText 分割话术(随机值)
TracePrint 分割话术(随机值)

Delay 1000
     //发送
    Dim intXf,intYf
FindPic 0,0,0,0,"Attachment:发送.png","000000",0,0.9,intXf,intYf
If intXf > -1 And intYf > -1 Then
    TracePrint intXf
    TracePrint intYf
    Tap intXf, intYf
    Delay 1000
    KeyPress "Back"
        Delay 1000
        KeyPress "Back"

    //发送
End If
 //点击输入框
End If

     //点击视频评论
End If

KeyPress "Back"
Delay 1000

End If
//通过判断表达式的取值，来执行后面的动作或控制

   Swipe 296,1154, 285,391,300

    Delay 500

Next