文章插图
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//你试下
【求一个微信自动打招呼脚本?】
推荐阅读
- DNF武器在哪里强化? DNF武器强化的地方
- 为什么微信状态只能输入表情 微信状态只能发表情
- 闺蜜伤心时安慰的话 闺蜜伤心时安慰的话分享
- 好听又吉利的微信昵称 寓意吉祥的微信昵称
- 微信朋友头像点开右上角有个圆圈是啥意思 右上角有个圆圈的含义
- 一个男生他叫我 小迷妹 我叫他什么
- 四季梅的栽植方法 四季梅的栽植方法简述
- 南京大学金陵学院教务网密码忘了怎么办??? 跪求师兄师姐指点
- cad2005的注册问题,求新序列号与激活码
- 求死亡通知单结局.最后文成宇的尸体被谁偷走了?