微信自动加好友脚本

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

//你试下

在微信找附近的人，然后选择添加。

步骤：

一、打开微信。

二、点击【发现】。

三、点击【附近的人】。

四、进入后点击【开始查看】。

五、如图，微信会自动筛选附近的人由近及远排列。

六、在加好友之前，必须先跟对方打招呼，否则无法通过验证。

七、对方通过验证成为好友。

扩展资料：

用附近的人一般情况下很难加上身边的人。方圆几百米的范围，距离已经不算是很近，而且能显示在你微信上的人也是随机的。刚开始的时候，微信的附近的人的距离是非常准确的，有的时候你坐公交车都可以加到同车的人。

但是这也为一些居心不良的人提供了方便，所以后来微信就改变了设置，附近的人不再那么精准，只能显示个大致范围。

其实大家不再用“附近的人”的功能也很容易理解，微信已经成为熟人社交工具，而且微信已成为在网络上的实名标识，已经无法装作一个陌生人随便加一个人聊天。每个人在加好友的时候已经非常谨慎，加个陌生人（微商除外）有多难。

主动加都没什么用的，要让别人来加的

1、脚本可以实现模拟器多开

2、设置好话术和基本信息

3、全自动八戒引流脚本， *** 作简单

4、不要选择什么免费的，没售后保证的

希望上述几点能帮到你，望采纳，谢谢

---