轻松打造定时QQ群发器MiniQQ+VBS
其实Cornel存在着这样的烦恼,我们在日常生活中也遭遇过这样的情况:我们总希望在逢年过节前,通过QQ给网友送去祝福语,但是到时事务繁忙,可能会过了头才记起来,送到的祝福迟到了。现在如果有个能定时发送祝福的QQ群发软件那问题就解决了。
经过一番摸索,借助MiniQQ,偶编写了个蹩脚的VBS程序,马马虎虎也算是解决了问题:
第一步:先下载MiniQQ(下载地址:http://www.prettysky.com/miniqq/)。解压后,将其中的MiniQQ2.2.exe复制到某一目录中,比如D:\AutoQQ文件夹下;
第二步:在上一步建立的文件夹(D:\AutoQQ)中新建一名为AutoQQ.vbs脚本文件,具体内容如下:
Dim WshShell,QQPath
QQPath="D:\AutoQQ\Miniqq2.2.exe" '这里填写MiniQQ程序的具体路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.SendKeys "QQ号码" '这里填写用于发送消息的QQ号码
WshShell.SendKeys "{ENTER}"
WScript.Sleep 200
WshShell.SendKeys "QQ密码" '这里填写用于发送消息的QQ密码
Wscript.Sleep 200
WshShell.SendKeys "{ENTER}"
Wscript.Sleep 200
WshShell.SendKeys "y" '选择是否隐身:y-隐身,n-不隐身
WshShell.SendKeys "{ENTER}"
Wscript.Sleep 2000
WshShell.SendKeys "send 好友1QQ号 " '号字后面有一空格
WshShell.SendKeys "^{ }" '切换到中文输入法状态(以五笔加加输入法为例)
WshShell.SendKeys "ygeggc ywfflkd mhhk! {ENTER}" '输入消息文字(此处为:请到论坛回帖!)的字根编码并回车
WshShell.SendKeys "^{ }" '切换到英文输入法状态
WshShell.SendKeys "..{ENTER}" '退出与好友1的聊天状态
Wscript.Sleep 200
WshShell.SendKeys "send 好友2QQ号码 " '号字后面有一空格
WshShell.SendKeys "^{ }" '切换到中文输入法状态(以五笔加加输入法为例)
WshShell.SendKeys "ygeggc ywfflkd mhhk! {ENTER}" '输入消息文字(此处为:请到论坛回帖!)的字根编码并回车
WshShell.SendKeys "^{ }" '切换到英文输入法状态
WshShell.SendKeys "..{ENTER}" '退出与好友2的聊天状态
Wscript.Sleep 200
....
WshShell.SendKeys "send 好友nQQ号" '号字后面有一空格
WshShell.SendKeys "^{ }" '切换到中文输入法状态(以五笔加加输入法为例)
WshShell.SendKeys "ygeggc ywfflkd mhhk! {ENTER}" '输入消息文字(此处为:请到论坛回帖!)的字根编码并回车
WshShell.SendKeys "^{ }" '切换到英文输入法状态
WshShell.SendKeys "..{ENTER}" '退出与好友n的聊天状态
Wscript.Sleep 200
WshShell.SendKeys "exit{ENTER}"
第三步:打开控制面板,点击“性能与维护”选项,在弹出的窗口中选择“任务计划”,双击“添加任务计划”,根据“任务计划向导”提示,通过“浏览”按钮选择AutoQQ.vbs将其设置为计划任务,设置好运行时间、运行频率、起始时间等选项,并输入密码。
时辰一到,计划任务运行,无需任何干预即可完成定制消息的自动发送。忽然听闻MiniQQ运行时欢快的“吱吱”声,蓦然惊醒时想必你的心情也很愉快吧?
说明:
1.第一次运行AutoQQ.vbs,必须解除防火墙对MiniQQ的限制(见图);
2. 受限于MS-DOS窗口复制、粘贴必须通过鼠标键(左键或右键)完成,故无法利用SendKeys在MS-DOS窗口中进行复制、粘贴文字操作,但可以用 SendKeys直接输入消息文字。而SendKeys只能输入字母、数字或符号键,不能直接输入中文文字,所以要想输入中文消息时必须将文字内容先转换 为字根编码(字母键及数字键)。当然这里可以根据需要给不同的好友定制发送