使用手机自动化脚本实现QQ批量加好友

下载地址：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,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,intYDelay 1000Tap 279, 410Delay 1000Tap 639, 90Delay 1000KeyPress "Back"Delay 1000KeyPress "Back"Delay 1500

End If

'判断是否有加人按钮出现

TracePrint intY&11111111111111

'没有出现加人If intX = -1 Then KeyPress "Back" Delay 1000

End If '没有出现加人 ShowMessage "加了一次"

Next