微博自动发布脚本，微博批量发布插件，关注私信点赞工具

下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888

做微博营销的相比都知道微博自动发布这种营销软件吧，因为价值很高，为啥我会这么说呢，因为你发一条微博系统就会自动给你一定的流量，那么如果是多个账号并且同时发布大量微博内容的情况下你获得的流量是不是指数型上涨呢？就是这个到底，我们就是借用这个方案来实现这种流量倍增效果，那么具体怎么操作呢，还能点赞和关注私信呢，只需要使用下面的代码即可实现。

源码部分：

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

布局名称 = "功能配置区："
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框6", "微博内容：")
TracePrint UI.NewRow(布局名称, "newrow" )
TracePrint UI.AddEditText(布局名称, "输入框1", "请将要发布的内容读取到剪辑版，每个内容用#符号分割，例如xxx#xxx...","700","300")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "newrow" )
TracePrint UI.AddTextView(布局名称, "文字框6", "延迟发布时间：")
TracePrint UI.NewRow(布局名称, "newrow" )
TracePrint UI.AddEditText(布局名称, "输入框5", "5000","700","100")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件

TracePrint UI.NewRow(布局名称, "newrow" )
TracePrint UI.AddButton(布局名称, "按钮1", "点我读取动态内容")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "启动功能")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 启用功能)
TracePrint UI.Show (布局名称)

'创建函数

Function 点我初始化()

话术=Sys.GetClipText()  //读取剪辑版
循环数量=UI.GetText("输入框5")


UI.SetText("输入框1",话术)

分割话术=Split(话术,"#")
ShowMessage "数据正在初始化..."

TracePrint 话术
TracePrint 分割话术(1)
Delay 3000

End Function

Function 启用功能()
ShowMessage "脚本准备开始运作.延迟1500毫秒"
Delay 1500
TracePrint UI.Close(布局名称)

End Function

Do
//点击发布
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
ShowMessage "点击发布"
Delay 2000
Tap 561,195
ShowMessage "点写微博"
Delay 3000
ShowMessage "准备输入内容"

//随机内容

Dim MyValue
Randomize
MyValue = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)
Traceprint MyValue

//随机内容

InputText 分割话术(MyValue)

Delay 2000

Tap 649, 94

Delay 3000

ShowMessage "已发布一篇微博"

End If
//点击发布
//点击知道了

Dim intX1,intY1
FindPic 0,0,0,0,"Attachment:点击.png","000000",0,0.9,intX1,intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
TracePrint intY1
Tap intX1,intY1
End If
//点击知道了

ShowMessage "准备延迟："&循环数量&"毫秒"
Delay 循环数量

// Exit Do
//退出循环
Loop