下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
我们在前几篇文章就说了，快手的平台风控非常低，所谓风控低的意思就是说平台的限制比较少，所以我们不管是私信操作还是点赞关注收藏操作他都能直接触达用户，不会被平台拦截，这样我们才能实现最好的营销效果，有了营销效果就说明我们能引流更多的用户和流量，有了流量我们还怕赚不到钱吗？所以说我们一定要加油努力，好好利用软件的功能为我们创造更多的价值。
源码部分：
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果,时间,端口,分隔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", "ID显示区：") TracePrint UI.AddEditText(布局名称, "输入框4", "每个ID中间用#分隔")'显示名称为：布局名称 的布局控件 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(布局名称)
话术 = Sys.GetClipText()
TracePrint 话术
分隔ID=Split(话术,"#")
TracePrint 话术 TracePrint 分隔ID(1) TracePrint UI.SetText("输入框4",话术)
End Function
'创建一个初始化处理函数Function 点我初始化()
End Function
For i = 1 To UBound(分隔ID)
Tap 278,90Tap 278,90Delay 1000InputText 分隔ID(i)ShowMessage "输入ID"
Delay 1000Tap 650,91Delay 3000ShowMessage "进入主页"//进入关注后私信Dim intX,intYFindPic 0,0,0,0,"Attachment:关注.png","000000",0,0.9,intX,intYIf intX > -1 And intY > -1 Then TracePrint intX TracePrint intY Tap intX, intY ShowMessage "操作关注" Delay 1000 Tap intX - 200, intY Delay 2500 //发送私信 Dim intX1,intY1FindPic 0,0,0,0,"Attachment:发私信.png","000000",0,0.9,intX1,intY1If intX1 > -1 And intY1 > -1 Then TracePrint intX1 TracePrint intY1 Tap intX1, intY1 Delay 2000
//输入消息
Dim intX2,intY2
FindPic 0,0,0,0,"Attachment:输入消息.png","000000",0,0.9,intX2,intY2If intX2 > -1 And intY2 > -1 Then TracePrint intX2 TracePrint intY2 Tap intX2, intY2 Delay 200
Dim MyValueRandomizeMyValue = Int(((UBound(分割话术)-2+1) * Rnd()) + 1)Traceprint MyValue
InputText 分割话术(MyValue)
Delay 1000//发送消息Dim intX3,intY3FindPic 0,0,0,0,"Attachment:点击发送.png","000000",0,0.9,intX3,intY3If intX3 > -1 And intY3 > -1 Then TracePrint intX3 TracePrint intY3 Tap intX3,intY3ShowMessage "准备发送"
End If//发送消息
//返回主页KeyPress "Back"Delay 1000KeyPress "Back"Delay 1000KeyPress "Back"Delay 1000KeyPress "Back"Delay 1000//返回主页
End If //输入消息
End If //发送私信
//如果么有私信则返回
If intY1 = -1 Then KeyPress "Back" Delay 1000 KeyPress "Back" Delay 1000End If
//如果么有私信则返回
End If
//进入关注后私信
//没有出现关注就返回If intY = -1 Then
KeyPress "Back"Delay 1000
End If//没有出现关注就返回
//这里的脚本可以循环10次
Next