婷庭九月天综合水蜜桃,青青青在线观看国产精品,亚洲精品无码AⅤ片青青在线观看

人妖在线一区,国产日韩欧美一区二区综合在线,国产啪精品视频网站免费,欧美内射深插日本少妇

公司動態(tài)

產品資訊

行業(yè)資訊

輕云服務器升級CN2線路有什么優(yōu)點

目標

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

準備

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

具體操作

信息和快捷方式準備

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

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

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

qq快捷方式

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

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" '聯(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自帶定時任務