資源描述:
《vbs腳本教程二(上下)》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、VBS腳本教程二(上)◎Vbs腳本編程簡明教程之九—妙用SendKeys簡化重復(fù)操作????每次開機的時候,你想自動登陸你的QQ或者網(wǎng)志嗎?巧妙使用VBS中的SendKeys命令(這個命令的作用就是模擬鍵盤操作,將一個或多個按鍵指令發(fā)送到指定Windows窗口來控制應(yīng)用程序運行),可以極大的方便我們的常用操作。其使用格式為:Object.SendKeysstring其中:Object:為WshShell對象,即腳本的第一行為:SetWshShell=WScript.CreateObject("WScript.Shell")將Object替換為WshShell
2、“string”:表示要發(fā)送的按鍵指令字符串,需要放在英文雙引號中。它包含如下內(nèi)容:.1.基本鍵:一般來說,要發(fā)送的按鍵指令都可以直接用該按鍵字符本身來表示,例如要發(fā)送字母“x”,使用“WshShell.SendKeys"x"”即可。當(dāng)然,也可直接發(fā)送多個按鍵指令,只需要將按鍵字符按順序排列在一起即可,例如,要發(fā)送按鍵“cfan”,可以使用“WshShell.SendKeys"cfan"”。2.特殊功能鍵:對于需要與Shift、Ctrl、Alt三個控制鍵組合的按鍵,SendKeys使用特殊字符來表示:Shift——+;Ctrl——^;Alt——%如要發(fā)送的組
3、合按鍵是同時按下Ctrl+E,需要用“WshShell.SendKeys"^e"”表示,如果要發(fā)送的組合按鍵是按住Ctrl鍵的同時按下E與C兩個鍵,這時應(yīng)使用小括號把字母鍵括起來,書寫格式為“WshShell.SendKeys"^(ec)"”,這里要注意它與“WshShell.SendKeys"^ec"”的區(qū)別,后者表示組合按鍵是同時按住Ctrl和E鍵,然后松開Ctrl鍵,單獨按下“C”字母鍵。由于“+”、“^”這些字符用來表示特殊的控制按鍵了,如何表示這些按鍵呢?只要用大括號括住這些字符即可。例如,要發(fā)送加號“+”,可使用“WshShell.SendKey
4、s"{+}"”。另外對于一些不會生成字符的控制功能按鍵,也同樣需要使用大括號括起來按鍵的名稱,例如要發(fā)送回車鍵,需要用“WshShell.SendKeys"{ENTER}"”表示,發(fā)送向下的方向鍵用“WshShell.SendKeys"{DOWN}"”表示。如果需要發(fā)送多個重復(fù)的單字母按鍵,不必重復(fù)輸入該字母,SendKeys允許使用簡化格式進行描述,使用格式為“{按鍵數(shù)字}”。例如要發(fā)送10個字母“x”,則輸入“WshShell.SendKeys"{x10}"”即可。例一:WshShell.SendKeys"^{ESC}u".代碼的含義為:按下Ctrl+E
5、sc組合鍵(相當(dāng)于按Win鍵)打開“開始”菜單,接著按U鍵打開“關(guān)機”菜單。例二:讓VBS腳本自動在記事本中輸入一行文字“hello,welcometocfan”。DimWshShellSetWshShell=WScript.CreateObject("WScript.Shell")WshShell.Run"notepad"WScript.Sleep2000//本行的含義為是腳本暫停2秒,給notepad一個打開的時間,有時時間太短可能導(dǎo)致后面的字符無法進入編輯區(qū)WshShell.AppActivate"無標題-記事本"http://AppActivate為尋找可執(zhí)行
6、程序的標題框,”無標題-記事本”內(nèi)容你的自己打開看一下WshShell.SendKeys"hello,welcometocfan"作業(yè)1:讓腳本自動輸入下面兩段小短句ThisisthemostwonderfuldayofmylifebecauseI'mherewithyounow作業(yè)2:讓腳本在輸入短句后自動關(guān)閉記事本,并保存文件名為“test”,注意關(guān)閉記事本可以直接使用組合按鍵Alt+F4來實現(xiàn)例三:制作能自動定時存盤的記事本我們最常用的記事本沒有Word、WPS那樣的自動定時存盤功能,其實利用VBS腳本再加上SendKeys命令,就能彌補這個遺憾。打開
7、記事本,輸入以下內(nèi)容(為容易描述和分析,把代碼分為四個部分):'第一部分:定義變量和對象DimWshSh.ell,AutoSaveTime,TXTFileNameAutoSaveTime=300000SetWshShell=WScript.CreateObject("WScript.Shell")TXTFileName=InputBox("請輸入你要創(chuàng)建的文件名(不能用中文和純數(shù)字):")'第二部分:打開并激活記事本W(wǎng)shShell.Run"notepad"WScript.Sleep200WshShell.AppActivate"無標題-記事本"'第三部分:
8、用輸入的文件名存盤WshShell.SendKeys