抖音关键词搜索视频自动点赞评论工具，按键精灵脚本，可多账户配置【开源代码】

这源码也是之前给客户定制的，然后现在将近半年了，没用到，我干脆就分享出来，提供给大家学习一下按键精灵的一些结构代码和功能组成，提高自身的按键精灵编程水平。

脚本代码：

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

'创建布局名称

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

布局名称 = "xkrj5.com 开源社区分享"

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

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