本文主要是介绍按键精灵2014微信群内给好友轮流发私信,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
给微信群内好友轮流发私信
1,界面如图
2,程序中要找的图片为
3,程序源码如下:
/**
*此版本适合windows版微信,电脑的分辨率需要调到1366*768
*/
x = 387 //第一行第一列的横坐标
y = 94//第一行第一列的纵坐标
h = Form1.InputBox1.Text //每页的行数,超过一页的一律填5行
page = Form1.InputBox2.Text //群中成员总共的页数
flag = 0
t = Form1.InputBox3.Text //延迟时间
For j = 0 To page-1
flag = flag + 1
For i = 0 To h*13-1
//计算xy轴的坐标
If i >= 13 And i < 26 Then
y1 = y + 116
z = x + 75 * (i-13)
ElseIf i >= 26 And i < 39 Then
y1 = y + 116 * 2
z = x + 75 * (i-26)
ElseIf i >= 39 And i < 52 Then
y1 = y + 116 * 3
z = x + 75 * (i - 39)
ElseIf i >= 52 And i < 65 Then
y1 = y + 116 * 4
z = x + 75 * (i-52)
Else
y1 = y
z = x + 75 * i
End If
MoveTo z, y1
Delay 1000
LeftClick 1
Delay t
//查找图片,找到了则发私信
FindPic 0,0,1500,1000,"Attachment:\2.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
//MessageBox "找到了"
MoveTo intX + 100, intY + 10 //移动到发消息按钮
Delay 1000
LeftClick 1
Delay t
/*按ctrl+v键粘贴要发送的内容*/
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
Delay 1000
MoveTo 1322, 704 //移动到发送按钮
Delay 1000
LeftClick 1
//Form1.InputBox4.Text = i
//Form1.InputBox5.Text = j
Delay 1000
MoveTo 22, 142 //移动到微信通讯录的头像处,点击再次进入聊群
Delay 1000
LeftClick 1
Delay 1000
MoveTo 347, 94
Delay 1000
LeftClick 1
Delay 1000
/*找到该发送页,继续给好友发私信*/
If flag > 1 Then
For p = 0 To flag-2
If flag < page Then
KeyPress "PageDown", 1
Delay 1000
End If
Next
End If
Else
MoveTo z, 40
//MessageBox "没找到"
LeftClick 1
End If
Delay 1000
Next
If flag < page Then
KeyPress "PageDown", 1
Delay 1000
End If
Next
这篇关于按键精灵2014微信群内给好友轮流发私信的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!