vbs脚本和windows定时任务实现qq消息表情包定时发送功能
更新时间：2022年01月16日 13:11:58 作者：captianzou
这篇文章主要介绍了vbs脚本和windows定时任务实现qq消息表情包定时发送,整个过程不用过多的程序运行，我们借助vbs脚本和windows定时任务去实现这一功能，需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
目标
在某个时间唤醒电脑屏幕后，自动发送qq信息，并附带表情包，发送完毕后关闭电脑屏幕。整个过程不用过多的程序运行，我们借助vbs脚本和windows定时任务去实现这一功能。
准备
vbs代码
qq信息txt文本
qq文件表情包文件
发送联系人的快捷方式
3个windows任务
具体操作
信息和快捷方式准备
qq信息txt文本和表情包文件
桌面新建文本输入要发送的信息，保存为abc.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\Desktop\abc.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:\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自带定时任务
唤醒电脑
在“此电脑”右键后点击管理，找到任务计划程序，点击“创建任务”，输入名称“唤醒电脑”，在常规中勾上“使用最高权限运行”，在触发器中填入唤醒时间，在操作中输入程序“notepad.exe”，在条件中勾上“唤醒计算机运行此任务”。然后确定即可。
发送信息
基本与唤醒电脑一致，注意的是要选择合适的发送时间，以及要在操作中浏览选择vbs脚本。
关闭电脑
基本与唤醒电脑一致，注意的是在操作中，输入程序“shutdown.exe",并且添加参数”-h“。
最后
电脑出现4个图标后就可以躺下等待半夜自动发送信息了。
qq保持登录状态，然后电脑休眠就行了。
qq发送信息后就关机了。
到此这篇关于vbs脚本和windows定时任务实现qq消息表情包定时发送的文章就介绍到这了,更多相关vbs脚本实现qq消息表情包定时发送内容请搜索程序员之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持程序员之家！
相关文章
VBScript的入门学习资料...2006-11-11
VBS教程：VBScript 基础-使用循环语句...2006-11-11
VBS教程：方法-Raise 方法...2006-11-11
新建一个vbs文件（C:\vbs\Getfavorites.vbs），再新建一个bat文件（Getfavorites.bat），执行bat文件，收藏夹里的所有项目都会被写入到C:\vbs\Getfavorites_result.txt文件中。2009-04-04
vbs 用于查找硬盘所有分区中指定扩展名文件的代码，有需要的朋友可以参考下。挺实用的一段代码，用来深入学习vbs，确实不错2014-05-05
用vbs实现随机读取文件的一行内容的脚本...2007-10-10
VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
用ADSI+ASP添加IP到IIS禁止访问列表中2008-12-12
用vbs实现配置静态 IP 地址...2007-05-05
VBS教程：函数-Tan 函数...2006-11-11
在实际应用中，发现了一个问题，vbs跨盘移动文件夹无权限，权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除2008-10-10
最新评论