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

2025-03-07 15:09:12

推荐回答（2个）

回答1：

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 //你试下

回答2：

我们的脚本原理就是，主播在直播时候，打开我们的松鼠直播管家系统，系统会自动筛选优质用户，会主动给用户发信息，照片，语音打招呼。智能回复。同时来提高主播的曝光度，减少主播的空挡期，来提高主播的收益

最新问答

求推荐好看的现代言情小说，虐一点没关系，只要结局是好的就可以！

浩方对战平台上有木有英雄连勇气传说，怎么联机，上面版本人比较多？

三星笔记本电脑自带的软件打不开了怎么办，打不开的时候电脑还显示“应用出现问题，请与你的系统管理员联

影响化学反应速率的因素有多种，生活中也有许多事例与此有关．（1）请根据下列生活实例写出所获得的有关

怎么把手机电影传到电脑上看知道的说下

和女朋友网友见面，聊了一会她说有点事先走了。用眼睛我感觉暗示了一下我，是什么意思？