目标
在某个时间唤醒电脑屏幕后,自动发送qq信息,并附带表情包,发送完毕后关闭电脑屏幕。整个过程不用过多的程序运行,我们借助vbs脚本和windows定时任务去实现这一功能?/p>
准备
vbs代码
qq信息txt文本
qq文件表情包文?br />发送联系人的快捷方?br />3个windows任务
具体操作
信息和快捷方式准?/h3>
qq信息txt文本和表情包文件
桌面新建文本输入要发送的信息,保存为abc.txt?/p>

桌面新建文件,把要放的表情包放进里面,保存为abd

qq快捷方式
把联系人拖到桌面生成快捷方式,记住,qq保持登录状?/p>
vbs脚本
程序具体改动见代码注?/p>
Set objShell = CreateObject("Wscript.Shell")
WScript.Sleep 3000
objShell.SendKeys "{ESC}"
WScript.Sleep 7000 '等待时间设置7秒是为了给足时间电脑启动
objShell.SendKeys "{ESC}"
WScript.Sleep 3000
Set Shell=Wscript.Createobject("Wscript.shell")
Shell.run "C:UserscaptainzouDesktopabc.txt" 'qq信息文件保存地址
Wscript.Sleep 1000 '等待1?
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys ("^a")
Wscript.Sleep 2000 '等待1?
WshShell.SendKeys ("^c")
Wscript.Sleep 2000 '等待1?
WshShell.SendKeys "%{F4}"
Wscript.Sleep 1000 '等待1?
Shell.run "C:UserscaptainzouDesktop anhuang.lnk" '联系人快捷方式保存地址
Wscript.Sleep 5000 '等待5?
WshShell.SendKeys ("^v")
Wscript.Sleep 1000 '等待1?
WshShell.SendKeys "%{F4}"
Wscript.Sleep 2000 '等待2?
Shell.run "C:UserscaptainzouDesktopabd" '表情包保存地址
Wscript.Sleep 2000 '等待2?
WshShell.SendKeys ("^a")
Wscript.Sleep 1000 '等待1?
WshShell.SendKeys ("^c")
Wscript.Sleep 1000 '等待1?
WshShell.SendKeys "%{F4}"
Wscript.Sleep 1000 '等待1?
Shell.run "C:UserscaptainzouDesktop anhuang.lnk" '联系人快捷方式保存地址
Wscript.Sleep 1000 '等待1?
WshShell.SendKeys ("^v")
Wscript.Sleep 4000 '等待4?
WshShell.SendKeys "{ENTER}"
Wscript.Sleep 1000 '等待1?
WshShell.SendKeys "%{F4}"
Wscript.Sleep 1000 '等待1?/pre>
windows自带定时任务

唤醒电脑
?ldquo;此电?rdquo;右键后点击管理,找到任务计划程序,点?ldquo;创建任务”,输入名?ldquo;唤醒电脑”,在常规中勾?ldquo;使用最高权限运?rdquo;,在触发器中填入唤醒时间,在操作中输入程?ldquo;notepad.exe”,在条件中勾?ldquo;唤醒计算机运行此任务”。然后确定即可?/p>

发送信?/p>
基本与唤醒电脑一致,注意的是要选择合适的发送时间,以及要在操作中浏览选择vbs脚本?/p>

关闭电脑
基本与唤醒电脑一致,注意的是在操作中,输入程?ldquo;shutdown.exe",并且添加参数”-h“?/p>

最?/p>
电脑出现4个图标后就可以躺下等待半夜自动发送信息了?br />qq保持登录状态,然后电脑休眠就行了?/p>

qq发送信息后就关机了?/p>

到此这篇关于vbs脚本和windows定时任务实现qq消息表情包定时发送的文章就介绍到这了,更多相关vbs脚本实现qq消息表情包定时发送内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家!