求一个微信自动搜索好友的脚本

这个问题说难不难，说简单不简单！但是基于对骗子的痛恨，我想能给你点建议和帮助，就都告诉你！

这种自动搜索好友的脚本有是有，但是需要你自己把号码导入，才会自动搜索添加，那这中间4位数就排列组合一下，也是一个不小的数字啊，你得加多久啊！基于这个原因，我建议还是从他的QQ号下手，从QQ号里找她的电话，或者寻找有用的数据！

Dim intX, intY

Dim intX1, intY1

Dim intX2, intY2

Dim intX3, intY3

KeepScreen True

屏幕宽度 = GetScreenX()

屏幕高度 = GetScreenY()

If Not (屏幕宽度 = 600 And 屏幕高度 = 1024) Then

ShowMessage "屏幕分辨率必须是600*1024，即将退出"

Delay 500

EndScript

End If

KeyPress "Home", 1

Delay 500

RunApp "com.tencent.mm", ".plugin.nearby.ui.NearbyFriendsUI"

Delay 8000

Call 附近的人()

Delay 1000

Call 附近是否有人()

Delay 1000

Sub 附近是否有人()

FindPic 0, 0, 600, 1024, "Attachment:2.png",0.9, intX, intY

If intX1 >0 And intY1 >0 Then

ShowMessage "附近有人"

Call 点击打招呼()

Else

ShowMessage "附近没人"

EndScript

End If

End Sub

Sub 写字并发送()

InputText"你好,交个朋友吧"

End Sub

Sub 发送按钮找图()

FindColorEx 0, 0, 600, 200, "1AC045", 0, 0.9, intX3, intY3

If intX3 >0 And intY3 >0 Then

ShowMessage "准备发送"

Else

ShowMessage "发送失败"

EndScript

End If

End Sub

Sub 附近的人()

FindPic 0, 0, 540, 968, "Attachment:1.png", 0.9, intX, intY

//如果没有找到，intX和intY的值都会被置为-1

If intX >0 And intY >0 Then

ShowMessage "成功查找到附近的人"

Else

ShowMessage "查找到附近的人失败"

EndScript

End If

End Sub

Sub 打招呼找图()

FindColorEx 0, 0, 600, 1024, "1AC045", 0, 0.9, intX2, intY2

If intX2 >0 And intY2 >0 Then

ShowMessage"即将打招呼"

Else

ShowMessage "打招呼失败"

EndScript

End If

End Sub

//你试下

微信一键添加好友软件可以大大提高添加好友的效率，比如：微友助手、朋友圈助手、微信助手等，可以帮助用户快速添加好友，节省时间，提高工作效率。 其中，微友助手支持多种自动添加好友功能，可根据微信号、QQ号、手机号、微信昵称、备注名称等信息添加好友，并可根据指定的地域、性别等条件自动添加好友。朋友圈助手功能更加强大，可以根据关键字搜索朋友圈并自动添加好友，还可以定时发送朋友圈动态，增强朋友圈曝光率。 微信助手则可以根据特定的添加好友关键字，搜索微信好友，自动添加好友，并可根据指定的关键字定时发送消息，提高消息的传播效果。

---