【豆瓣24小时顶贴软件定制版v1.1】按键精灵源码分享

可以导入一个帖子，然后定时循环的给这个帖子自动评论一个消息，这个循环是DO循环，是无限的，要停止脚本的话只能手动停止，然后我这里分享的是源码，如果你要用的话，需要二次开发一下，因为手机分辨率不同，就算我把这个打包给你你那边不一定能用，这个软件就两个模块，一个界面，一个脚本，相互配合运行，你可以对接到模拟器上面可以多开化应用。
这是界面：

界面1:
{
        请在下面输入话术:
        {
                输入框:
                {
                        名称:"输入框1",
                        提示内容:"提示用户应该输入什么内容",
                        初始文本:"你好在吗#小姐姐#哈喽",
                        仅输入数字:false,
                        密码:false,
                        文字大小:0,
                        最大输入长度:0,
                        高度:0,
                        宽度:0,
                        注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性，如需使用默认值，可保持值为0或直接删除此属性"
                },        

        },        

}

这是代码：

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

布局名称 = "豆瓣24小时顶贴软件定制版v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称) 
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "进入豆瓣小组页面后，启动本软件") 
 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