vbs腳本和windows定時(shí)任務(wù)實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送功能

更新時(shí)間：2022年01月16日 13:11:58 作者：captianzou

這篇文章主要介紹了vbs腳本和windows定時(shí)任務(wù)實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送,整個(gè)過(guò)程不用過(guò)多的程序運(yùn)行，我們借助vbs腳本和windows定時(shí)任務(wù)去實(shí)現(xiàn)這一功能，需要的朋友可以參考下

目標(biāo)

在某個(gè)時(shí)間喚醒電腦屏幕后，自動(dòng)發(fā)送qq信息，并附帶表情包，發(fā)送完畢后關(guān)閉電腦屏幕。整個(gè)過(guò)程不用過(guò)多的程序運(yùn)行，我們借助vbs腳本和windows定時(shí)任務(wù)去實(shí)現(xiàn)這一功能。

準(zhǔn)備

vbs代碼
qq信息txt文本
qq文件表情包文件
發(fā)送聯(lián)系人的快捷方式
3個(gè)windows任務(wù)

具體操作

信息和快捷方式準(zhǔn)備

qq信息txt文本和表情包文件

桌面新建文本輸入要發(fā)送的信息，保存為abc.txt，

桌面新建文件，把要放的表情包放進(jìn)里面，保存為abd

qq快捷方式

把聯(lián)系人拖到桌面生成快捷方式，記住，qq保持登錄狀態(tài)

vbs腳本

程序具體改動(dòng)見代碼注釋

Set objShell = CreateObject("Wscript.Shell") 
WScript.Sleep 3000
objShell.SendKeys "{ESC}" 
WScript.Sleep 7000 '等待時(shí)間設(shè)置7秒是為了給足時(shí)間電腦啟動(dòng)
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" '聯(lián)系人快捷方式保存地址
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" '聯(lián)系人快捷方式保存地址
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自帶定時(shí)任務(wù)

喚醒電腦

在“此電腦”右鍵后點(diǎn)擊管理，找到任務(wù)計(jì)劃程序，點(diǎn)擊“創(chuàng)建任務(wù)”，輸入名稱“喚醒電腦”，在常規(guī)中勾上“使用最高權(quán)限運(yùn)行”，在觸發(fā)器中填入喚醒時(shí)間，在操作中輸入程序“notepad.exe”，在條件中勾上“喚醒計(jì)算機(jī)運(yùn)行此任務(wù)”。然后確定即可。

發(fā)送信息

基本與喚醒電腦一致，注意的是要選擇合適的發(fā)送時(shí)間，以及要在操作中瀏覽選擇vbs腳本。

關(guān)閉電腦

基本與喚醒電腦一致，注意的是在操作中，輸入程序“shutdown.exe",并且添加參數(shù)”-h“。

最后

電腦出現(xiàn)4個(gè)圖標(biāo)后就可以躺下等待半夜自動(dòng)發(fā)送信息了。
qq保持登錄狀態(tài)，然后電腦休眠就行了。

qq發(fā)送信息后就關(guān)機(jī)了。

到此這篇關(guān)于vbs腳本和windows定時(shí)任務(wù)實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送的文章就介紹到這了,更多相關(guān)vbs腳本實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: