微信自动发朋友圈脚本，可定时延迟多账号，按键精灵开源工具

这个需要每个手机运行一个，然后连接服务器，手机端是客户端，会检测客户端发送的消息，然后服务器端发送消息后，客户端会将消息转发到微信朋友圈。

ui界面：

脚本代码：

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

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

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

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

TracePrint UI.Newlayout (布局名称)

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

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

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")

TracePrint UI.Close(布局名称)

End Function

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

Function 点我初始化()

End Function

For i = 1 To 99999999999999999999999

Import "shanhai.lua"//

Import "socket.lua"

socket.CliendConnect id, "12345"

Call socket.ClientSend("监听命令...")

Call socket.ClientSend("SendMessage")

返回的数据 = socket.ClientReceive()

Dim MyString

MyString = Split(返回的数据,"---")

Call shanhai.GetHttpFile(MyString(1),"/sdcard/Pictures/WeiXin/wx_camera_1643116684789.jpg")

Delay 3000

ShowMessage "正在执行..."

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

TracePrint 返回的数据

Tap 672,99

Delay 1000

Tap 357, 1117

Delay 1500

ShowMessage "正在选择图片"

Tap 142, 166

Delay 200

Tap 563, 90

Delay 2000

ShowMessage "准备输入内容"

Tap 163, 180

Delay 200

InputText MyString(0)

ShowMessage "已输入朋友圈内容"

Delay 3000

Tap 626, 91

Delay 3000

ShowMessage "已发送一条朋友圈广告"

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

ShowMessage "等待命令"

Next

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