目標
在某個時間喚醒電腦螢幕後，自動傳送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傳送資訊後就關機了。
