目標

在某個時間喚醒電腦螢屏后，自動發送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秒