附近的人打招呼V1.0

//微信附近的人打招呼的脚本//开始按钮的响应事件
Event Form1.Button1.ClickT1 = BeginThread (senMsg())End Event//发送打招呼信息
Sub senMsg//读取文本框中要执行的人数personNumber = Form1.InputBox1.Text
//  MessageBox "人数是：" & personNumberDelay 100MsgArray = ReadMsg(SelectMsgFile)MsgNumber = UBound(MsgArray)//     MessageBox "消息数是：" & MsgNumberFor count = 1 To personNumberselectPerson = getRnd(1, 4)Call SlideScreenUp(selectPerson)selectMyMsg = getRnd(0, MsgNumber)
//      Msgbox "第 " & selectMyMsg & " 内容为：" & Cstr(MsgArray(selectMyMsg))Call ClickItem (1)Delay 1000//打招呼Call Plugin.Sys.SetCLB(Cstr(MsgArray(selectMyMsg)))//判断是否找到“发消息按钮”Delay 3000isFind = ClickHiIf isFind > 0 Then     Delay 3000Call PasteDelay 1000Call ClickSendDelay 2000 End If//返回，返回到附近的人列表Call ClickRetunNext
End Sub//带返回值的函数，读取提示语文件路径
Function SelectMsgFile()SelectMsgFile = Plugin.File.SelectFile()
End Function//读取提示语内容，返回提示语数组
Function ReadMsg(Path)Text = Plugin.File.ReadFileEx(path)
//  Msgbox "向目标文件读出文本内容为："& Text    ReadMsg  = Split(Text, "|")
End Function//查看读取到的内容
//Sub LogMsg(array)
//  ArrayLength = UBound(array)
//  If ArrayLength>=0 Then
//      i=0
//    For ArrayLength
//        Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(array(i))
//        i=i+1
//    Next
//  End If
//End Sub//获取随机数
Function getRnd(from, toNumber)RandomizegetRnd = Int(Rnd * (toNumber-from) + from )
End Function//点击指定条目
Sub ClickItem(index)//每一条的高度Dim  ItemHeightItemHeight = 67//第一条中心的Y坐标Dim  The1stY_coordinateThe1stY_coordinate = 168//所显示列表条目中心的X坐标Dim  ItemX_coordinateItemX_coordinate = 550y_coordinate  = (The1stY_coordinate + ItemHeight * (index - 1))MoveTo ItemX_coordinate, y_coordinate
//    MessageBox "ClickItem x= " & ItemX_coordinate & ", y = " & y_coordinateDelay 2110LeftDown 1Delay 20LeftClick 1Delay 3LeftUp 1Delay 3
End Sub//向上滑动屏幕，向上滑动count条
Sub SlideScreenUp(count)//每一条的高度Dim  ItemHeightItemHeight = 67//第一条中心的Y坐标Dim  The1stY_coordinateThe1stY_coordinate = 168//所显示列表条目中心的X坐标Dim  ItemX_coordinateItemX_coordinate = 550startY = The1stY_coordinate + ItemHeight * countMoveTo ItemX_coordinate, startYDelay 2110LeftDown 1Delay 20For c = 1 To count*13MoveTo ItemX_coordinate, startY - ItemHeight/13*cDelay 100NextMoveTo ItemX_coordinate, The1stY_coordinate-3Delay 100LeftUp 1Delay 20
End Sub//鼠标左键单击
Sub MyLeftClickLeftDown 1Delay 2LeftClick 1Delay 1LeftUp 1
End Sub//点击返回
Sub ClickRetunMoveTo 375, 111Delay 4547MyLeftClick
End Sub//点击“打招呼”：打招呼按钮的位置不一定，因为有的有“更多”有的没有
Function ClickHiDim checked_x
Dim checked_Y//这里点击窗口边缘很重要，为了更新屏幕显示，否则查不到对应颜色值
MoveTo 288, 73
Delay 1000
MyLeftClick FindCenterColor 450, 350, 451, 600, "1AC045", checked_x, checked_Y
MoveTo checked_x, checked_Y//MessageBox "rentun at " & checked_x & ", " & checked_Y
ClickHi = checked_Y
If checked_Y >0  Then Delay 500MyLeftClick
End IfEnd Function//点击发送
Sub ClickSendMoveTo 815, 107Delay 3000MyLeftClick//如果点击了发送就不需要点击返回了，返回到详细信息页面
//  Call ClickRetunEnd Sub//粘贴内容
Sub PasteKeyDown "Ctrl", 1Delay 30KeyDown "V", 1Delay 200KeyUp "V", 1Delay 100KeyUp "Ctrl", 1Delay 30
End Sub

附近的人打招呼V1.0相关推荐

模板-测试计划-AAA系统android应用V1.0.0测试计划
AAA系统android应用V1.0.0测试计划版本控制版本号日期作者审核人说明 V1.0 目录产品v1.0.0测试计划模板 1 1 项目简介部分 2 1.1 文档编写目的 2 1.2 ...
易人快递单打印软件 v1.0 绿色
Welcome to my blog! <script language="javascript" src="http://avss.b15.cnwg.cn/cou ...
易人邮局汇款单打印 v1.0 怎么用
Welcome to my blog! <script language="javascript" src="http://avss.b15.cnwg.cn/cou ...
开发者AI职业指南：CSDN《AI技术人才成长路线图V1.0》重磅发布
人工智能浪潮来袭,开发者应该怎么办?2018年1月16日,在刚刚召开的"AI生态赋能2018论坛"上,CSDN副总裁孟岩重磅发布了AI技术职业升级指南--<AI 技术人才成长 ...
《大厂算法面试题目与答案汇总，剑指offer等常考算法题思路，python代码》V1.0版...
为了进入大厂,我想很多人都会去牛客.知乎.CSDN等平台去查看面经,了解各个大厂在问技术问题的时候都会问些什么样的问题. 在看了几十上百篇面经之后,我将算法工程师的各种类型最常问到的问题都整理了出来, ...
nuke linux 插件,Nuke 插件：镜头光晕 Optical Flares v1.0.86（含预设）Win/Mac/Linux
[插件介绍] Video Copilot 强大的镜头光晕插件 Optical Flare 终于支持 Nuke软件啦(注:Nuke为节点式特效合成软件,AE为图层式特效合成软件)! Nuke版本的Op ...
背包问题九讲 v1.0
背包问题九讲 v1.0 目录第一讲 01背包问题第二讲完全背包问题第三讲多重背包问题第四讲混合三种背包问题第五讲二维费用的背包问题第六讲分组的背包问题第七讲有依赖的背包问题 ...
TensorFlow损失函数（loss function） 2017-08-14 11:32 125人阅读评论(0) 收藏举报分类：深度学习及TensorFlow实现（10）版权声明：
TensorFlow损失函数(loss function) 2017-08-14 11:32 125人阅读评论(0) 收藏举报分类: 深度学习及TensorFlow实现(10) 版权声明:本 ...
阿里 Midway 正式发布 Serverless v1.0，研发提效 50%
开源为了前端和 Node.js 的发展,Github:https://github.com/midwayjs/midway,点击直接跳转点 Star. 去年阿里提出 Serverless 架构,并利用 ...

附近的人打招呼V1.0

附近的人打招呼V1.0相关推荐

最新文章

热门文章