下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
其实抖音抢红包的插件网上真的非常多，但是真正能用到的没有几款，这种情况下我们怎么才能实现真正能抢到红包或者是能抢到更多的红包，用一般的插件肯定不行，因为别人也在后台抢，只能用这种深度定制版的插件才能实现更好的抢包效果，能最大的提高我们的抢包效益。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,时间,私信次数
布局名称 = "星辰抖音抢红包找直播间v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddButton(布局名称, "按钮2", "24小时全自动找直播间抢包")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 全自动点红包)
TracePrint UI.Show (布局名称)
Function 全自动点红包()
ShowMessage "准备自动化操作..."
UI.Close (布局名称)
End Function
For i = 1 To 999999999999
'先找红包图标
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
ShowMessage "找到了 准备抢包"
Tap intX,intY
Delay 2000
For i = 1 To 999999
'有没有出现
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
Delay 2000
KeyPress "Back"
ShowMessage i
Exit For
End If
'有没有出现
If intY1 = -1 Then
ShowMessage "还没有出现抢，等待中..."&i
End If
Next
End If
'先找红包图标
If intY = -1 Then
Swipe 314,914, 324,384,300
Delay 6500
ShowMessage "没找到继续切换下个直播间"
End If
//通过判断表达式的取值，来执行后面的动作或控制
Next
