豆瓣贴吧24小时自动顶帖脚本，随机延迟时间，按键精灵插件开源版！

之前给客户定制的，定制了非常多的脚本和插件，这也是其中一个，我留着没用，就把源码直接给大家开源出来，方面大家学习一下，或者你可以把代码和UI界面的代码直接粘贴到你的按键精灵手机助手里面就能运行的，你可以试试，仅供学习用。

ui界面：

ui界面2：

UI界面代码：

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

界面1:

{
请在下面输入话术:

{
输入框:

{
名称:"输入框1",

提示内容:"提示用户应该输入什么内容",

初始文本:"你好在吗#小姐姐#哈喽",

仅输入数字:false,

密码:false,

文字大小:0,

最大输入长度:0,

高度:0,

宽度:0,

注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"

},

},

}

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

脚本代码：

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

'创建布局名称

Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数

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

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

TracePrint UI.Newlayout (布局名称)

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

TracePrint UI.AddEditText(布局名称, "输入框1", "进入id页面后启动脚本")

TracePrint UI.NewRow(布局名称, "new_row_" )

TracePrint UI.AddTextView(布局名称, "文字框1", "延迟时间：")

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

TracePrint UI.NewRow(布局名称, "new_row_" )

'显示名称为：布局名称 的布局控件

TracePrint UI.NewRow(布局名称, "new_row_" )

'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件

TracePrint UI.AddButton(布局名称, "按钮1", "先点我初始化")

'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件

TracePrint UI.AddButton(布局名称, "按钮2", "在点我顶贴")

'设置名称为"按钮1"的控件的控件点击事件

TracePrint UI.SetOnClick("按钮1", 点我初始化)

TracePrint UI.SetOnClick("按钮2", 全自动点红包)

TracePrint UI.Show (布局名称)

Function 全自动点红包()

ShowMessage "准备自动化操作..."

UI.Close (布局名称)

End Function

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

Function 点我初始化()

时间=UI.GetText("输入框2")

私信次数 = UI.GetText("输入框3")

TracePrint 时间

TracePrint 111111111111

话术 = Split(ReadUIConfig("输入框1","怎么联系啊"), "#")

ShowMessage "数据正在初始化..."

TracePrint 话术(1)

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-200,intY+20

Delay 1500

//要产生指定范围的随机整数，请使用以下公式：

//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)

//例如产生2到6之间的随机数:

Dim MyValue

Randomize

MyValue = Int(((UBound(话术)-2+1) * Rnd()) + 1)

Traceprint MyValue

InputText 话术(MyValue)

Delay 2000

Dim intX1,intY1

FindPic 0,0,0,0,"Attachment:发送1.png","000000",0,0.9,intX1,intY1

If intX1 > -1 And intY1 > -1 Then

TracePrint intX1

TracePrint intY1

Tap intX1,intY1

Delay 1000

ShowMessage "已成功顶贴一次"

End If

End If

//点击输入款

Delay 时间

//退出循环

Loop

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