下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
其实这种工具插件是存在的，就是利用了QQ的漏洞来实现这种效果的，但是我们不提倡，毕竟这种方法是违背了腾讯的相关规则的，那么怎么才能实现这种效果呢，其实我早就吧相关的接口和软件写出来了，然后这个软件我测试了一下，居然能正常跑通，这让我高兴了很久，毕竟是自己的成果。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果
布局名称 = "起点QQ加好友软件v1.1"
'创建一个名称为布局名称的布局控件
TracePrint UI.Newlayout (布局名称)
'添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
TracePrint UI.AddEditText(布局名称, "输入框1", "我对你的产品感兴趣#感兴趣奥#怎么联系啊")
TracePrint UI.NewRow(布局名称, "new_row")
TracePrint UI.AddEditText(布局名称, "输入框2", "读取的数据...")
'显示名称为：布局名称 的布局控件
TracePrint UI.NewRow(布局名称, "new_row")
'创建一个名称为"按钮1"，标题为:"点我初始化"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮1", "点我初始化数据")
'创建一个名称为"按钮1"，标题为:"全自动打招呼"的按钮控件
TracePrint UI.AddButton(布局名称, "按钮2", "全自动后台打招呼")
'设置名称为"按钮1"的控件的控件点击事件
TracePrint UI.SetOnClick("按钮1", 点我初始化)
TracePrint UI.SetOnClick("按钮2", 点我私信)
TracePrint UI.Show (布局名称)
Function 点我私信()
UI.Close (布局名称)
End Function
'创建一个初始化处理函数
Function 点我初始化()
UI.SetText("输入框2",Sys.GetClipText())
TracePrint UI.GetText("输入框2")
分割话术 = Split(UI.GetText("输入框2"), "#")
TracePrint 分割话术(1)
End Function
For i = 1 To 999
TracePrint i
Tap 327, 191
Delay 1000
InputText 分割话术(i)
Delay 1000
Tap 132, 195
Delay 1500
'判断是否有加人按钮出现
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,intY
Delay 1000
Tap 279, 410
Delay 1000
Tap 639, 90
Delay 1000
KeyPress "Back"
Delay 1000
KeyPress "Back"
Delay 1500
End If
'判断是否有加人按钮出现
TracePrint intY&11111111111111
'没有出现加人
If intX = -1 Then
KeyPress "Back"
Delay 1000
End If
'没有出现加人
ShowMessage "加了一次"
Next
