网站模板做网站,响应式网页设计平台,湖南建设监理员报名网站,奥利奥广告策划书就跟标题上面讲的#xff0c;软件是我之前开发好的#xff0c;所有功能都能用#xff0c;是按键精灵的脚本#xff0c;只是单设备操作#xff0c;也可以在模拟器下面操作#xff0c;UI代码方面都设计的很完整#xff0c;我这边就干脆分享出来给大家用#xff0c;不用繁…就跟标题上面讲的软件是我之前开发好的所有功能都能用是按键精灵的脚本只是单设备操作也可以在模拟器下面操作UI代码方面都设计的很完整我这边就干脆分享出来给大家用不用繁琐的配置直接粘贴就能用哈。
UI界面 界面配置代码 界面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 布局名称,点击坐标,话术,分割话术,随机值,循环数量 布局名称 xkrJ5.com 开发开源版
创建一个名称为布局名称的布局控件
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(分割话术)-21) * 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
