//微信附近的人打招呼的脚本
//开始按钮的响应事件
Event Form1.Button1.Click
T1 = BeginThread (senMsg())
End Event
//发送打招呼信息
Sub senMsg
//读取文本框中要执行的人数
personNumber = Form1.InputBox1.Text
// MessageBox "人数是:" & personNumber
Delay 100
MsgArray = ReadMsg(SelectMsgFile)
MsgNumber = UBound(MsgArray)
// MessageBox "消息数是:" & MsgNumber
For count = 1 To personNumber
selectPerson = 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 3000
isFind = ClickHi
If isFind > 0 Then
Delay 3000
Call Paste
Delay 1000
Call ClickSend
Delay 2000
End If
//返回,返回到附近的人列表
Call ClickRetun
Next
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)
Randomize
getRnd = Int(Rnd * (toNumber-from) + from )
End Function
//点击指定条目
Sub ClickItem(index)
//每一条的高度
Dim ItemHeight
ItemHeight = 67
//第一条中心的Y坐标
Dim The1stY_coordinate
The1stY_coordinate = 168
//所显示列表条目中心的X坐标
Dim ItemX_coordinate
ItemX_coordinate = 550
y_coordinate = (The1stY_coordinate + ItemHeight * (index - 1))
MoveTo ItemX_coordinate, y_coordinate
// MessageBox "ClickItem x= " & ItemX_coordinate & ", y = " & y_coordinate
Delay 2110
LeftDown 1
Delay 20
LeftClick 1
Delay 3
LeftUp 1
Delay 3
End Sub
//向上滑动屏幕,向上滑动count条
Sub SlideScreenUp(count)
//每一条的高度
Dim ItemHeight
ItemHeight = 67
//第一条中心的Y坐标
Dim The1stY_coordinate
The1stY_coordinate = 168
//所显示列表条目中心的X坐标
Dim ItemX_coordinate
ItemX_coordinate = 550
startY = The1stY_coordinate + ItemHeight * count
MoveTo ItemX_coordinate, startY
Delay 2110
LeftDown 1
Delay 20
For c = 1 To count*13
MoveTo ItemX_coordinate, startY - ItemHeight/13*c
Delay 100
Next
MoveTo ItemX_coordinate, The1stY_coordinate-3
Delay 100
LeftUp 1
Delay 20
End Sub
//鼠标左键单击
Sub MyLeftClick
LeftDown 1
Delay 2
LeftClick 1
Delay 1
LeftUp 1
End Sub
//点击返回
Sub ClickRetun
MoveTo 375, 111
Delay 4547
MyLeftClick
End Sub
//点击“打招呼”:打招呼按钮的位置不一定,因为有的有“更多”有的没有
Function ClickHi
Dim 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 500
MyLeftClick
End If
End Function
//点击发送
Sub ClickSend
MoveTo 815, 107
Delay 3000
MyLeftClick
//如果点击了发送就不需要点击返回了,返回到详细信息页面
// Call ClickRetun
End Sub
//粘贴内容
Sub Paste
KeyDown "Ctrl", 1
Delay 30
KeyDown "V", 1
Delay 200
KeyUp "V", 1
Delay 100
KeyUp "Ctrl", 1
Delay 30
End Sub
附近的人打招呼V1.0
最新推荐文章于 2023-08-21 11:51:16 发布