Dim WshShell,Path,i Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "{F5}" ---------------------------------------------------- 電腦的自動重啟
set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "^{ESC}u" WshShell.SendKeys "R" ---------------------------------------------------- 啟動任務管理器
set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "^+{ESC}" ---------------------------------------------------- QQ消息群發(fā)
Dim WshShell Set WshShell= WScript.createObject("WScript.Shell") WshShell.AppActivate "bomb" for i=1 to 60 WScript.Sleep 800 WshShell.SendKeys "Number0" WshShell.SendKeys i WshShell.SendKeys "%s" next ---------------------------------------------------- 自動到百度搜索歌曲:white flag
Dim WshShell, AutoSaveTime, TXTFileName AutoSaveTime=300000 Set WshShell=WScript.CreateObject("WScript.Shell") TXTFileName=InputBox("請輸入你要創(chuàng)建的文件名(不能用中文和純數(shù)字):")