下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
我们一些是做MAC机构的，就需要给快手和抖音的一些主播发送私信来跟他们达成合作或者是给主播的粉丝发送私信想把自己的一些产品卖给一些垂直的主播的粉丝，因为那些主播的粉丝都是精准用户，这样的话营销效果也比较精准，手动的话非常麻烦，那么这个工具的价值就来了。
源码部分：
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口,分隔ID,最终年龄,最低年龄,年龄
布局名称 = "快手主播精准私信工具【客户端】v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddTextView(布局名称, "文字框2", "延迟时间：")
TracePrint UI.AddEditText(布局名称, "输入框3", "2000")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddTextView(布局名称, "文字框2", "使用提示：")
TracePrint UI.AddEditText(布局名称, "输入框4", "进入直播间后启动本软件！")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "点我初始化私信主播")
TracePrint UI.NewRow(布局名称, "new_row")
'TracePrint UI.AddRadioGroup(布局名称,"选择功能",{"普通私信", "截屏私信", "粉丝私信"},0)
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮2", 点我私信)
TracePrint UI.Show (布局名称)
Function 点我私信()
分割话术 = Split(ReadUIConfig("输入框1","这个作品666#我对你的产品感兴趣#感兴趣奥#怎么联系啊"), "#")
TracePrint UI.Close(布局名称)
End Function
'创建一个初始化处理函数
Function 点我初始化()
End Function
For i = 1 To 99999999999999999999999999999
Delay 1000
//点击主播头像
Tap 57,82
ShowMessage "进入主播账号主页"
Delay 2000
Tap 361, 436
ShowMessage "进入主页"
Delay 1500
//进入私信
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
ShowMessage "准备进行私信操作"
Tap intX1, intY1
Delay 2000
Tap 293, 1110
//输入内容
Dim MyValue
Randomize
MyValue = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)
Traceprint MyValue
Delay 20
InputText 分割话术(MyValue)
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 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 2000
ShowMessage "准备切换直播间"
Swipe 702,1093, 702,43,50
Delay 1000
End If
//发送内容
End If
//进入私信
//点击主播头像
//这里的脚本可以循环10次
Next
