陌陌附近动态点赞评论脚本,可设置延迟时间,按键精灵开源版

发布时间 2023-11-17 15:37:37作者: 花花java大师

同样是按键精灵写的脚本,可以设置延迟毫秒,然后自动对附近动态点赞+评论,适合做营销的朋友拿去玩,完整的UI界面代码和脚本代码请看下面,分享出来。

UI界面:

 

 

ui界面代码:

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

界面1:

{

请在下面设置话术:

{

输入框:

{

名称:"输入框1",

提示内容:"提示用户应该输入什么内容",

初始文本:"测试话术1#测试话术2#测试话术3",

仅输入数字:false,

密码:false,

文字大小:0,

最大输入长度:0,

高度:0,

宽度:0,

注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"

},

 

},

 

}

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

脚本代码:

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

Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口

 

布局名称 = "xkrj5.com 开源版!"

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

TracePrint UI.Newlayout (布局名称) 

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

 TracePrint UI.AddTextView(布局名称, "文字框2", "延迟时间:") 

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

 

'显示名称为:布局名称 的布局控件

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

'创建一个名称为"按钮1",标题为:"点我初始化"的按钮控件

 

'创建一个名称为"按钮1",标题为:"全自动打招呼"的按钮控件

TracePrint UI.AddButton(布局名称, "按钮2", "点我初始化界面开始评论") 

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

'TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"普通私信", "截屏私信", "粉丝私信"},0)

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

 

TracePrint UI.SetOnClick("按钮2", 点我私信)

TracePrint UI.Show (布局名称)

 

 

 

 

 

Function 点我私信()

 

id=UI.GetText("输入框2")

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

TracePrint UI.Close(布局名称)

 

 

 

End Function

   

 

 

 

'创建一个初始化处理函数

 

 

For i = 1 To 999999999999999999999999

Delay id

 

 

//创建一个初始化处理函数  

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

   Delay 2000

   //关注

   Dim intX1,intY1

FindPic 0,0,0,0,"Attachment:KM.png","000000",0,0.9,intX1,intY1

If intX1 > -1 And intY1 > -1 Then

TracePrint intX1

TracePrint intY1

Tap intX1,intY1

  Delay 2000

  //进入关注步骤

   

  Dim intX2,intY2

FindPic 0,0,0,0,"Attachment:关注.png","000000",0,0.9,intX2,intY2

If intX2 > -1 And intY2 > -1 Then

TracePrint intX2

TracePrint intY2

Tap intX2, intY2

Delay 2000

 

End If

   //进入关注步骤

   

  KeyPress "Back"

Delay 1000

Swipe intX, intY, intX, 90, 2000

Delay 2000

   

   

End If

    //关注

   

   

   

   

End If 

//创建一个初始化处理函数  

 

 

If intY = -1 Then  

  

  

  

 

Swipe 310, 467, 324, 143, 1000

 

 Delay 1000

 

 

End If

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

 

 

  

  

 

 

Next

 

 

 

 

 

 

 

 

 

 

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