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

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：

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

最新问答

纯电时代还远么？日本计划将在2035年禁售燃油新车

穿越火线一共有几个人物？

“生活其实比什么都重要。”联系生活实际，谈谈你对这句话的理解？

百度是谁创办的

墙面插座底部盒子叫什么（暗盒不是露在外面的明盒）

1Nm等于多少公斤力？