QQ定时发消息vbs代码

#准备工作：

1.把需要定时发送消息的联系人生成快捷方式到桌面。

2.新建txt文本文件，将需要定时发送的内容写入该文件。

3.编写vbs代码。

4.新建Windows任务触发器。

（1）右键单击此电脑，选择管理。

（2）单击左侧“任务计划程序”，选择“创建任务”，输入任务名称“定时发送消息”，描述可以不写，完成后点击“触发器”。

（3）在“触发器”中根据需要选择运行时间，比如每天18:00（可根据需要随时调整）。

（4）选择“操作”，“启动程序”，点击“浏览”选择事先写好的代码。

（5）选择“条件”根据需要设置触发条件，最后选择确定。

#完整代码

Set Shell=Wscript.Createobject("Wscript.shell")
Shell.run "C:\Users\HP\Desktop\群消息文本.txt"
Wscript.Sleep 1000 '等待1秒
set WshShell = CreateObject("WScript.Shell")
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\HP\Desktop\张三.lnk"
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys ("^v")
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys "{ENTER}"
Wscript.Sleep 1000 '等待1秒
WshShell.SendKeys "%{F4}"
Wscript.Sleep 1000 '等待1秒
WSHshell.run "shutdown -f -s -t 00",0 ,true

代码结构相对简单，直接替换消息文本的txt文件和需要发送消息的联系人的快捷方式即可

默认执行脚本后关闭电脑，如不需要可删掉最后一行代码。