vbs脚本和windows定时任务实现qq消息表情包定时发送
功能
⽬标
在某个时间唤醒电脑屏幕后，⾃动发送qq信息，并附带表情包，发送完毕后关闭电脑屏幕。整个过程不⽤过多的程序运⾏，我们借助vbs脚本和windows定时任务去实现这⼀功能。
准备
vbs代码
qq信息txt⽂本
qq⽂件表情包⽂件
发送联系⼈的快捷⽅式
3个windows任务
具体操作
信息和快捷⽅式准备vbs脚本怎么停止
qq信息txt⽂本和表情包⽂件
桌⾯新建⽂本输⼊要发送的信息，保存为，
桌⾯新建⽂件，把要放的表情包放进⾥⾯，保存为abd
qq快捷⽅式
把联系⼈拖到桌⾯⽣成快捷⽅式，记住，qq保持登录状态
vbs脚本
程序具体改动见代码注释
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:\Users\captainzou\" '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:\Users\captainzou\Desktop\tanhuang.lnk" '联系⼈快捷⽅式保存地址
Wscript.Sleep 5000 '等待5秒
WshShell.SendKeys ("^v")
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys "%{F4}"
Wscript.Sleep 2000 '等待2秒
Shell.run "C:\Users\captainzou\Desktop\abd" '表情包保存地址
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:\Users\captainzou\Desktop\tanhuang.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秒
windows⾃带定时任务
唤醒电脑
在“此电脑”右键后点击管理，到任务计划程序，点击“创建任务”，输⼊名称“唤醒电脑”，在常规中勾上“使⽤最⾼权限运⾏”，在触发器中填⼊唤醒时间，在操作中输⼊程序“”，在条件中勾上“唤醒计算机运⾏此任务”。然后确定即可。
发送信息
基本与唤醒电脑⼀致，注意的是要选择合适的发送时间，以及要在操作中浏览选择vbs脚本。
关闭电脑
基本与唤醒电脑⼀致，注意的是在操作中，输⼊程序“"，并且添加参数”-h“。
最后
电脑出现4个图标后就可以躺下等待半夜⾃动发送信息了。
qq保持登录状态，然后电脑休眠就⾏了。
qq发送信息后就关机了。
到此这篇关于vbs脚本和windows定时任务实现qq消息表情包定时发送的⽂章就介绍到这了，更多相关vbs脚本实现qq消息表情包定时发送内容请搜索以前的⽂章或继续浏览下⾯的相关⽂章希望⼤家以后多多⽀持！

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。