本篇內容主要講解“怎么用vbs和windows實現qq消息表情包定時發送功能”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實用性強。下面就讓小編來帶大家學習“怎么用vbs和windows實現qq消息表情包定時發送功能”吧!
在某個時間喚醒電腦屏幕后，自動發送qq信息，并附帶表情包，發送完畢后關閉電腦屏幕。整個過程不用過多的程序運行，我們借助vbs腳本和windows定時任務去實現這一功能。
vbs代碼
qq信息txt文本
qq文件表情包文件
發送聯系人的快捷方式
3個windows任務
桌面新建文本輸入要發送的信息，保存為abc.txt，
桌面新建文件，把要放的表情包放進里面，保存為abd
把聯系人拖到桌面生成快捷方式，記住，qq保持登錄狀態
程序具體改動見代碼注釋
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消息表情包定時發送功能”有了更深的了解，不妨來實際操作一番吧！這里是億速云網站，更多相關內容可以進入相關頻道進行查詢，關注我們，繼續學習！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
