微信自动加好友脚本

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

//你试下

据我所知，微信暂时还没有这样的功能。但是，我自己在用的一个软件就有这个功能，叫里德助手app。你下载好后，打开这个软件，在首页有一个叫拉新、拓客、加好友的栏目，有一个选项叫自动通过验证，点击之后，进行绑定微信，然后系统就会自己就会进行 *** 作啦，超方便的。重点是它是免费的！这个软件我用下来，暂时觉得比其他软件都好用一点。希望我的回答对你有帮助，谢谢！

---