求一个微信自动打招呼脚本?


求一个微信自动打招呼脚本?

文章插图
Dim intX, intYDim intX1, intY1Dim intX2, intY2Dim intX3, intY3KeepScreen True屏幕宽度 = GetScreenX()屏幕高度 = GetScreenY()If Not (屏幕宽度 = 600 And 屏幕高度 = 1024) ThenShowMessage "屏幕分辨率必须是600*1024,即将退出"Delay 500EndScriptEnd IfKeyPress "Home", 1Delay 500RunApp "com.tencent.mm", ".plugin.nearby.ui.NearbyFriendsUI"Delay 8000Call 附近的人()Delay 1000Call 附近是否有人()Delay 1000Sub 附近是否有人()FindPic 0, 0, 600, 1024, "Attachment:2.png",0.9, intX, intYIf intX1 > 0 And intY1 > 0 ThenShowMessage "附近有人"Call 点击打招呼()ElseShowMessage "附近没人"EndScriptEnd IfEnd SubSub 写字并发送()InputText"你好,交个朋友吧"End SubSub 发送按钮找图()FindColorEx 0, 0, 600, 200, "1AC045", 0, 0.9, intX3, intY3If intX3 > 0 And intY3 > 0 ThenShowMessage "准备发送"ElseShowMessage "发送失败"EndScriptEnd IfEnd SubSub 附近的人()FindPic 0, 0, 540, 968, "Attachment:1.png", 0.9, intX, intY//如果没有找到,intX和intY的值都会被置为-1If intX > 0 And intY > 0 ThenShowMessage "成功查找到附近的人"ElseShowMessage "查找到附近的人失败"EndScriptEnd IfEnd SubSub 打招呼找图()FindColorEx 0, 0, 600, 1024, "1AC045", 0, 0.9, intX2, intY2If intX2 > 0 And intY2 > 0 ThenShowMessage"即将打招呼"ElseShowMessage "打招呼失败"EndScriptEnd IfEnd Sub//你试下
【求一个微信自动打招呼脚本?】

    推荐阅读