下载地址：https://www.pan38.com/share.php?code=pvvmX 提取码：8888
企业微信真的是需要这么一款软件，因为这个软件也是合法合规的，毕竟企业微信本身的定位就是网络营销，通过这种功能我们可以让营销的效果更强，所以这款软件就诞生了，他可以一键批量自动加好友，而且如果有人给你发消息了他还会自动检测最新消息然后回复这些消息内容非常的智能和搞笑，那么你想拥有这款企业微信自动加好友软件吗？你只需要查看下面代码即可。
源码部分：
'创建布局名称
Dim 布局名称,点击坐标,话术,分割话术,随机值,文本,id,结果
布局名称 = "半梦企业微信加好友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 = 0 To 99999
'找输入框
Dim intX1,intY1
FindPic 0,0,0,0,"Attachment:手机号.png","000000",4,0.9,intX1,intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1
TracePrint intY1
InputText 分割话术(i)
Delay 1000
TracePrint i
TracePrint 分割话术(i)
'找查找手机按钮
Dim intX2,intY2
FindPic 0,0,0,0,"Attachment:点击添加.png","000000",4,0.9,intX2,intY2
If intX2 > -1 And intY2 > -1 Then
TracePrint intX2
TracePrint intY2
Tap intX2, intY2
Delay 3000
'找添加为联系人
Dim intX21,intY21
FindPic 0,0,0,0,"Attachment:添加为联系人.png","000000",1,0.9,intX21,intY21
If intX21 > -1 And intY21 > -1 Then
TracePrint intX21
TracePrint intY21
Tap intX21, intY21
Delay 1500
'发送添加
Dim intXf,intYf
FindPic 0,0,0,0,"Attachment:发送邀请码.png","000000",1,0.9,intXf,intYf
If intXf > -1 And intYf > -1 Then
TracePrint intXf
TracePrint intYf
Tap intXf, intYf
Delay 2000
Tap 34, 90
Delay 1000
Tap 666,105
End If
'发送添加结束
End If
If intX21 = -1 Then
KeyPress "Back"
Delay 1000
Tap 674,97
End If
'找添加为联系人结束
AI 代码解读
End If
'找查找手机按钮结束
End If
'找输入框结束
Next
