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

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