下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
和平精英估计大家玩过吧，也就是我们所谓的吃鸡游戏，这个游戏的用户量非常高，估计几个亿都有的，那么这么大的用户量下我们不引流一波真的是对不起我们自己了，因为有流量的地方就有收益的，所以说我们就必须得引流一波，不引流的话我们就没有收入了对吧，哈哈废话太多了。
我们不说那些乱起八糟的东西，我们直接说正题，给大家分享我们的喊话插件和脚本吧，因为这个工具价值确实是非常高，作用也是非常的大。
源码部分：
'创建布局名称
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
