433
Vbs腳本經典教材
Vbs腳本經典教材(最全的資料還是MSDN)
—為什麼要使用Vbs？
在Windows中，學習計算機操作也許很簡單，但是很多計算機工作是重複性勞動，例如你每周也許需要對一些計算機文件進行複製、粘貼、改名、刪除，也許你每天啟動計算機第一件事情就是打開WORD，切換到你喜愛的輸入法進行文本編輯，同時還要播放優美的音樂給工作創造一個舒心的環境，當然也有可能你經常需要對文本中的某些數據進行整理，把各式各樣的數據按照某種規則排列起來……。這些事情重複、瑣碎，使人容易疲勞。
第三方軟件也許可以強化計算機的某些功能，但是解決這些重複勞動往往事倍功半，我也嚐試過使用計算機語言編寫程序來解決這些問題，但是隨之而來的命令、語法、算法、係統框架和類庫常常讓我覺得這樣是否有必要，難道就是因為豬毛比較難拔，所以我就要去學習機械，為自己設計一個拔豬毛機（？）嗎？
Vbs是一種Windows腳本，它的全稱是:Microsoft Visual Basic Script Editon.(微軟公司可視化BASIC腳本版)，VBS是Visual Basic的的一個抽象子集，是係統內置的，用它編寫的腳本代碼不能編譯成二進製文件，直接由Windows係統執行（實際是一個叫做宿主host的解釋源代碼並執行），高效、易學，但是大部分高級語言能幹的事情，它基本上都具備，它可以使各種各樣的任務自動化，可以使你從重複瑣碎的工作中解脫出來，極大的提高工作效率。
我個人認為Vbs腳本其實就是一種計算機編程語言，但是由於缺少計算機程序設計語言中的部分要素，對於事件的描述能力較弱，所以稱為腳本，它最方便的地方就是提供了對COM對象的簡便支持。那麼什麼是COM對象呢？
我這樣理解，COM對象就是一些具有特定函數功能項程序模塊，他們一般以ocx或者dll作為擴展名，你隻要找到包含有你需要的功能的模塊文件，並在腳本中規範的引用，就可以實現特定的功能，也就是說Vbs腳本就是調用現成的“控件”作為對象，用對象的屬性和方法實現目的，完全免去了編寫代碼、設計算法等等麻煩。說白了，我不是覺得拔豬毛麻煩麼？我發覺xx機（比如真空離心器）有一個功能可以實現脫毛，ok，我把它拿來給豬脫毛。什麼？大材小用？太浪費資源了？天哪，那是計算機芯片的事情，死道友不死貧道，反正我的事情是方便快速的解決了，這就行了。
最方便的是它甚至不需要專門的開發環境，在你的計算機中，隻要有notepad，就可以編寫Vbs腳本了，並且可以直接執行。
Vbs腳本編程簡明教程之二
如何開始第一個Vbs腳本？
就像多數計算機教程一樣 ，我們從“Hello World！”程序開始我們的練習。什麼？不知道是什麼意思？就是說大部分的計算機程序設計教程開篇入門都是編寫一個小程序，執行這個程序的結果就是在計算機的屏幕上或者dos窗口中顯示一行文字：Hello World！好了，我們開始吧。
打開你的“記事本”程序，在編輯窗口填寫：
msgbox "Hello World!"
然後用鼠標單擊“文件”菜單，單擊“保存”，把“保存在”一欄設為桌麵，在“文件名”一欄中填寫kk.vbs，單擊“保存”就可以了。然後最小化“記事本”窗口，在桌麵上尋找你剛剛保存的kk.vbs，然後雙擊。看到彈出的對話框了沒有，單擊“確定”，對話框消失了。難看了點，不過確實是你編寫的第一個腳本程序。
說明之一：上麵的操作中，保存位置放在桌麵，僅僅是為了執行方便，你保存到其他的地方完全沒有問題，隻要你知道你保存在什麼地方就可以了，什麼？是廢話，自己保存的當然知道保存在那裏了。不，自己保存的文件自己找不到的人我見的多了去了。文件名你可以隨意填寫，不一定非要寫kk，隻要符合Windows的文件命名規則就可以了，但是擴展名必須是vbs，什麼?不知道什麼是擴展名？就是文件名中“.”後的那部分，簡單說，就是vbs腳本文件命名時必須是：xxx.vbs，其中xxx你隨意。
說明之二：在記事本編輯窗口中寫的這行是什麼意思？
Msgbox是VBS內建的函數，每一個函數都可以完成一定的功能，你隻需要按照語法要求，在函數的相應部分填寫相應的內容就可以了，這部分內容我們稱為參數，當然函數執行的結果我們稱為返回值，一個函數可以有返回值也可以沒有，可以有參數也可以沒有。你不用了解函數是怎麼運作的，隻要了解這個函數能幹什麼就行了。
Msgbox語法：msgbox "對話框內容", , "對話框的標題"
你不妨用記事本打開剛才的文件在編輯窗口中輸入：
msgbox "Hello World!" , , "係統提示"
執行一下，看看效果和位置。
說明之三：如果執行失敗，看看你的標點符號，所有的標點符號必須是在英文狀態下輸入的。當然，這個腳本實在是太簡單了，甚至連最簡單的交互都沒有，所以你可以把腳本這樣修改一下：
Dim name
name=Inputbox("請輸入你的名字:","名稱")
Msgbox name, , "您的名字是"
保存執行一下，看到彈出的對話框了麼？填入你的名字，點確定，看到結果了嗎？
說明之一：第一句是定義變量，dim是定義變量的語句
其格式為：dim 變量1,變量2……，
Vbs隻有一種變量類型，所以不用聲明變量類型。係統會自動分辨變量類型。
說明之二：inputbox是VBS內建的函數，可以接受輸入的內容，其語法格式為：
Inputbox("對話框內容","對話框標題")
第二句的意思是接受用戶的輸入，並把輸入結果傳遞給變量name。
好了，到此腳本基本的輸入輸出函數都有了，已經可以完成一些比較簡單的功能了，你可以編寫一個簡單的腳本，然後拷貝的“程序”—>“啟動”中，然後重新啟動計算機看看結果
Vbs腳本編程簡明教程之三
Vbs的基本語法（牢記）
VBScript基礎知識
一、變量
1、所有單引號後麵的內容都被解釋為注釋。
2、在VBScript中，變量的命名規則遵循標準的命名規則，需要注意的是：在VBScript中對變量、方法、函數和對象的引用是不區分大小寫的。在申明變量時，要顯式地申明一個變量，需要使用關鍵字DIm來告訴VBScript你要創建一個變量，並將變量名稱跟在其後。申明多個同類型變量，可以用逗號分隔。注意：VBScript中不允許在申明變量的時候同時給變量賦值。但是允許在一行代碼內同時對兩個變量進行賦值，中間用冒號分隔。
3、你可以使用Option Explicit來告訴宿主變量必須先聲明後使用。
4、VBScript在定義時隻有一種變量類型，在實際使用中需要使用類型轉換函數來將變量轉換成相應的變量類型。
Cbool函數將變量轉換成布爾值；
Cbyte函數將變量轉換為0到255之間的整數。
Ccur函數、Cdbl函數和Csng函數將變量轉換為浮點數值，前者隻精確到小數點後四位，後兩者要更加精確，數值的範圍也要大的多。
Cdate函數將變量轉換為日期值。
Cint函數和Clng函數將變量轉換為整數，後者的範圍比前者要大的多。
Cstr函數將變量轉換為字符串。
二、數組
數組的定義與變量非常類似，隻需要在變量後描述這個數組的個數和維數。需要注意的是：數組的下標總是從0開始，而以數組定義中數值減一結束。也就是說你以要定義一個有十個數據的數組，將這樣書寫代碼：dImarray（9），同樣，當你要訪問第五個元素時，實際的代碼是array(4)。當然，你可以通過不指定數組的個數和維數來申明動態數組。等到數組的個數和維數固定後，使用關鍵字redim來改變數組。注意，在改變數組的大小時，數組的數據會被破壞，使用關鍵字preserve來保護數據。例如：
RedIm空格preserve空格array括號個數逗號維數括號
三、操作符
在VBScript運算符中，加減乘除都是我們常用的符號，乘方使用的是 ^ ，取模使用的Mod。
在比較操作符中，等於、小於、大於、小於等於、大於等於都與我們常用的符號是一致的，而不等於是小於和大於連用。
邏輯運算符為：和操作—>AND 非操作—>NOT 或操作—>OR；
你可以使用操作符 + 和操作符 & 來連接字符串，一般使用&操作符；
另外還有一個比較特殊的操作符Is用來比較對象，例如按鈕對象，如果對象是同一類型，結果就是真，如果對象不是同一類型，結果就是假。
四、條件語句主要有if……then語句和select case語句兩種形式
在if……then語句中，其基本形式為：
If 條件 then
處理條件的語句；
……
Endif
基本形式隻能對單個條件進行驗證，如果有兩個條件，則需要在基本形式中添加單行語句else，如果還有更多的條件需要驗證，則需要添加語句
Elseif 條件 then
處理條件語句
在select case語句中，其基本形式為：
Select case 變量
Case 條件值
處理條件語句
並對上兩句進行重複
最後一句應為
case else
處理語句
當然不要忘記將條件結束語句End select放在最後一行
注意：在執行字符串比較時，需要特別注意大小寫，一般情況下，我們在比較前，使用lcase函數將字符串轉換成小寫，使用ucase函數將字符串轉換成大寫大寫。
五、循環控製語句
循環控製語句有for……next循環、for……each循環、do……while循環、do……until循環、while循環五種形式。
在使用循環控製語句前，首先要對循環條件進行判斷，如果循環次數是有固定次數的，那麼使用For……next循環，其結構為：
For 計數器變量＝開始計數值 to 最後計數值
執行循環體
Next
如果是需要對數組或對象集合中的每一個元素進行判斷，則需要使用for……each循環，其結構為：
For each 循環計數變量 in 要查看的對象或數組
執行處理語句
Next
注意：在上述兩種循環中隨時可以使用exit for來退出循環
如果你希望在條件滿足時執行一段代碼則使用do……while語句，結構為：
Do while 條件
執行循環體
Loop
如果你希望在條件不滿足時執行代碼，則使用do……until語句，結構為：
Dountil 條件
執行循環體
Loop
當然，在這兩種循環語句中，你可以使用exit do來退出循環
最後一種循環語句是條件滿足時一直執行循環，
While 條件
執行循環體
Wend
六、使用過程
常用的過程有兩種，一種為函數，給調用者返回值，一種為子程序，無返回值，還有一種叫事件的特殊子程序，用的比較少。
函數的基本定義方法為：
Function 函數名稱（參數列表）
函數代碼
函數名稱＝某值 ‘用來返回值
end function
子程序一些都類似，不過沒有返回值
注意：盡管在定義子程序的時候，參數列表要加括號，但在調用子程序的時候，參數列表不加括號，括號隻在函數中使用。另外，子程序不能在表達式中使用。
而函數隻能出現在賦值語句的右邊，或者表達式中，函數不能直接使用，如果必須直接使用函數，則必須使用call語句調用，並取消返回值。
Vbs腳本編程簡明教程之四
如何利用Vbs運行外部程序？
Vbs隻提供了編程的一個基本框架，用戶可以使用Vbs來定義變量、過程和函數，vbs也提供了一些內部函數和對象，但是Vbs沒有提供任何命令來訪問Windows係統內部的部件，但是值得慶幸的是，Vbs雖然不能自己完成這些任務，但是它提供了一條極為方便、功能也相當強的命令——CreateObject，這條命令可以訪問windows係統內安裝的所有com對象，並且可以調用這些部件中存放的命令。
於是問題解決了，比如說，我手頭有1000個小文本，我首先要對每一個文本的語法進行查錯和修改，然後按照預先定義好的規則對這些文本進行排序，最後將這些文本合並成為一個文件。正常情況下，我們需要把打開第一個小文本，然後把它複製到WORD中，然後利用裏麵的除錯功能進行除錯和修改，然後再導入到EXCEL中進行排序，將這個過程重複1000遍，然後再將所有得到的文本複製到一個大文本中。實在是太枯燥、工作量太大了。有了Vbs和CreateObject，問題得到解決，我隻需要找到相應的模塊，調用相應的功能就可以了，作為腳本，把一個枯燥的過程重複1000次，本就是它的拿手好戲。
好了，我們走入正題，從最簡單的——隻啟動一個程序開始。
WSH也就是用來解析Vbs的宿主，本身包含了幾個個常用對象：
1、Scripting.FileSystemObject —> 提供一整套文件係統操作函數
2、Scripting.Dictionary —> 用來返回存放鍵值對的字典對象
3、Wscript.Shell —> 提供一套讀取係統信息的函數，如讀寫注冊表、查找指定文件的路徑、讀取DOS環境變量，讀取鏈接中的設置
4、Wscript.NetWork —> 提供網絡連接和遠程打印機管理的函數。（其中，所有Scripting對象都存放在SCRRUN.DLL文件中，所有的Wscript對象都存放在WSHOM.ocx文件中。）
現在我們需要的是第三個對象，好了，讓我們先連接一下對象看看，在記事本的編輯窗口中輸入：
Option Explicit
Dim objShell
Set objShell = CreateObject(“Wscript.Shell”)
objShell.Run “notepad”
同樣，保存執行。那麼看到了一個什麼樣的結果呢？在桌麵上又打開了一個記事本。
說明之一：Set是Vbs指令，凡是將一對象引用賦給變量，就需要使用set關鍵字。那麼什麼是對象引用呢？凡是字符串、數值、布爾值之外的變量都是對象引用。Objshell是變量名，可以隨意修改。
說明之二：凡是正確引用的對象，其本身內置有函數和變量，其引用方法為在變量後加“. ”，後緊跟其實現功能的函數就可以了。Objshell.run 的意思就是調用Wscript.shell中的運行外部程序的函數——run，notepad是記事本程序的文件名。當然你也可以改成“calc”，這是計算器的文件名，winword是word的文件名，等等吧，所有可執行文件的文件名都可以。但是需要注意的是，如果你要執行的可執行文件存放的地方不是程序安裝的常用路徑，一般情況下，需要提供合法的路徑名，但是run在運行解析時，遇到空格會停止，解決的方法是使用雙引號，例如：在我的機器上運行qq，代碼為：
objshell.run """C:\Program Files\QQ2006\QQ.exe""" ‘注：三個引號
好， 我們再進一步，啟動兩個程序會如何呢？
輸入如下代碼：
Set objShell = CreateObject(“Wscript.Shell”)
objShell.Run “notepad”
objShell.Run “calc”
執行會如何呢？兩個程序基本上同時啟動了。如果我們需要先啟動notepad再啟動calc將如何呢？很簡單在需要順序執行的代碼後加 , , True參數就可以了。
好了輸入代碼：
Set objShell = CreateObject(“Wscript.Shell”)
objShell.Run “notepad” ,,true
objShell.Run “calc”
看看執行的結果怎麼樣吧！
總結：run函數有三個參數，第一個參數是你要執行的程序的路徑，第二個程序是窗口的形式，0是在後台運行；1表示正常運行；2表示激活程序並且顯示為最小化；3表示激活程序並且顯示為最大化；一共有10個這樣的參數我隻列出了4個最常用的。 第三個參數是表示這個腳本是等待還是繼續執行，如果設為了true,腳本就會等待調用的程序退出後再向後執行。
其實，run做為函數，前麵還有一個接受返回值的變量，一般來說如果返回為0，表示成功執行，如果不為0，則這個返回值就是錯誤代碼，可以通過這個代碼找出相應的錯誤。
Vbs腳本編程簡明教程之五
錯誤處理
引發錯誤的原因有很多，例如用戶輸入了錯誤類型的值，或者腳本找不到必需的文件、目錄或者驅動器，我們可以使用循環技術來處理錯誤，但是VBS本身也提供了一些基本技術來進行錯誤的檢測和處理。
1、最常見的錯誤是運行時錯誤，也就是說錯誤在腳本正在運行的時候發生，是腳本試圖進行非法操作的結果。例如零被作為除數。在vbs中，任何運行時錯誤都是致命的，此時，腳本將停止運行，並在屏幕上顯示一個錯誤消息。你可以在腳本的開頭添加
On Error Resume Next
這行語句告訴vbs在運行時跳過發生錯誤的語句，緊接著執行跟在它後麵的語句。
發生錯誤時，該語句將會把相關的錯誤號、錯誤描述和相關源代碼壓入錯誤堆棧。
2、雖然On Error Resume Next語句可以防止vbs腳本在發生錯誤時停止運行，但是它並不能真正處理錯誤，要處理錯誤，需要在腳本中增加一些語句，用來檢查錯誤條件並在錯誤發生時處理它。
vbscript提供了一個err對象，他有兩個方法clear，raise，5個屬性：description，helpcontext，helpfile，number，source
err對象不用引用實例，可以直接使用，例如：
on error resume next
a=11
b=0
c=a/b
if err.number<>0 then
wscript.echo err.number & err.description & err.source
end if
Vbs腳本編程簡明教程之六
修改注冊表
Vbs中修改注冊表的語句主要有：
1、讀注冊表的關鍵詞和值：
可以通過把關鍵詞的完整路徑傳遞給wshshell對象的regread方法。例如：
set ws=wscript.createobject("wscript.shell")
v=ws.regread("HKLM\Software\7-Zip\Path ")
wscript.echo v
2、寫注冊表
使用wshshell對象的regwrite方法。例子：
path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
set ws=wscript.createobject("wscript.shell")
t=ws.regwrite(path & "jj","hello")
這樣就把
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\jj這個鍵值改成了hello.不過要注意：這個鍵值一定要預先存在。
如果要創建一個新的關鍵詞，同樣也是用這個方法。
path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run\sssa2000\love\"
set ws=wscript.createobject("wscript.shell")
val=ws.regwrite(path,"nenboy")
val=ws.regread(path)
wscript.echo val
3、刪除關鍵字和值
使用regdelete方法，把完整的路徑傳遞給regdelete就可以了
例如
val=ws.regdel(path)
注意，如果要刪除關鍵詞的值的話 一定要在路徑最後加上“\”，如果不加斜線，就會刪除整個關鍵詞。
Vbs腳本編程簡明教程之七
FSO的常見對象和方法
文件係統是所有操作係統最重要的部分之一，腳本經常會需要對文件及文件夾進行訪問和管理，在Vbs中對桌麵和文件係統進行訪問的頂級對象是FileSystemObject(FSO)，這個對象特別複雜，是vbs進行文件操作的核心。此節內容應了如指掌。
FSO包含的常見對象有：
Drive對象：包含儲存設備的信息，包括硬盤、光驅、ram盤、網絡驅動器
Drives集合：提供一個物理和邏輯驅動器的列表
File 對象：檢查和處理文件
Files 集合：提供一個文件夾中的文件列表
Folder對象：檢查和處理文件夾
Folders集合：提供文件夾中子文件夾的列表
Textstream對象：讀寫文本文件
FSO的常見方法有：
BulidPath：把文件路徑信息添加到現有的文件路徑上
CopyFile：複製文件
CopyFolder：複製文件夾
CreateFolder：創建文件夾
CreateTextFile：創建文本並返回一個TextStream對象
DeleteFile：刪除文件
DeleteFolder：刪除文件夾及其中所有內容
DriveExits：確定驅動器是否存在
FileExits：確定一個文件是否存在
FolderExists：確定某文件夾是否存在
GetAbsolutePathName：返回一個文件夾或文件的絕對路徑
GetBaseName：返回一個文件或文件夾的基本路徑
GetDrive：返回一個dreve對象
GetDriveName：返回一個驅動器的名字
GetExtensionName：返回擴展名
GetFile：返回一個file對象
GetFileName：返回文件夾中文件名稱
GetFolder：返回一個文件夾對象
GetParentFolderName：返回一個文件夾的父文件夾
GetSpecialFolder:返回指向一個特殊文件夾的對象指針
GetTempName:返回一個可以被createtextfile使用的隨機產生的文件或文件夾的名稱
MoveFile：移動文件
MoveFolder：移動文件夾
OpenTextFile：打開一個存在的文件並返回一個TextStream對象
Vbs腳本編程簡明教程之八
FSO中文件夾的基本操作
1、使用fso
由於fso不是wsh的一部分，所以我們需要建立他的模型
例如set fs=wscript.createobject(“scripting.filesystemobject”)
這樣就建立了fso的模型。如果要釋放的話也很簡單，set fs=nothing
2、使用文件夾
在創建前，我們一般需要檢查該文件夾是否存在例如：
dim fs,s //定義fs、s兩個變量
set fs=wscript.createobject(“scripting.filesystemobject”) //fs為FSO實例
if (fs.folderexists(“c:\temp”)) then //判斷c:\temp文件夾是否存在
s=”is available”
else
s=”not exist”
set foldr=fs.createfolder(“c:\temp”) //不存在則建立
end if
刪除： set fs=wscript.createobject(“scripting.filesystemobject”)
fs.deletefolder(“c:\windows”)
拷貝： set fs=wscript.createobject(“scripting.filesystemobject”)
fs.copyfolder “c:\data” “d:\data”
注意：如果c:\data 和d:\data都存在，腳本會出錯，複製也就會停止，如果要強製覆蓋，使用fs.copyfolder “c:\data” “d:\data”，true
移動： set fs=wscript.createobject(“scripting.filesystemobject”)
fs.movefolder “c:\data” “d:\data”
我們可以使用通配符，來方便操作：
例如， fs.movefolder :c:\data\te*” , “d:\working”
注意：在目的路徑最後沒有使用“\” 也就是說我沒有這樣寫：
fs.movefolder c:\data\te*” , “d:\working\”
這樣寫的話，如果d:\working 目錄不存在，windows就不會為我們自動創建這個目錄。
注意：上麵我們所舉的例子都是在利用fso提供的方法，如果使用folder對象也完全是可以的：
set fs= wscript.createobject(“scripting.filesystemobject”)
set f=fs.getfolder(“c:\data”)
f.delete //刪除文件夾c:\data。如果有子目錄，也會被刪除
f.copy “d:\working”,true //拷貝到d:\working
f.move “d:\temp” //移動到d:\temp
3、特殊文件夾
一般指的就是係統文件夾：\windows\system32， 臨時文件夾，windows文件夾，在前幾篇的時候，我們提過一下：例如
set fs=wscript.createobject(“scripting.filesystemobject”)
set wshshell=wscript.createobject(“wscript.shell”)
osdir=wshshell.expandenvironmentstrings(“%systemroot%”)
set f =fs.getfolder(osdir)
wscript.echo f
當然，還有簡單的方法 那就是使用getspecialfolder()
這個方法使用3種值：
0 表示windows文件夾，相關常量是windowsfolder
1 係統文件夾，相關常量是systemfolder
2 臨時目錄，相關常量temporaryfolder
例如：
set fs=wscript.createobject(“scripting.filesystemobject”)
set wfolder=fs.getspecialfolder(0) ‘返回windows目錄
set wfolder=fs.getspecialfolder(1) ‘返回system32\
set wfolder=fs.getspecialfolder(2)'返回臨時目錄
Vbs腳本編程簡明教程之九——1
妙用SendKeys簡化重複操作1
每次開機的時候，你想自動登陸你的QQ或者博客嗎？巧妙使用VBS中的SendKeys命令（這個命令的作用就是模擬鍵盤操作，將一個或多個按鍵指令發送到指定Windows窗口來控製應用程序運行），可以極大的方便我們的常用操作。其使用格式為：
Object.SendKeys string其中：
Object：為WshShell對象，即腳本的第一行為：
Set WshShell=WScript.CreateObject("WScript.Shell")
將Object替換為WshShell
“string”：表示要發送的按鍵指令字符串，需要放在英文雙引號中。它包含如下內容：
1．基本鍵：一般來說，要發送的按鍵指令都可以直接用該按鍵字符本身來表示，例如要發送字母“x”，使用“WshShell.SendKeys "x"”即可。當然，也可直接發送多個按鍵指令，隻需要將按鍵字符按順序排列在一起即可，例如，要發送按鍵“cfan”，可以使用
“WshShell.SendKeys "cfan"”。
2．特殊功能鍵：對於需要與Shift、Ctrl、Alt三個控製鍵組合的按鍵，SendKeys使用特殊字符來表示：Shift —— +；Ctrl —— ^；Alt —— %
如要發送的組合按鍵是同時按下Ctrl＋E，需要用“WshShell.SendKeys "^e"”表示，如果要發送的組合按鍵是按住Ctrl鍵的同時按下E與C兩個鍵，這時應使用小括號把字母鍵括起來，書寫格式為“WshShell.SendKeys "^(ec)"”，這裏要注意它與“WshShell.SendKeys "^ec"”的區別，後者表示組合按鍵是同時按住Ctrl和E鍵，然後鬆開Ctrl鍵，單獨按下“C”字母鍵。
由於“+”、“^”這些字符用來表示特殊的控製按鍵了，如何表示這些按鍵呢？隻要用大括號括住這些字符即可。例如，要發送加號“+”，可使用“WshShell.SendKeys "{+}"”。另外對於一些不會生成字符的控製功能按鍵，也同樣需要使用大括號括起來按鍵的名稱，例如要發送回車鍵，需要用“WshShell.SendKeys "{ENTER}"”表示，發送向下的方向鍵用
“WshShell.SendKeys "{DOWN}"”表示。
如果需要發送多個重複的單字母按鍵，不必重複輸入該字母，SendKeys允許使用簡化格式進行描述，使用格式為“{按鍵 數字}”。例如要發送10個字母“x”，則輸入“WshShell.SendKeys "{x 10}"”即可。
例一：WshShell.SendKeys "^{ESC}u"
代碼的含義為：按下Ctrl＋Esc組合鍵（相當於按Win鍵）打開“開始”菜單，接著按U鍵打開“關機”菜單。
例二：讓VBS腳本自動在記事本中輸入一行文字“hello, welcome to cfan”。
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 2000
//本行的含義為是腳本暫停2秒，給notepad一個打開的時間，有時時間太短可能導致後麵的字符無法進入編輯區
WshShell.AppActivate "無標題 - 記事本
"//AppActivate為尋找可執行程序的標題框，”無標題－記事本”內容你的自己打開看一下
WshShell.SendKeys "hello, welcome to cfan"
作業1:讓腳本自動輸入下麵兩段小短句
This is the most wonderful day of my life
because I'm here with you now
作業2：讓腳本在輸入短句後自動關閉記事本，並保存文件名為“test”，注意關閉記事本可以直接使用組合按鍵Alt＋F4來實現。
Vbs腳本編程簡明教程之九——2
妙用SendKeys簡化重複操作2
例三：製作能自動定時存盤的記事本
我們最常用的記事本沒有Word、WPS那樣的自動定時存盤功能，其實利用VBS腳本再加上SendKeys命令，就能彌補這個遺憾。打開記事本，輸入以下內容（為容易描述和分析，把代碼分為四個部分）：
'第一部分：定義變量和對象
Dim WshShell, AutoSaveTime, TXTFileName
AutoSaveTime=300000
Set WshShell=WScript.CreateObject("WScript.Shell")
TXTFileName=InputBox("請輸入你要創建的文件名(不能用中文和純數字)：")
'第二部分：打開並激活記事本
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "無標題 - 記事本"
'第三部分：用輸入的文件名存盤
WshShell.SendKeys "^s"
WScript.Sleep 300
WshShell.SendKeys TXTFileName
WScript.Sleep 300
WshShell.SendKeys "%s"
WScript.Sleep AutoSaveTime
'第四部分：自動定時存盤
While WshShell.AppActivate (TXTFileName)=True
WshShell.SendKeys "^s"
WScript.Sleep AutoSaveTime
Wend
WScript.Quit
將其保存為記事本.vbs，以後要使用記事本時，都通過雙擊這個腳本文件來打開。
程序說明：這個腳本的基本思路是定時向記事本發送Ctrl＋S這個存盤組合鍵。
第一部分：定義了腳本中需要用到的變量和對象。“AutoSaveTime”變量用來設置自動存盤間隔，單位為毫秒，這裏設置為5分鍾。“TXTFileName”變量通過輸入框取得你要創建的文本文件名稱。
第二部分：運行記事本，對於Windows本身提供的程序，比如計算器等，可直接在“WshShell.Run”後輸入程序名稱，如"calc"，對於非係統程序，則可輸入完全路徑，但要注意使用8.3格式輸入，比如“"D:\Progra~1\Tencent\QQ.exe"”。
第三部分：這裏用SendKeys命令執行了這樣的操作流程（請注意每個操作之間延時命令的使用）：在記事本中按Ctrl＋S組合鍵→彈出保存文件的窗口→輸入文件名→按Alt＋S組合鍵進行保存（默認保存在“我的文檔”目錄）。
第四部分：定時存盤的關鍵，通過“While……Wend”這個當條件為“真”時循環命令，實現自動存盤代碼“WshShell.SendKeys "^s"”和定時代碼“WScript.Sleep AutoSaveTime”的重複執行。因為不能讓這個定時存盤循環一直執行，退出記事本後，必須自動退出腳本並結束循環，所以設計了一個循環判斷條件“WshShell.AppActivate TXTFileName=True”，當記事本運行中時，可以激活記事本窗口，這個條件運行結果為“True”，定時存盤循環一直執行，退出記事本後，腳本無法激活記事本窗口，就會跳出循環，執行“Wend”後麵的“WScript.Quit”退出腳本。
例四：快速登陸QQ軟件。假設QQ號碼是：10001，密碼是：123456，隱身登陸：
set ws=wscript.createobject("wscript.shell")
ws.run "C:\Progra~1\Tencent\QQ\QQ.exe",0
wscript.Sleep 2000
ws.AppActivate "QQ用戶登錄"
ws.SendKeys "7015247"
wscript.Sleep 200
ws.SendKeys "{TAB}"
ws.SendKeys "*********"
wscript.Sleep 200
ws.SendKeys "{ENTER}"
例五：關機菜單立刻顯身
打開記事本，輸入以下命令，並將其保存為1.vbs：
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}u"
雙擊運行它，你會發現關機菜單立刻出現了。
將“WshShell.SendKeys "^{ESC}u"”改為“WshShell.SendKeys "^+{ESC}"”，運行一下看看是否打開了任務管理器
Vbs腳本編程簡明教程之九——3
妙用SendKeys自動上網並登陸博客3
將下麵的腳本複製到一個文本文件中，並將其文件名命名為：自動登陸.vbs，然後將撥號軟件及本腳本一起複製到程序——啟動項中，就可以實現自動撥號上網，並登陸到博客上。
代碼如下：
Set wshshell=CreateObject("wscript.shell")
wshshell.AppActivate "連接 MAE-301U 撥號連接"
wscript.Sleep 20000
wshshell.SendKeys "{enter}"
wshshell.Run "iexplore"
WScript.Sleep 2000
wshshell.AppActivate "hao123網址之家---實用網址,搜索大全,盡在https://www.hao123.com/ - Microsoft Internet Explorer" '引號中的內容修改為你的瀏覽器打開後標題欄中的內容
wshshell.SendKeys "%d"
wshshell.SendKeys "https://passport.baidu.com/?login"
wshshell.SendKeys "{enter}"
WScript.Sleep 2000
wshshell.SendKeys "此處修改為博客帳號"
wshshell.SendKeys "{tab}"
wshshell.SendKeys "此處修改為博客密碼"
wshshell.SendKeys "{enter}"
'wshshell.SendKeys "%d"
Vbs腳本常用的編輯器當然是notapad，不過這個編輯器的功能當然實在是太弱了一點，其實有很多的專用的腳本編輯器可以大大方便vbs腳本的編寫。我常用的有兩種:
1、VBSEDit漢化版
2、primalscript漢化版，可以對30多種腳本進行編輯
Vbs腳本編程簡明教程之十一
FSO中文件的基本操作
一、文件屬性：
在windows中，文件的屬性一般用數字來表示：
0代表normal，即普通文件未設置任何屬性。 1代表隻讀文件。
2代表隱藏文件。 4代表係統文件。 16代表文件夾或目錄。
32代表存檔文件。 1024代表鏈接或快捷方式。例如：
set fs=wscript.createobject(“scripting.filesystemobject”)
set f=fs.getfile(“d:\index.txt”)
msgbox f.Attributes ‘attributes函數的作用是顯示文件屬性
需要說明的是：msgbox顯示的結果往往不是上麵說明的數字，而是有關屬性代表數字的和
二、創建文件：object.createtextfile方法，注意創建前一般需要檢查文件是否存在。
例如：set fso=wscript.createobject(“scripting.filesystemobject”)
if fso.fileexists(“c:\kk.txt”) then
msgbox “文件已存在”
else
set f=fso.createtextfile(“c:\kk.txt”)
end if
如需要強製覆蓋已存在的文件，則在文件名後加true參數。
三、複製、移動、刪除文件：使用copyfile方法、movefile方法、deletefile方法。例如：
set fso=wscript.createobject(“scripting.filesystemobject”)
fso.copyfile “c:\kk.txt”,”d:\1\kk.txt”,true //如上文說述，true代表強製覆蓋
fso.movefile “c:\kk.txt”, “d:\” //移動文件
fso.deletefile “c:\kk.txt” //刪除文件
四、文件的讀寫：
1、打開文件：使用opentextfile方法
如：set ts=fso.opentextfile(“c:\kk.txt”,1,true)
說明：第二個參數為訪問模式1為隻讀、2寫入、8為追加
第三個參數指定如文件不存在則創建。
2、讀取文件：read(x)讀x個字符；readline讀一行；readall全部讀取
如：set ffile=fso.opentextfile(“c:\kk.txt”,1,true)
value=ffile.read(20)
line=ffile.readline
contents=ffile.readall
3、常見的指針變量：
atendofstream屬性：當處於文件結尾的時候這個屬性返回true。一般用循環檢測是否到達文件末尾。例如：
do while ffile.atendofstream<>true
ffile.read(10)
loop
atendofline屬性：如果已經到了行末尾，這個屬性返回true。
Column屬性(當前字符位置的列號)和line屬性(文件當前行號)：在打開一個文件後，行和列指針都被設置為1。
4、在文件中跳行：skip(x) 跳過x個字符；skipline 跳過一行
5、在文件中寫入字符：可以用2－寫入和8－追加的方式來寫入
其方法有：write(x)寫入x字符串；writeline(x)寫入x代表的一行
writeblanklines(n) 寫入n個空行
注意：最後一定要使用close方法關閉文件,讀文件後一定要關閉，才能以寫的方式打開。
Vbs腳本編程簡明教程之十二
使用係統對話框
在VBS腳本設計中，如果能使用windows提供的係統對話框，可以簡化腳本的使用難度，使腳本人性化許多，很少有人使用，但VBS並非不能實現這樣的功能，方法當然還是利用COM對象。
1、SAFRCFileDlg.FileSave對象：屬性有：FileName — 指定默認文件名；FileType — 指定文件擴展名；OpenFileSaveDlg — 顯示文件保存框體方法。
2、SAFRCFileDlg.FileOpen 對象：FileName — 默認文件名屬性；OpenFileOpenDlg — 顯示打開文件框體方法。
3、UserAccounts.CommonDialog對象：Filter — 擴展名屬性（"vbs File|*.vbs|All Files|*.*"）；
FilterIndex — 指定
InitialDir — 指定默認的文件夾
FileName — 指定的文件名
Flags — 對話框的類型
Showopen方法：
很簡單，ok，讓我們來舉兩個簡單的例子：
例一：保存文件
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objDialog.FileName = "test"
objDialog.FileType = ".txt"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
objFSO.CreateTextFile(objDialog.FileName & objdialog.filetype)
Else
Wscript.Quit
End If
注意：1、SAFRCFileDlg.FileSave對象僅僅是提供了一個方便用戶選擇的界麵，本身並沒有保存文件的功能，保存文件還需要使用FSO對象來完成。2、用FileType屬性來指定默認的文件類型。3、在調用OpenFileSaveDlg方法時，最好把返回值保存到一變量中，用它可以判斷用戶按下的是確定還是取消。
例二：.打開文件
set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
if intret then
msgbox “文件打開成功！文件名為：” & objFile.filename
else
wscript.quit
end if
例三：比較複雜的打開文件對話框
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs"
objDialog.InitialDir = "c:\"
tfile=objDialog.ShowOpen
if tfile then
strLoadFile = objDialog.FileName
msgbox strLoadFile
else
wscript.quit
end if
說明：在腳本中加入 objDialog.Flags = &H020 看看會出現什麼結果
Vbs腳本編程簡明教程之十三——1
WMI基礎之一
WMI即Windows 管理規範，是用戶管理本地和遠程計算機的一種模型。通過它可以訪問、配置、管理和監視幾乎所有的 Windows 資源。WMI的語法十分簡單，基本上常見的命名空間、對象等用幾乎一模一樣。它對應的是Windows裏的WMI服務（winmgmt）。
一、WMI的起源
幾年前，幾家資深的計算機公司由於係統管理領域缺少標準，委托DMTF啟動了CIM（通用信息模型）項目，理想的CIM是一種不受限製於任何特定實現環境的管理工具。WMI是CIM的微軟實現，它有很多類是從CIM中派生出來的。
二、WMI的命名空間
那麼命名空間是做什麼作用的呢？我簡單這樣說，在同一段代碼中，如果有兩個變量或函數的名字完全相同，就會出現衝突。命名空間就是為解決變量、函數的命名衝突而服務的。解決的辦法就是將你的變量定義在一個不同名字的命名空間中。就好像財政局有個張三，公安局也有個張三，但我們清楚，就是因為他們分屬不同的單位。有些地方可能不太準確，但大致意思就是這樣了。
WMI的命名空間創建了一個層次結構，有點類似於我們的目錄文件結構。
1、 root-作為所有其他名字的占位符；
2、 root\default-與注冊表操作有關的類；
3、 root\security-與係統安全有關的類；
4、 root\cimv2-從CIM派生的類，代表我們最常用的工作環境。
三、WMI的對象路徑
WMI的對象路徑用來在CIM庫中定位類和它的事例，對象路徑用兩個反斜杠\\開頭，第一個元素是目標計算機的名字，第二個元素是相應的WMI命名空間，第三個元素是相應的類名，並用 ： 將它與命名空間分隔開來。例如：\\..\root\cimv2:win32_service
其中那個 . 代表是本地係統。
四、WMI的查詢語言——WQL僅僅是ANSI SQL的一個子集，隻能用於數據的提取。
數據、事件查詢的基本語法為：
Select pro1 , pro2 , pro3 from myclass（myclassevent）
例如：Select name , path from Win32_share 說明：列出所有共享的名稱和路徑
也可以使用通配符 * ，例如：Select * from Win32_share
關鍵字Where 用於限定查詢的範圍。
例如：Select * from Win32_share where name=”Admin”
五、WMI腳本中使用的三個步驟
步驟 1：連接到 WMI 服務
在任何 WMI 腳本中，第一個步驟都是建立一個到目標計算機上的 Windows 管理服務的連接。方法是調用 VBScript 的 Getobject 函數並將 WMI 腳本庫的名字對象的名稱（即“winmgmts:”，後跟目標計算機的名稱）傳遞到 Getobject，並返回一個對象的引用，此時，您就可以調用其提供的方法如：InstancesOf，正如方法名所示，InstancesOf 返回由資源的類名標識的托管資源的所有實例。
步驟 2：檢索 WMI 托管資源的實例
一般采用WQL來實現。
步驟 3：顯示 WMI 托管資源的屬性
最後一個步驟是枚舉 檢索得到集合的內容。一般采用
For each enum in myclass
……
Next 結構來實現。
六、WMI 測試器 (wbemtest.exe)驗證腳本執行結果
現在，您對可用於瀏覽和查看 CIM 的工具已經有了一些認識，讓我們使用 WMI 測試器 (wbemtest.exe) 來檢查 Win32_Process 類定義，以便從在您的本地計算機上運行的進程檢索一些屬性。
1.打開一個命令提示，鍵入 C:\>wbemtest.exe，按下 Enter 來開始 WMI 測試器工具。請注意，大部分按鈕在主 WMI 測試器窗口上是被禁用的，這說明此時您沒有連接到 WMI。
2.單擊 “連接”按鈕 連接到本地或遠程計算機上的 WMI 服務。顯示“連接”對話框，它提供一個標記為 名稱空間 的文本輸入區域，該區域默認值為 root\default。將 名稱空間 區域的值更改為 root\cimv2，單擊“連接”對話框的 連接 按鈕返回到主 WMI 測試器窗口。
3.主窗口中左上角的命名空間標識符應該顯示為 root\cimv2。請注意，所有的按鈕現在都已啟用，這說明在當前憑據環境下，您已經成功連接到本地主機上的 WMI。單擊 枚舉類別打開“超類信息”對話框。
4.在“超類信息”對話框中，不要填寫 輸入超類別名稱 區域，單擊 遞歸 選項，單擊 確定 以枚舉 root\cimv2 名稱空間中定義的所有 CIM 類。
請注意，列於“查詢結果”對話框頂部的類是以兩個下劃線為開頭的。這些是係統類。係統類是預定義的 CIM 類，支持內部 WMI 配置與操作，例如提供程序注冊、命名空間安全性及事件通知等。現在，忽略係統類，向下滾動“查詢結果”對話框直至看到以 CIM_ 開頭的類。
最後更新：2017-04-03 05:40:17