因为之前有客户找我定做过一个就是可以在延迟固定的时间后自动发布一条微博的脚本，然后这个脚本就开发出来了，可以在模拟器里面操作运行，然后实现多开多账号发动态，可以设置一条固定的动态内容吗，然后设置好发送数量，启动就可以了，发布的内容可以用#分割，也就实现了可以导入很多话术内容，然后在运行的时候它会随机提取一条来进行发送，需要设置延迟发布时间奥，默认为5000毫秒，也就是5秒。
源码分享：【界面】
界面1:
{
微博自动发动态脚本v1.1:
{
文字框:
{
名称:"文字框1",
显示内容:"本脚本需要ROOT权限，因为是定制版所以不需要开卡密，安装就能直接使用，本脚本只用于操作一些重复性的功能，不可应用于违法用途，否则由此造成的损失由使用者个人承担，有脚本使用问题，请联系作者QQ，使用问题，请看帮助！",
文字大小:0,
高度:0,
宽度:0,
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
},
文字框:
{
名称:"文字框3",
显示内容:"设置动态内容：",
文字大小:0,
高度:200,
宽度:0,
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
},
输入框:
{
名称:"输入框1",
提示内容:"提示用户应该输入什么内容",
初始文本:"输入内容...",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:300,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
},
文字框:
{
名称:"文字框2",
显示内容:"设置发送数量：",
文字大小:0,
高度:0,
宽度:0,
注释:"文字大小、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
},
输入框:
{
名称:"输入框2",
提示内容:"提示用户应该输入什么内容",
初始文本:"1000",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
},
},
}
脚本内容：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,循环数量
布局名称 = "功能配置区："
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框6", "微博内容：")
TracePrint UI.NewRow(布局名称, "new_row_" )
TracePrint UI.AddEditText(布局名称, "输入框1", "请将要发布的内容读取到剪辑版，每个内容用#符号分割，例如xxx#xxx...","700","300")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row_" )
TracePrint UI.AddTextView(布局名称, "文字框6", "延迟发布时间：")
TracePrint UI.NewRow(布局名称, "new_row_" )
TracePrint UI.AddEditText(布局名称, "输入框5", "5000","700","100")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.NewRow(布局名称, "new_row_" )
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
|
新库软件 