【和平精英大厅喊话脚本】按键精灵源码，支持雷电模拟器

这款脚本主要是支持模拟器端的和平台精英，启动脚本后会在和平精英的综合大厅区固定的发送大厅内容，可以设置延迟时间，比如2分钟发一次或者是5分钟发一次，但是很多人说想要自动同意好友和自动回复的功能，其实这个功能开发起来有点难度我就没加，主要的功能就是大厅喊话，如果你有这方面的功能需求可以对代码进行二次开发，框架已经写好了。

界面代码：

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

        },        

}

核心代码：

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

布局名称 = "和平精英智能喊话软件v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称) 
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框1", "输入评论次数：") 

TracePrint UI.AddEditText(布局名称, "输入框1", "200",400,100) 
 TracePrint UI.NewRow(布局名称, "" )

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

TracePrint UI.AddEditText(布局名称, "输入框2", "20000",400,100) 
 TracePrint UI.NewRow(布局名称, "" )

TracePrint UI.AddButton(布局名称, "按钮2", "全自动大厅喊话稳定版") 
'设置名称为"按钮1"的控件的控件点击事件

TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)

Function 全自动点红包()
        点赞次数 = UI.GetText("输入框1")
        延迟时间=UI.GetText("输入框2")
        ShowMessage "准备自动化操作..."
        分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")

UI.Close (布局名称)

End Function

For i = 1 To 点赞次数

Tap 153,687

Delay 1000

//要产生指定范围的随机整数，请使用以下公式： 
//Int((最大值 - 最小值 + 1) * Rnd() + 最小值)
//例如产生2到6之间的随机数: 
Dim MyValue
Randomize  
MyValue = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)   
Traceprint MyValue

Import "shanhai.lua"

//取随机逻辑值
TracePrint shanhai.RndBool()
buer=shanhai.RndEx(2,999999)

InputText 分割话术(MyValue)&"###"&buer
Delay 2000

Tap 568,683
Tap 568, 683

Delay 2000

ShowMessage "准备下一轮喊话"

Delay 延迟时间

//Exit For

Next