这个需要连接服务器,你可以在易语言配置一个服务端,然后设置好端口,脚本部署在模拟器或者云手机或者真机里面实现多账号点赞评论的效果,针对一个作品,按键精灵写的脚本,服务端的脚本需要自己写哈,我没保存,我只保存了客户端的,这边分享出来,技术供大家学习研究。
UI界面:
界面代码:
=============================================
界面1:
{
请在下面设置话术:
{
输入框:
{
名称:"输入框1",
提示内容:"提示用户应该输入什么内容",
初始文本:"测试话术1#测试话术2#测试话术3",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
},
}
=================================================
脚本代码:
===================================================
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口
布局名称 = "xkrJ5.com 开源版!"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框2", "192.168.1.13")
TracePrint UI.AddEditText(布局名称, "输入框3", "12345")
'显示名称为:布局名称 的布局控件
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
'创建一个初始化处理函数
Function 点我初始化()
End Function
For i = 1 To 99999999999999999999
Import "socket.lua"
socket.CliendConnect id, "12345"
Call socket.ClientSend("监听命令...")
Call socket.ClientSend("SendMessage")
TracePrint socket.ClientReceive()
Delay 3000
ShowMessage "正在执行..."
Tap 793,1493
ShowMessage "准备进入页面"
Delay 3000
Tap 313,371
Delay 30
Tap 313, 371
Tap 313, 371
Delay 2000
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
Tap intX,intY
End If
Delay 2000
KeyPress "Back"
Delay 1000
Swipe 176, 1252, 169, 797, 1000
ShowMessage "等待命令"
Next
==================================================