下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
粉丝群大家估计知道吧，都是博主的精准用户，比如我是卖猪肉的，那么我有粉丝群，而且粉丝群的用户数量还很高的话，那么这个粉丝群首先都是我的精准用户，如果不是精准用户一般人家是不会加粉丝群的，并且我们如果推出了什么销售活动也会第一时间在粉丝群进行分享的，所以粉丝群真的是精准的客户群体，如果我们批量加很多同行业的粉丝群，然后在这些粉丝群发送营销信息的话那么我们会有成交吗？答案是肯定的，只要粉丝群的粉丝性质和你的产品是挂钩的，那么一定有成交。
源码部分：
'创建布局名称
Dim 布局名称,虚拟欢迎,话术,次数,随机值,文本,id,结果,毫秒
布局名称 = "星辰加粉丝群分享卡片v1.3"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框2", "关注次数：")
TracePrint UI.AddEditText(布局名称, "输入框1", "200")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddTextView(布局名称, "文字框1", "设置毫秒：")
TracePrint UI.AddEditText(布局名称, "输入框3", "2000")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "初始化数据")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"关注主播", "转发卡片"},0)
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.Show (布局名称)
'创建一个初始化处理函数
Function 点我初始化()
UI.Close (布局名称)
次数 = UI.GetText("输入框1")
TracePrint 次数
毫秒=UI.GetText("输入框3")
TracePrint 毫秒
结果= UI.GetValue("选择功能")
TracePrint 结果["选择功能"]
虚拟欢迎 = UI.GetText("输入框4")
id = Array("孙xxx","文xxx","和xxx","孙xxx","爱xxx","换xxx","消xxx","在xxx","我xxx","是xxx","人xxx","额xxx","拍xxx","催xxx")
End Function
If 结果["选择功能"] = 0 Then
ShowMessage "关注主播"
For i = 1 To Int(次数)
Delay 毫秒
'找直播间图标
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 + 68, intY - 105
ShowMessage "点击主播"
Delay 2000
'找粉丝群图标
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 1000
'申请加入
Dim intX2,intY2
FindPic 0,0,0,0,"Attachment:申请加入.png","000000",0,0.9,intX2,intY2
If intX2 > -1 And intY2 > -1 Then
TracePrint intX2
TracePrint intY2
Tap intX2, intY2
Delay 1500
'条件不符合
Dim intX3,intY3
FindPic 0,0,0,0,"Attachment:条件不符合.png","000000",0,0.9,intX3,intY3
If intX3 > -1 And intY3 > -1 Then
TracePrint intX3
TracePrint intY3
ShowMessage "条件不符合"
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Swipe intX,intY, intX,139,1000
Delay 1000
End If
'条件不符合
'已成功申请
Dim intX6,intY6
FindPic 0,0,0,0,"Attachment:已成功申请.png","000000",0,0.9,intX6,intY6
If intX6 > -1 And intY6 > -1 Then
TracePrint intX6
TracePrint intY6
ShowMessage "已成功申请"
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Swipe intX,intY, intX,100,1000
End If
'已成功申请
End If
'申请加入
If intY2 = -1 Then
//满足条件，执行下面的脚本
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
Swipe intX,intY, intX,100,1000
End If
//通过判断表达式的取值，来执行后面的动作或控制
End If
'找粉丝群图标
If intY1 = -1 Then
KeyPress "Back"
Delay 1000
Swipe intX,intY, intX,120,1000
ShowMessage "刷新的主播"
End If
End If
'找直播间图标
If intY = -1 Then
Swipe 366,924, 352,605,1000
ShowMessage "刷新的主播"
End If
Next
End If
If 结果["选择功能"] = 1 Then
ShowMessage "自动分享"
'分享
For i = 1 To 99999999999
//这里的脚本可以循环10次
Delay 毫秒
'分享
Dim intX4,intY4
FindPic 0,0,0,0,"Attachment:分析.png","000000",0,0.9,intX4,intY4
If intX4 > -1 And intY4 > -1 Then
TracePrint intX4
TracePrint intY4
Tap intX4, intY4
Swipe intX4, intY4, 611, 173, 1000
End If
'分享
Next
End If
