【微信自动发朋友圈多账号】按键精灵源码，延迟时间发布

这款脚本其实是之前某个网友定制的，然后我这边就免费分享给大家，同样还是按键精灵的源码，安卓端的奥，大家不要搞混了，基本运行逻辑是，需要配合电脑端的服务器也就是客户端和服务器进行通讯连接，脚本运行后会一直等待服务端发送数据，发送后所有客户端都会读取服务端发送的文本数据和图片数据，然后统一发布，这边分享的仅仅只是客户端的脚本代码，大家可以根据源码的运行逻辑去开发一个服务端，用易语言的服务端组件就能轻松实现，没有太大的难度哈。

核心代码：

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

布局名称 = "微信自动发朋友圈多账号v1.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