[转]Windows Shell 编程 第十三章 【来源：http://blog.csdn.net/wangqiulin123456/article/details/7988004】...
第十三章?Windows腳本環境
?????????現在的許多開發人員以前都是在MS-DOS環境下編程的。幾乎所有人都接觸過批處理文件——一種基于文本命令的文件。這種文件使你能夠在一個可執行命令中組合多個指令。批處理文件的語法相當簡單，很容易編寫。
?????????然而有些人認為批處理文件的語法過于簡單。.bat文件的解釋器對于識別某些基本的控制元素，如‘if’，是足夠智能的，但是，對于提供現代的和功能強大的腳本環境，它就差得太遠了。
?????????直到最近，Windows才給出了一個較好的機制——MS-DOS批處理文件仍然作為Windows的可執行文件機制，這就是Windows腳本環境(WSH)的引進。我們在這一章將看到WSH提供的支持要比.bat文件復雜的多，因為它嵌入了腳本引擎的特征。
?????????在這一章中我們解釋：
???????????????????Windows批處理文件的起源
???????????????????為Shell腳本提供框架的腳本環境的輪廓
???????????????????WSH對象模型
???????????????????使用WSH可以做些什么
???????????????????怎樣通過新的自動化對象增強WSH的功能
我們將使用Jscript和VBScript寫一些簡單的WSH應用。如果有ActiveX兼容的腳本引擎，你可以使用任何其它的腳本語言。
?
Windows批處理文件
?????????Windows腳本環境提出的想法是相當簡單的，它就是作為運行時引擎工作的一個環境，用于解釋以VBScrip，Jscript或其它任何腳本語言寫的腳本文件，唯一的限制是每一種語言都應該有與IE ActiveX腳本引擎兼容的解析模塊。
?????????實際上，你編寫了一個腳本文件，而且WSH運行時允許你象批處理或典型的Win32二進制文件一樣運行這個文件，因此，有理由認為.vbs和.js文件就是一種新的可執行文件，這里.vbs文件是一種包含VBScript代碼段的ASCII文件，而.js是Jscript的。
?
WSH能做什么
?????????為了理解WSH的重要性，我們可以把它看作允許編程描述一系列操作的工具，例如運行外部可執行文件，或訪問Windows對象如快捷方式，文件夾，甚至注冊表等。使用WSH，任何重復的任務都可以存儲到.vbs或.js文件，而后只需簡單地雙擊喚醒這個文件就可以了。
?????????使用基于WSH的腳本有許多超越批處理文件的優點：
它使用更清晰和強大的編程語言，提供多樣化的控制流結構，變量，子例程和數組，這些是DOS批處理所沒有的。
?
?????????這些特征將隨著版本的提升進一步增強，新腳本引擎的主要特征是內置了錯誤陷阱和恢復機制，以及運行時檢查和執行代碼的方法。
?
其次(不是不重要)WSH最強的能力是能夠訪問注冊的COM服務器，首先，這個功能允許你建立任何存在的COM服務器實例，其次你可以設計擴展WSH運行環境能力的新COM服務器。在這一章中我們將調查這兩個方面。???
?
啟動時運行腳本
?????????在基于MS-DOS的系統中，一般有一個批處理文件在autoexec.bat之后運行，執行一些更特殊的處理。絕大多數場合，這是由基于鍵盤的菜單組成，使用goto?語句轉移控制到要求的代碼段?，F在，相同的效果也可以在WSH中獲得，只要編寫了‘啟動’中執行的代碼，把它存儲在‘啟動’文件夾中，每次用戶登錄，它就都可以運行了。
?
WSH環境結構
?????????Windows腳本環境是一個在Windows Shell中嵌入了ActiveX腳本引擎的集成模塊。通過實現幾個COM接口，你可以賦予任何Win32應用由腳本驅動的能力。這個應用應該是一個輸出對象到外部世界的自動化服務器，有許多文章都舉例說明了實現這一目標的方法。
?????????在Windows Shell中，存在能夠解釋VBScript和Jscript源代碼的程序，其基本原理與IE運行HTML內腳本是一樣的。IE，IIS服務器和WSH管理器都嵌入了兼容于ActiveX腳本規格的解析模塊。這三者的區別在于其對象模型的不同，換言之，從腳本的觀點來看，IE和WSH的差別是對象模型，它們都圍繞同一個腳本引擎而構建。
?????????微軟已經發布了一個稱之為‘腳本控件’的ActiveX控件，這個控件作為可嵌入對象為應用提供腳本引擎。因此，你可以注冊自己的對象使程序自動有可腳本化的能力(假設，程序輸出自動化對象)。這個腳本控件可以從微軟的站點下載獲得。
?
怎樣獲得Windows的腳本環境
?????????Windows腳本環境模塊是Windows98操作系統的一部分。在Windows95和NT上也是可用的，但是并不包括IE4.x和活動桌面。此時你可以從微軟的站點下載它們。
?????????安裝過程就是指示文件存儲的路徑，基本上，WSH有兩個可執行文件和一些COM模塊，它們總體構成了WSH的對象模型。
?????????設置還注冊兩個新的文件類.vbs和.js。有一些相關的Shell動詞，所以你可以打開(運行)和編輯這類文件。
?
WSH是什么
?????????Windows腳本環境由兩個文件wscript.exe和cscript.exe構成，它們分別在Windows和Windows/Command目錄下。后一個是控制臺應用，運行在DOS窗口下，而前一個是Windows程序。
?
WSH命令行
?????????兩種腳本環境共享相同的命令行，它們是：
wscript scriptfile [//options] [/arguments]
cscript scriptfile [//options] [/arguments]
選項在下表中列出，注意，需要使用雙斜線作為前綴。相反腳本文件的變量必須使用單斜線作為前綴。下面的命令舉例說明運行一個腳本文件兩秒鐘，一旦時間消逝，腳本終止。無論操作是否完成：
wscript myfile.js //T:2
T開關是WSH所接受的幾個開關之一，這些開關的說明列表如下：
?
| 開關 | 描述 |
| B | 以非交互的批處理方式運行腳本。它抑制所有消息框和任何用戶要求的干預。 |
| I | 以交互方式和必要時提示用戶的方式運行腳本。代碼終止時執行終止，對持續時間沒有限制，這是默認設置。 |
| logo | 啟動時顯示標記。這個選擇僅在cscript.exe中有效，并且是默認設置。wscript.exe不支持這個選項。 |
| nologo | 啟動時不顯示標記。這個選擇僅在cscript.exe中有效，wscript.exe不支持這個選項。 |
| T:nn | 腳本僅在指定的以秒表示的時間段運行。中斷通過特定的ActiveX腳本引擎方法實現，可以認為是絕對線程安全的。 |
| ? | 顯示程序的使用幫助 |
?
從命令行的角度看cscript?和?wscript?除了logo?和?nologo開關以外幾乎是相同的。通過cscript模塊運行腳本文件總是有一個DOS背景窗口出現。
?
Shell對腳本文件的支持
?????????在WSH被安裝之后，Shell就能識別和特殊處理.vbs和.js文件了。也就是說，你可以雙擊這些文件，使它們立即從探測器開始執行。這是因為在注冊表中加入了‘打開’動詞，我們在第11章已經看到了這種方法。在這個路徑：
HKEY_CLASSES_ROOT
/.js
和這個路徑下：
HKEY_CLASSES_ROOT
/.vbs
包含這個鍵名的默認值存儲了所有Shell信息——Js文件和Vbs文件。下面這個路徑：
HKEY_CLASSES_ROOT
/jsfile
/shell
/open
/command
指向點擊.js文件執行的命令行，這與.vbs的一樣：
Windows 9x:?C:/WINDOWS/WScript.exe "%1" %*
Windows NT:?C:/WINNT/System32/WScript.exe "%1" %*
其中%1表示文件名，而%*?說明程序在調用時也傳遞命令行變量。如果簡單地在探測器下雙擊VBScript或Jscript文件，實際的命令行則是：
C:/WINDOWS/WScript.exe filename
反之如果使用ShellExecute()或ShellExecuteEx()編程運行，甚至經由‘運行’對話框運行VBScript或Jscript，你就可以指定附加的參數或選項。例如下面的圖像顯示喚醒Jscript傳遞變量的情形：
??????????????????????
?
?
對于Jscript和VBScript文件其關聯菜單有兩個打開命令：‘打開’運行wscript.exe，而‘在MS-DOS提示中打開’(在NT的命令提示中打開)運行cscript.exe。另外，Jscript和VBScript都有客戶屬性頁添加到屬性對話框：
?????????????????????
?
?
這個頁面使你可以設置一定的秒數作為最大執行時間。對設置的任何改變都存儲在一個.wsh文件中，其格式如下：
[ScriptFile]
Path=c:/myfile.js
[Options]
Timeout=2
DisplayLogo=1
BatchMode=0
在某些情況下.wsh文件是特定腳本文件的一個類似于快捷方式的文件。在處理這些文件時，cscript?和?wscript首先抽取路徑，然后運行它所找到的參數。ScriptFile節定義了目標文件。而Options節則描述命令行的開關狀態。
?
腳本引擎
?????????WSH使用腳本文件名的擴展名來決定裝入哪個解析器。邏輯上.vbs擴展是VBScript編寫的腳本，而.js表示Jscript。WSH天生就支持這兩種語言，因為它們是與IE一同發布的ActiveX腳本引擎所支持的。如果你手里還有另一個可用的腳本語言解析器——例如Perl——配置好后，你就可以用它來編寫Windows的批處理文件了。
?
注冊新腳本引擎
?????????注冊新引擎需要按如下步驟操作：
???????????????????標識新引擎處理的文件擴展，如對Perl文件?.pl?。
???????????????????在注冊表中建立我們前面討論過的類似格式的條目
???????????????????添加ScriptEngine鍵，其‘Default’值指向另一個鍵
???????????????????第二個鍵中包含實現新語言腳本解析器ActiveX模塊的CLSID
對于舉例的Perl而言，注冊表鍵應該是：
HKEY_CLASSES_ROOT
/.pl
這個鍵的Default值指向另一個稱之為plfile的鍵，其包含整個鍵的子樹，形勢如下：
HKEY_CLASSES_ROOT
/plfile
/defaulticon
/scriptengine
/shell
/open
/edit
這包含了所有必須的動詞(打開，編輯，打印)，默認的圖標，以及腳本引擎鍵。后者的Default值包含對另一個鍵的引用，這個鍵用來標識解析器，在例子中是PScript：
HKEY_CLASSES_ROOT
/pscript
/clsid
在這個鍵下存儲了模塊的CLSID，這個模塊包含了Perl的ActiveX腳本兼容解析器。
?
命令行變量
?????????我們前面提到過，WSH腳本可以接收命令行變量。你可以一個接一個的指定這些變量，并保證它們由空格隔開，而包含空格的串應該用引號封裝成單個參數，例如：
wscript ScriptFile.js First "Second Argument"
在腳本代碼內可以通過特定的聚集對象WshArguments訪問命令行的變量集。
?
WSH對象模型
?????????Windows腳本環境使用了一些預定義的對象這些對象整個形成了WSH對象模型。它們允許你在Windows Shell環境下執行一定范圍的活動。
?????????主要對象是WScript、WshShell?和?WshNetwork。頭一個含有WSH引擎，另外兩個分別表述Windows Shell?和網絡。正如我們后面將要發現的，WshShell與Shell對象存在相當的差別。WshShell?和?WshNetwork?在使用之前必須被實例化，而對于WScript，這一步就沒必要了，因為它是在wscript?和?cscript中實現的對象，所以它總是在運行中的，沒有必要重新實例化它。
?????????所有其余的對象都在另外的控件中wshom.ocx實現，每當使用時都需要加載它們。
?
WScript對象
?????????這個對象是WSH對象集的根對象，它提供獲得調用腳本命令行變量信息的屬性及方法。此外，它還建立新對象和終止存在的對象。
?????????下表列出了WScript對象所支持的屬性和方法：
?
| 屬性 | 描述 |
| Application | 恢復WScript對象的IDispatch指針 |
| Arguments | 返回腳本的變量集，這個集合是WshArguments對象 |
| FullName | 恢復腳本環境的全名 |
| Interactive | 指定執行模式是‘交互的’還是‘批處理’的，這是一個讀/寫屬性，沒有說明文檔 |
| Name | 恢復腳本環境的名字 |
| Path | 恢復腳本環境的路徑 |
| ScriptFullName | 恢復當前腳本文件的全名 |
| ScriptName | 恢復當前腳本文件的文件名 |
| Version | 返回腳本環境當前版本串 |
?
| 方法 | 描述 |
| CreateObject() | 用指定的ProgID建立新對象 |
| DisconnectObject() | 釋放指定的對象 |
| GetObject() | 用指定的ProgID恢復對象 |
| Echo() | 在窗口(wscript)或DOS框(cscript)中顯示信息。它由Interactive屬性所影響。 |
| Quit() | 停止執行腳本 |
?
Interactive是無文檔說明的，讀/寫屬性，它接收和返回布爾值。它的初始設置具有命令行I?開關所設置的值，但是你可以編程改變它。有趣的是，在Interactive被設置為FALSE時，WScript.Echo()不能工作。但是你仍然可以通過WshShell對象的方法顯示信息。
?????????WScript的主要方法是CreateObject()，你可以用此方法建立新對象的實例，其原型如下：
?
WScript.CreateObject(sProgID, [sPrefix])
?
sPrefix變量用于識別相關對象的事件過程名的字符串。下一節將進一步解釋這個概念。
?????????GetObject()的定義如下：
?
WScript.GetObject(sPathname, [sProgID], [sPrefix])
?
它使用指定的文件名或ProgID恢復對象。sPrefix變量的作用與CreateObject()方法同。
?????????由于WSH輸出了CreateObject()方法，顯然我們可以用它來建立新對象，然而，直接使用VBScript的CreateObject()或Jscript的ActiveXObject()方法也是可以的。事實上它執行的更快，因為VBScript的CreateObject()方法依賴于它的一個副本。
?
WshShell對象
?????????這個對象表示Windows Shell?，但是與我們前面各章中討論的Shell對象有相當大的區別。它一方面缺少許多功能，而在另一方面又增加了多種方法。盡管名字很相似，它們仍然應該作為兩個非常不同的控件。
?????????WshShell只有兩個屬性，一是Environment，包含系統環境變量的集合，另一是SpecialFolders屬性，返回Shell的特殊文件夾名集合。
?????????方法包括了各種函數：從快捷方式、注冊表和進程引導到特殊文件夾。WshShell的實例可以使用WScript建立，其方式如下：
?
Set s = WScript.CreateObject("WScript.Shell")
?
這里是WshShell全部方法的完整列表：
?
| 方法 | 描述 |
| CreateShortcut() | 建立一個空的WshShortcut或WshUrlShortcut對象以分別充填和存儲快捷方式或URL快捷方式。 |
| ExpandEnvironmentStrings() | 展開由一對%號括起的變量。 |
| Popup() | 顯示消息框，你可以使用這個方法來顯示消息，即使WScript.Interactive屬性設置為FALSE，也可以顯示。 |
| RegDelete() | 刪除注冊表的鍵或值 |
| RegRead() | 從注冊表中讀鍵或值 |
| RegWrite() | 向注冊表寫鍵或值 |
| Run() | 到處和同步化一個可執行程序 |
?
我們將集中討論訪問注冊表的函數；同時對Run()和ExpandEnvironmentStrings()方法給出簡略說明，Run()的原型為：
?
Run(sCommand, [iWindowType], [bWaitOnReturn])
?
在命令行中可以指定輸出窗口的類型(最小，最大，正常，隱藏)。可用的值在下表中給出，可以看出這是SW_XXX?常量的一個子集。
| 常量 | 描述 |
| 0 | 隱藏窗口(類似于SW_HIDE) |
| 1 | 顯示并聚焦窗口(類似于SW_SHOWNORMAL) |
| 2 | 最小化并聚焦窗口(類似于SW_SHOWMINIMIZED) |
| 3 | 最大化并聚焦窗口(類似于SW_MAXIMIZE) |
| 4 | 顯示一個非聚焦窗口(類似于SW_SHOWNOACTIVATE) |
| 6 | 最小化窗口并且不聚焦這個窗口(類似于SW_MINIMIZE) |
?
如果bWaitOnReturn標志返回TRUE，則它阻塞調用腳本，直到導出程序被終止。包含在命令行串中的任何環境變量自動展開。
?????????Run()方法是通過調用ShellExecuteEx()來實現的，即，我們也可以把注冊到打開動詞的文件名傳遞給ShellExecuteEx()函數。還有就是，它也默默地支持任何實現IShellExecuteHook接口的對象。在鉤住程序的執行中我們將進一步解釋。
?????????ExpandEnvironmentStrings()方法接收和返回串。輸入串是具有封裝在%號中環境變量的文字，而輸出串則是展開串。
sWinDir = ExpandEnvironmentStrings("Windows is at %WINDIR%")
如果環境串不存在，這個方法返回無定義的對象。因此，在操作之前你應該保證獲得要求的結果。
?
快捷方式和URL快捷方式
?????????CreateShortcut()接收文件名和返回相關文件擴展名的對象。如果擴展名是.lnk，則返回對象是WshShortcut，反之如果擴展名為.url，則返回對象是WshUrlShortcut。指定任何其它的擴展名都將獲得運行時腳本錯信息。在快捷方式和URL快捷方式之間的基本差別在于后者指向一個遠程URL。WshUrlShortcut也比WshShortcut簡單一點。
?
WshNetwork對象
????遠程打印機和網絡連接是屬于這個對象的范疇。通過WScript建立一個WshNetwork對象的實例：
?
Set n = WScript.CreateObject("WScript.Network")
?
下表列出了它所支持的方法：
?
| 方法 | 描述 |
| AddPrinterConnection() | 運行添加新打印機連接大師 |
| EnumNetworkDrives() | 允許通過返回的聚集來枚舉網絡驅動器(參見輔助對象) |
| EnumPrinterConnections() | 允許通過返回的聚集枚舉所有打印機連接(參見輔助對象) |
| MapNetworkDrive() | 建立與網絡驅動器的連接 |
| RemoveNetworkDrive() | 刪除與網絡驅動器的連接 |
| RemovePrinterConnection() | 刪除與網絡打印機的連接 |
| SetDefaultPrinter() | 定義新的默認打印機。如果是網絡打印機，就必須指定它的UNC名(如//server/Printer XYZ) |
這個對象還有三個屬性，其作用是顯然的。
ComputerName
UserDomain
UserName
?
輔助對象
WSH對象模型包含有六個輔助對象。首先需要注意的一點是你不能直接建立它們。它們也沒有ProgID，僅由其它對象的方法或屬性返回后，才可以使用它們。這些對象是：
| 對象 | 由…返回 |
| WshArguments | WScript.Arguments |
| WshCollection | WshNetwork.EnumNetworkDrives(), WshNetwork.EnumPrinterConnections() |
| WshEnvironment | WshShell.Environment |
| WshShortcut | WshShell.CreateShortcut() |
| WshUrlShortcut | WshShell.CreateShortcut() |
| WshSpecialFolders | WshShell.SpecialFolders |
除了WshShortcut?和?WshUrlShortcut以外，其它對象都指定為集合類型，因而它們的編程接口都是類似的，至少在語法上相同。
?
WshArguments對象
????這個集合對象包含了運行腳本的所有命令行變量，你可以通過WScript對象的Arguments屬性訪問它。這個部件有集合對象通常的特征：Item和Count。Item允許你取得第i個變量的值(列表是從零開始的)，Count返回變量總數。
????還有一個Length屬性是為了兼容性而設置的——它等價于Count。下面的VBScript代碼段說明腳本怎樣顯示它的命令行：
For Each item In WScript.Arguments
'?顯示命令行上的各個項
WScript.Echo item
Next
?
WshCollection對象
?????????這個對象是一個普通的集合對象，主要由WshNetwork的方法返回。
?
WshEnvironment對象
????這個對象的引用由WshShell.Environment屬性返回，它有一個Remove()方法，Count、Length和Item使你能遍歷這個集合的項。
????這個集合的項是環境變量，類似于WINDIR或PATH等。除了可以傳遞給Item成員一個索引，更有用的是使用變量名標識串來調用Item：
Set s = WScript.CreateObject("WScript.Shell")
Set e = s.Environment
WScript.Echo e.Item("PATH")
WScript.Echo e.Remove("PATH")
?
WshShortcut對象
?????????WshShortcut對象是一個允許定義和存儲.lnk快捷方式到磁盤的部件?？旖莘绞浇⒂袃蓚€步驟：首先建立WshShortcut對象，然后填充它的屬性并保存到磁盤。首先由WshShell.CreateShortcut()函數建立對象：
Set s = WScript.CreateObject("WScript.Shell")
Set lnk = s.CreateShortcut("mydiskc.lnk")
lnk.TargetPath = "c:/"
lnk.Save
在調用CreateShortcut()時，你就指定了最終建立的.lnk文件名。其次你填寫了快捷方式的各個屬性?，然后通過調用WshShortcut.Save()保存到磁盤。如果想要在特殊文件夾上建立快捷方式，只需取得路徑名并傳遞一個全文件名到CreateShortcut()即可。要取得特殊文件夾的物理路徑，你需要使用WshSpecialFolders對象，過一會我們將解釋這個對象。下面是WshShortcut的全部屬性列表：
?
| 屬性 | 描述 |
| Arguments | 一個包含快捷方式目標變量的字符串 |
| Description | 快捷方式的描述串 |
| FullName | 恢復.lnk文件的全路徑名 |
| Hotkey | 一個包含啟動快捷方式熱鍵的表示字符串 |
| IconLocation | 一個包含圖標路徑和索引位置的字符串。路徑和索引用逗號分隔。如：c:/windows/system/shell32.dll,13 |
| TargetPath | 這可以是文件夾、可執行文件，或使用ShellExecute()運行的文件 |
| WindowStyle | 表示窗口的SW_XXX風格 |
| WorkingDirectory | 啟動可執行文件的目錄 |
?
WshUrlShortcut對象
?????????這個對象的工作方式與WshShortcut相同，但是僅有下面兩個屬性：
| 屬性 | 描述 |
| FullName | 恢復包含這個快捷方式的.url文件的全路徑名。 |
| TargetPath | 恢復這個快捷方式指向的URL。 |
它也支持Save()方法，存儲快捷方式到磁盤。
?
WshSpecialFolders對象
?????????最后這個對象是構建于SHGetSpecialFolderPath() API函數之上的一種封裝。這個我們在第5章已經討論過了。它是一個包含Item、Count和Length成員的集合，與我們前面調查過的集合對象有相同的特征。下面代碼段說明怎樣在Favorites文件夾上建立快捷方式：
Set s = WScript.CreateObject("WScript.Shell")
sPath = s.SpecialFolders("Favorites")
sPath = sPath & "/mydiskc.lnk"
Set lnk = s.CreateShortcut(sPath)
lnk.TargetPath = "c:/"
lnk.Save
正象代碼描述的，它與前面我們的建立快捷方式到C：/?的示例有所不同，這里引用了WshShell.SpecialFolders屬性返回的WshSpecialFolders對象獲得的路徑。
?
訪問注冊表
?????????Windows腳本環境給出了一種平穩訪問注冊表的能力，用于讀寫鍵和值。這是一個重要的特征，因為這實際授予并增進你的應用處理注冊表的能力。正象我們前幾章中指出的，用于訪問注冊表的API是笨拙的，而且是在太低的抽象層上設計的，盡管有一些輕量級API函數在這方面的改進，這個我們在第10章中已經看到了。
?????????WshShell對象包含三個可編程修改系統注冊表狀態的方法，它們是：
RegDelete()
RegRead()
RegWrite()
這些方法的語法相當簡單，回顧一下在第10章中遇到的SGxxx()?函數的語法，不是初始的注冊表API函數。這幾個基本上只要求你指定要操作的鍵或值以及讀寫緩沖。
?
支持的類型
?????????Win32注冊表編程接口允許存儲和讀出各種不同的數據類型——細節參見Win32資料。然而，WSH對象僅僅支持五種常用類型，它們是：
REG_SZ?—?字符串
REG_DWORD?— 32位無符號值
REG_BINARY?—?二進制數據
REG_EXPAND_SZ?—?包含可擴展宏的字符串，如%WINDIR%
REG_MULTI_SZ?—?空終止串的數組，雙空終止串數組(支持讀但不支持寫)
?
在腳本代碼中所有變量都處理成VARIANTs，而上面列出的注冊表方法最終使用的是要求特殊類型的底層注冊表API。因此需要某些類型的轉換，然而WshShell對象自動執行了這些轉換。
?
刪除注冊表項
?????????RegDelete()方法有下面的語法：
?
WshShell.RegDelete sKeyOrValue
?
根本不需要顯式涉及給定的串是鍵還是值——只需要傳遞一個全注冊表路徑到這個函數。如果這個路徑用反斜杠終止，它就被當作鍵，否則它就被處理成值。
?????????在這個層面上WSH方法與Win32?注冊表?API有根本不同的編程接口。Win32 API有不同的函數處理鍵和值。更進一步，WSH方法要求指定根節點在串內而不是象Win32API函數要求的那樣作為另一個參數。
?
Windows9x與NT的差別
???????RegDelete()方法最終調用RegDeleteKey()和RegDeleteValue()函數，后者在Windows9x和NT下的工作是相同的。RegDeleteKey()函數在二者上展示了不同的行為。在Windows9x上刪除鍵時，它的子樹一并刪除，而NT上則要求它是空的時候才能刪除(即，沒有子鍵)。RegDelete()方法也支持這種行為。
????一個鍵所握有的值的個數與它是否為空這個問題無關——一個可以刪除的鍵只是它不包含子鍵，即使它包含值也沒關系。
?
讀取注冊表
????要讀取注冊表，只需調用RegRead()，并傳遞一個引用鍵的全名或一個具有上面討論的相同邏輯的值：最后的反斜杠表示鍵或值。沒有必要指定要讀出的數據類型。正確地聲明存儲值結果的變量是充分的?？偸菍ο蟊旧淼捏w系結構關注所取得的原數據，并把它包裝成VARIANT類型返回。這個函數的工作方式如下：
v = WshShell.RegRead(sKeyOrValue)
?
從注冊表中取得系統信息
?????????這里是一個讀取Windows系統版本和注冊信息的簡短例程(命名為system.vbs)。
' SYSTEM.VBS
'?從注冊表讀取版本和注冊信息
'-------------------------------------------------------------
'?建立WshShell?對象
Set s = WScript.CreateObject("WScript.Shell")
'?注冊表路徑常量
RP_SYSTEM = "HKLM/System/CurrentControlSet/Control/ProductOptions/"
RP_PRTYPE = "ProductType"
RP_NTVERS = "HKLM/Software/Microsoft/Windows NT/CurrentVersion/"
RP_WINVER = "HKLM/Software/Microsoft/Windows/CurrentVersion/"
'?系統名常量
WIN_NTWORK = "Windows NT Workstation"
WIN_NTSERV = "Windows NT Server"
'?讀取產品類型
On Error Resume Next '?在Win9x下因為鍵不存在
sProdType = ""
sProdType = s.RegRead(RP_SYSTEM & RP_PRTYPE)
'?確定?OS?版本
select case sProdType
case "WinNT"
sRegPathVer = RP_NTVERS
sBuf0 = WIN_NTWORK
sBuf1 = s.RegRead(RP_NTVERS & "CurrentVersion") + "."
sBuf2 = s.RegRead(RP_NTVERS & "CurrentBuildNumber")
sBuf3 = s.RegRead(RP_NTVERS & "CSDVersion")
case "ServerNT", "LanManNT"
sRegPathVer = RP_NTVERS
sBuf0 = "Windows NT Server"
sBuf1 = s.RegRead(RP_NTVERS & "CurrentVersion")
sBuf2 = s.RegRead(RP_NTVERS & "CurrentBuildNumber")
sBuf3 = s.RegRead(RP_NTVERS & "CSDVersion")
case ""
sRegPathVer = RP_WINVER
sBuf0 = s.RegRead(RP_WINVER & "Version")
sBuf2 = s.RegRead(RP_WINVER & "VersionNumber")
sBuf3 = "-----------------------"
end select
'?讀取注冊信息
sBuf4 = s.RegRead(sRegPathVer & "RegisteredOwner")
sBuf5 = s.RegRead(sRegPathVer & "RegisteredOrganization")
'?顯示結果
WScript.Echo sBuf0 + " " + sBuf1 + sBuf2 + vbCrLf + _
sBuf3 + vbCrLf + vbCrLf + _
sBuf4 + vbCrLf + _
sBuf5
'?關閉
WScript.Quit
這段代碼僅依靠注冊表信息來確定平臺類型。在Win32?代碼中，幾乎所有這類信息都由GetVersionEx()函數返回。然而有一個例外：這個API函數并不能區別WindowsNT的工作站和服務器版本。為此，你需要訪問注冊表。現在讓我們看一下上面代碼執行這個操作的過程。
????在WindowsNT下，下面的路徑含有ProductType值：
HKEY_LOCAL_MACHINE
/System
/CurrentControlSet
/Control
/ProductOptions
如果這個鍵不存在，則我們運行的系統可以是Windows95或Windows98。ProductType包含三個可能的串：
?
| 值 | 描述 |
| WinNT | Windows NT?工作站 |
| ServerNT | Windows NT?服務器 |
| LanManNT | 作為主或備份域控制器的Windows NT?服務器 |
?
知道了操作系統后，你就可以很容易地在Windows和NT之間管理注冊表結構的差異了。最重要的是存儲在下面鍵下的版本和注冊信息：
HKEY_LOCAL_MACHINE
/Software
/Microsoft
/Windows NT
/CurrentVersion
是在Windows NT系統下，
HKEY_LOCAL_MACHINE
/Software
/Microsoft
/Windows
/CurrentVersion
?
是在Windows9x系統下。其它的差別是鍵值的不同。兩個系統的注冊表都支持RegisteredOwner?和RegisteredOrganization，但是，Windows NT把安裝服務包的信息存儲在CSDVersion值中，而CurrentBuildNumber存儲的是構建號。這個信息在Windows9x下不可用，此時有一個Version?和?VersionNumber值存儲操作系統的名和它的完整版本數。
?????????下圖顯示了system.vbs腳本在Windows95?和WindowsNT機器上的輸出：
?????????????????????????????????
?
?
注意可以只取首字母來引用注冊表的根節點。在上面例子中，我們使用HKLM來代替HKEY_LOCAL_MACHINE。其它的替換是：
| 首字母 | 等價的根節點 |
| HKLM | HKEY_LOCAL_MACHINE |
| HKCR | HKEY_CLASSES_ROOT |
| HKCU | HKEY_CURRENT_USER |
當然完全可能訪問其它節點如HKEY_USERS?和?HKEY_CURRENT_CONFIG，但是它們沒有首字母——只能使用全名。
?
寫入注冊表
????你可以在WSH環境下使用RegWrite()方法將新內容寫入注冊表。下面顯示了它的語法：
?
WshShell.RegWrite(sKeyOrValue, vValue, [iType])
?
這個方法自動建立出現在路徑中的任何缺失鍵。如果傳遞一個鍵到sKeyOrValue變量，則vValue的內容作為這個鍵的默認值。iType指定了值的類型，是除REG_MULTI_SZ外前述的REG_XXX類型之一。默認時的這個參數是REG_SZ類型，一個串，即使你實際傳輸的是一個數值的vValue，也是如此。
Set s = WScript.CreateObject("WScript.Shell")
sRegPath = "HKLM/Software/Expoware Soft/"
s.RegWrite sRegPath & "Wsh/", "WSH examples"
?
進一步利用注冊表
?????????如果你需要進一步擴展WSH的注冊表編程接口，就應該考慮編寫新的COM控件來輸出你所需要到功能。至少有兩件事情是你所需要的，而且是當前編程接口所不能完成的。
?????????第一你可能需要處理更多的數據類型，這是一個不同尋常的需求，除非你需要處理海量數字或字符串數組。再有就是，你可能需要你的服務器提供鍵和值的枚舉功能。更進一步的需求是與遠程注冊表連接，實現變化通知機理，或實現‘保存?/?恢復’鍵的方法。一般，通過設計COM服務器，你可以使WSH操作注冊表具有任何使用Win32 API可以實現的功能。
?????????在添加新對象到WSH一節中我們將給出這樣的COM服務器，它將提供鍵和值的枚舉功能。
?
腳本化本地文件系統
????腳本不能調用API函數，所以它們需要特殊的對象來提供對本地文件系統的訪問。VBScript和Jscript均有一些有用的對象用以操作文件、文件夾和驅動器，它們是：
?
| 腳本對象 | 描述 |
| FileSystemObject | 管理文件和文件夾操作，建立文本文件 |
| Folder | 返回文件系統文件夾信息 |
| Drive | 返回驅動器信息 |
| File | 返回文件信息 |
| Dictionary | 一個高性能集合對象 |
| TextStream | 啟動一個文本I/O流 |
?
這些對象的更新版本——微軟的運行時腳本——在微軟的腳本站點上是可用的。關于這些對象的更進一步信息請參考MSDN庫。
?????????由于Windows腳本環境是有些封閉的，一些事情主要是內部使用的(或是單獨為PC而設計的)，考慮到訪問磁盤的不安全性，這些都抵消了文件系統對象的重要作用。因此，FileSystemObject對象作為WSH編程工具可能真正是有用的。
?????????下面這個短例子顯示出你可以使用FileSystemObject所作的操作。這個代碼顯示一個信息框，給出系統中每個驅動器的狀態：
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
ElseIf d.IsReady Then
n = d.VolumeName
n = n + vbCrLf + "Free: " + FormatNumber(d.FreeSpace/1024, 0) + " KB"
n = n + vbCrLf
Else
n = n + vbCrLf
End If
s = s & n & vbCrLf
Next
WScript.Echo s
?????????????????????????
?
?
?
訪問存在的對象
?????????Windows腳本環境是一個完全COM感知的環境。也就是說，從這個環境中你可以喚醒和使用任何正確注冊的COM服務器。我們到現在為止所描述的都是分布在WSH包中的對象，而且它們是來自于WSH對象模型的。然而就我們的觀點，這個對象模型的構成是有些爭議的。有兩個觀點可以考慮：
????????
一個自動化接口所輸出的每一件東西都可以從WSH調用，而且都可以被作為對象模型的部件。
?
WSH對象模型只有少數接口與ActiveX腳本引擎通訊，除了WScript對象外，其它的每一件東西都可以作為相關的COM服務器，而沒有必要作為對象模型的一個部件。
?
你可以使用WScript.CreateObject()方法訪問任何存在的自動化服務器，或更有效地，使用VBScript的CreateObject()方法訪問它們。例如，你可以從WSH腳本驅動我們前面章節中討論過的Shell對象。下面這段代碼說明怎樣用WSH腳本顯示任務條屬性對話框：
?
Set s = WScript.CreateObject("Shell.Application")
s.TrayProperties
?
當然，你也可以用同樣的方式操作你自己的COM服務器(參見添加新對象到WSH)。
?
WSH處理事件
?????????在客戶端處理事件的典型方法是定義一個過程，其名字遵循指定的慣例。這個名字有兩個元素組成：一個標識激起事件對象的前綴，以及一個事件名。這個方案在象VB這樣的可視環境中是普通的，其中，Button1上點擊事件的處理由調用Button1_Click過程完成。
?????????在WSH下，操作以相同的方法進行。如果服務器觸發一個命名為Collapse的事件，而且表示這個服務器的對象為TreeViewNode1，則客戶端處理這個事件的過程就是TreeViewNode1_Collapse。
?
定義事件處理器
?????????正常情況，對象名被自動分配，并通過屬性編輯器或其它工具修改。在WSH下我們不能依靠可視工具，需要一個程序的方法給對象賦予一個內部名。
?????????在用WScript.CreateObject()調用建立新對象時，能夠指定服務器的選項參數以及ProgID：
?
WScript.CreateObject(sProgID, [sPrefix])
?
sPrefix參數是一個類如MyObj_的串，它將用于任何事件過程名的前綴，這些事件是由被建立對象激起的(如前例，這個參數起到TreeViewNode1_的作用)。
?
建立事件處理器的步驟
?????????如果知道服務器輸出了你可能感興趣的事件，在WScript.CreateObject()調用的時候就有必要指定第二個參數，只要把前綴賦予這個對象，你就可以用適當命名的過程處理任何事件。原型精確地由事件的語法所定義。實際，WSH環境組合可能的處理器過程名，然后試圖查找它，如果成功，執行調用者端代碼處理這個事件。
????注意，對于相同對象的每一個可能的副本前綴必須是唯一的。另外我們推薦使用下劃線字符作為終止符。
????為了在Windows腳本環境中支持事件，必須使用WScript.CreateObject()來建立你自己的對象。
?
添加新對象到WSH
?????????我們已經看到Windows腳本環境帶有一些內置的對象，而且這些對象故意向WSH用戶提供在WSH之外可用的重要功能子集。例如網絡對象允許你了解遠程打印機和共享磁盤，而Shell部件提供了快捷方式能力、環境變量，進程導入和注冊表處理等。
?????????這些對象作為入門是足夠了，但是很快你就會發現，你還需要更多的對象。如果你需要的COM部件在機器上存在，則簡單地建立實例和使用它就可以了，當然需要知道它的方法。反之，你也可以寫自己的對象來擴展WSH對象模型，這就是我們將有討論的內容。
?????????在此我們將構造一個自動化服務器來提供對WSH較弱的方面的支持：
???????????????????剪切板的支持
???????????????????驅動器格式化
???????????????????注冊表枚舉
此外我們還將重新設計和集成兩個我們在前面章節中給出的例子：
???????????????????怎樣瀏覽圖標
???????????????????使用客戶名運行程序或文件
?
準備ATL自動化服務器
?????????WSH可以調用任何無論什么語言實現的自動化服務器的方法。因此，我們選擇C++?和ATL作為編程語言。首先使用ATL COM應用大師建立一個進程內DLL工程(project)，命名為WshMore。
????然后使用對象大師添加一個簡單的ATL對象，命名為WshFun，確保其接口為IWshFun，并具有雙接口屬性。現在我們所要做的就是編寫函數。這是小意思了。
?
定義編程接口
?????????這個接口并不是一個設計得完好的模型——我們只是用來向你展示可能要做的工作。下面就是我們要加到IWshFun接口的函數：
?
| 函數 | 范圍 | 描述 |
| CopyText() | 剪裁板 | 拷貝文本串到剪裁板。使用CF_TEXT格式 |
| PasteText() | 剪裁板 | 從剪裁板讀出文本。使用CF_TEXT格式 |
| AddExecuteHook() | Shell執行 | 對IShellExecuteHook模塊使用的.ini文件添加和刪除條目(見第8章)以建立新的快捷鍵導出程序的執行。 |
| BrowseForIcon() | 圖標 | 顯示我們在第9章建立的對話框，使你可以從給定文件中拾取圖標。 |
| FormatDrive() | 驅動器 | 打開系統格式化驅動器對話框。 |
| FindFirstKey() | 注冊表 | 給定一個基路徑，枚舉第一個鍵。 |
| FindNextKey() | 注冊表 | 繼續枚舉上面路徑的鍵。 |
| FindFirstValue() | 注冊表 | 給定一個基路徑，枚舉第一個值。 |
| FindNextValue() | 注冊表 | 繼續枚舉上面路徑的值。 |
下一節我們將開始仔細討論這些方法的語法。挖掘它們實現的細節，并提供使用這些方法的例程。
?
剪裁板支持
?????????剪裁板是一個可用于臨時數據存儲的系統工具，但是腳本語言通常并不提供處理它的方法。正如你所知道的，Windows的剪裁板可以以個種數格式存儲數據，包括客戶定義的格式。而我們所寫的方法僅僅使用最簡單的一種格式CF_TEXT，顯示文本的格式。
????添加的兩個方法是CopyText()?和?PasteText()，正象名字提示的，它們的功能是拷貝文本和讀取文本。由于函數的聲明采用的是BSTR串，在方法體內需要進行某些必要的轉換。
?
拷貝文本
????IWshFun::CopyText()的語法是：
?
????????HRESULT CopyText([in] BSTR bText);
?
簡單地接收要拷貝的文本，并總是返回S_OK。這個函數取BSTR串作為輸入參數，建立一個包含文本數據的存儲器Handle?，封包，然后把它存儲到剪裁板。
STDMETHODIMP CWshFun::CopyText(BSTR bText)
{
USES_CONVERSION;
TCHAR pszText[MAXBUFSIZE] = {0};
lstrcpy(pszText, OLE2T(bText));
HANDLE hData = GlobalAlloc(GHND, MAXBUFSIZE);
LPTSTR psz = static_cast<LPTSTR>(GlobalLock(hData));
lstrcpyn(psz, pszText, MAXBUFSIZE);
GlobalUnlock(hData);
OpenClipboard(NULL);
SetClipboardData(CF_TEXT, hData);
CloseClipboard();
return S_OK;
}
我們定義了MAXBUFSIZE常量，它等于32768，即一個32K緩沖。另外還使用了ATL的OLE2T()宏來轉換BSTR到LPSTR串。在VBScript或Jscript中寫代碼調用CopyText()有如下方式：
Dim o
Set o = WScript.CreateObject("WshMore.WshFun.1")
o.CopyText "I'm the IWshFun interface"
?
讀出文本
????PasteText()方法是從剪裁板恢復任何CF_TEXT格式內容的方法，并把它作為串返回。這個方法的聲明是：
?
HRESULT PasteText([out, retval] BSTR* pbRetVal);
?
這個方法不接收任何輸入參數，而是把pbRetVal值作為方法的返回值傳遞給腳本。下面清單說明的它的實現。
STDMETHODIMP CWshFun::PasteText(BSTR* pbRetVal)
{
USES_CONVERSION;
//?取得剪裁板的內存Handle
OpenClipboard(NULL);
HANDLE hData = GetClipboardData(CF_TEXT);
CloseClipboard();
//?抽取內容
LPTSTR psz = static_cast<LPTSTR>(GlobalLock(hData));
TCHAR pszText[MAXBUFSIZE] = {0};
lstrcpyn(pszText, psz, MAXBUFSIZE);
GlobalUnlock(hData);
//?返回?BSTR
*pbRetVal = T2BSTR(pszText);
return S_OK;
}
?
我們通過ATL的T2BSTR()宏建立BSTR，它取ANSI串作為輸入。除非你在代碼中使用類似于CComBSTR的封裝類，否則在調用PasteText()時，你應該使用SysFreeString()來釋放BSTR。下面是一個簡單的C++?例子：
IWshFun* pWshFun = NULL;
hr = CoCreateInstance(CLSID_WshFun, NULL, CLSCTX_INPROC_SERVER,
IID_IWshFun, reinterpret_cast<LPVOID*>(&pWshFun));
if(FAILED(hr))
return;
BSTR bstr;
pWshFun->PasteText(&bstr);
MessageBox(GetFocus(), bstr, __TEXT("PasteText"), MB_OK);
pWshFun->Release();
SysFreeString(bstr);
這里是VBScript的例子：
Dim o, s
Set o = WScript.CreateObject("WshMore.WshFun.1")
s = o.PasteText
MsgBox s
?
驅動器格式化
?????????由于Windows腳本環境是Windows Shell下的腳本環境，而且與DOS的批處理風格相近，因此訪問文件系統有時是必要的。我們已經介紹了FileSystemObject對象作為解決這個問題的方案。然而，在FileSystemObject所提供的眾多函數集中并沒有提供格式化磁盤的工具。在第10章中，我們詳細地討論了SHFormatDrive()函數。作為例子的一部分，我們將提供通過COM的方法訪問這個函數的能力。方法的原型為：
?
HRESULT FormatDrive([in] int iDrive);
?
為了簡單起見，我們放棄這個函數的所有增強性能。因此這個方法的源碼看上去是很直接的：
extern "C" int WINAPI SHFormatDrive(long, long, long, long);
STDMETHODIMP CWshFun::FormatDrive(int iDrive)
{
int irc = SHFormatDrive(0, iDrive, 0, 0);
return (irc < 0 ? S_OK : E_FAIL);
}
?
這個函數返回一個布爾值來表示操作的成功或失敗。也就是，這個函數實際格式化了磁盤后它返回非0值，否則返回0值(包括取消了操作)。
?????????在第10章中說明，?SHFormatDrive()包含在shell32.lib庫中。但是在shellapi.h或其它的頭文件中都沒有給出適當的聲明。因而我們必須在代碼中添加聲明，而且需要帶有“C”前綴來保證兼容性。
?????????下面是在Jscript代碼中怎樣調用這個新方法的例子：
//?格式化驅動器?A:
var o;
o = WScript.CreateObject("WshMore.WshFun.1");
o.FormatDrive(0);
使用基于0的數字表示要格式化的驅動器：0是驅動器?A，1?是?B，?2?是?C?等。
?
瀏覽圖標
????建立快捷方式是WSH的典型應用，一個有趣的功能是應該給出一個系統提供的對話框來選擇賦予快捷方式的圖標。我們已經討論了這個對話框的必要源碼——參見第9章，和第11章的部分例子。
????在這個例子中，我們打算展示使這個功能可用于Windows腳本環境應用的辦法，這個方法為：
?
HRESULT BrowseForIcon([in] BSTR bFile, [out, retval] BSTR* pbRetVal);
?
bFile變量表示要瀏覽器圖標的文件，這可以在運行時通過點擊對話框的瀏覽按鈕改變。
????????????????????????????
?
?
在選擇了一個圖標后，這個方法返回一個帶有文件名和選中圖標索引的串，它們用逗號分隔：
?????????????????????????????????
?
?
方法的源碼調用SHHelper.dll(參見第11章)，一個輔助庫，它收集了許多我們已經編寫過的函數。這個DLL包含了SHBrowseForIcon()函數，其源碼我們在第9章中開發過。
?
#include "shhelper.h"
STDMETHODIMP CWshFun::BrowseForIcon(BSTR bFile, BSTR* pbRetVal)
{
USES_CONVERSION;
TCHAR pszFile[MAX_PATH] = {0};
lstrcpy(pszFile, OLE2T(bFile));
HICON hIcon;
int iIndex = SHBrowseForIcon(pszFile, &hIcon);
if(iIndex >= 0)
{
TCHAR szBuf[MAX_PATH + 10] = {0};
wsprintf(szBuf, __TEXT("%s,%d"), pszFile, iIndex);
*pbRetVal = T2BSTR(szBuf);
return S_OK;
}
return S_FALSE;
}
?
此時需要ANSI- Unicode轉換，因為SHBrowseForIcon()函數要求ANSI串。下面的代碼段展示怎樣從VBScript代碼調用BrowseForIcon()方法。
Dim o, s
Set o = WScript.CreateObject("WshMore.WshFun.1")
s = o.BrowseForIcon("shell32.dll")
MsgBox s
?
注冊表鍵枚舉
?????????我們前面提到過，WSH內置的注冊表支持方法并不包含鍵和值的枚舉功能，然而，如果你需要對注冊表的某個子樹做這樣的操作時，這樣方法可能是真正有用的。我們提供兩個不同的枚舉器，一是枚舉鍵的，另一是枚舉值的。
?????????底層Win32 API函數和新Shell實用API(見第10章)有類似的方法給出。你需要指定附加的變量來標識鍵或值的第?n?個項。RegEnumValue()?和?SHEnumKeyEx()函數一般是由布爾變量驅動的循環，以防止在鍵或值清單末端中斷。
?????????就我們的實現而言，采取的是稍微不同的方法，定義兩個方法，稱為FindFirstXxx()?和FindNextXxx()，其原型為：
HRESULT FindFirstKey([in] long hk, [in] BSTR bRegPath,[out, retval] BSTR* pbRetVal);
HRESULT FindNextKey([out, retval] BSTR* pbRetVal);
HRESULT FindFirstValue([in] long hk, [in] BSTR bRegPath,[out, retval] BSTR* pbRetVal);
HRESULT FindNextValue([out, retval] BSTR* pbRetVal);
我們采用了與Win32相同的語法，所以注冊表的路徑使用根節點和路徑參數分別表示。注意，WshShell方法使用全路徑名，需要解析來獲得根節點。這項技術使它更適合于使用如HKLM這樣的首字符。
?????????這個IWshFun接口要求傳遞HKEY值(即一個長值)和一個剩余的路徑串。每一對函數共同工作，FindFirstXxx()完成后，FindNextXxx()函數開始連續操作，實際上，所有操作都改變枚舉的索引，這個索引在調用FindFirstXxx()時設置為0，并在每次調用FindNextXxx()時增加。為了保持編程接口簡單，注冊表變量被隱藏，所以不需要每次都指定它們。
?????????這兩類枚舉有相同的內部結構，并且是建立在GetNthKey()?和?GetNthValue()兩個輔助函數之上的。
?
枚舉鍵
?????????GetNthKey()函數打開指定的鍵并抽取第?n?個子鍵，如果存在，其名字通過pbRetVal輸出變量返回。SHEnumKeyEx()(在shlwapi.lib中實現)函數之所以還有用是因為它的變量比?RegEnumKeyEx()少。
DWORD CWshFun::GetNthKey(long hk, BSTR bRegPath, int iIndex, BSTR* pbRetVal)
{
USES_CONVERSION;
TCHAR szRegPath[MAX_PATH] = {0};
lstrcpy(szRegPath, OLE2T(bRegPath));
HKEY hkey;
RegOpenKeyEx(reinterpret_cast<HKEY>(hk),
szRegPath, 0, KEY_ALL_ACCESS, &hkey);
TCHAR szKey[MAX_PATH] = {0};
DWORD dwSize = MAX_PATH;
DWORD rc = SHEnumKeyEx(hkey, iIndex, szKey, &dwSize);
if(rc == ERROR_SUCCESS)
*pbRetVal = T2BSTR(szKey);
RegCloseKey(hkey);
return rc;
}
FindFirstKey()/FindNextKey()枚舉的框架是一個類循環，它涉及到兩個函數，并維持幾個全程變量狀態。
DWORD g_dwIndex = 0;
BSTR g_bRegPath;
LONG g_hk;
STDMETHODIMP CWshFun::FindFirstKey(long hk, BSTR bRegPath, BSTR* pbRetVal)
{
g_dwIndex = 0;
g_bRegPath = bRegPath;
g_hk = hk;
DWORD rc = GetNthKey(hk, bRegPath, g_dwIndex, pbRetVal);
return (rc == ERROR_SUCCESS ? S_OK : S_FALSE);
}
STDMETHODIMP CWshFun::FindNextKey(BSTR* pbRetVal)
{
g_dwIndex++;
DWORD rc = GetNthKey(g_hk, g_bRegPath, g_dwIndex, pbRetVal);
return (rc == ERROR_SUCCESS ? S_OK : S_FALSE);
}
在FindFirstKey()操作期間，使用0索引調用GetNthKey()，FindNextKey()內部則使用一個增加的值。注冊表路徑被保存以為FindNextKey()進一步使用。
?
枚舉值
?????????枚舉值幾乎是一個同樣的過程。GetNthValue()函數依賴于SHEnumValue()函數列出的所有指定鍵的葉節點：
DWORD CWshFun::GetNthValue(long hk, BSTR bRegPath, int iIndex, BSTR* pbRetVal)
{
USES_CONVERSION;
TCHAR szRegPath[MAX_PATH] = {0};
lstrcpy(szRegPath, OLE2T(bRegPath));
HKEY hkey;
RegOpenKeyEx(reinterpret_cast<HKEY>(hk),
szRegPath, 0, KEY_ALL_ACCESS, &hkey);
DWORD dwType = 0;
TCHAR szKey[MAX_PATH] = {0};
DWORD dwSize = MAX_PATH;
DWORD rc = SHEnumValue(hkey, iIndex, szKey, &dwSize, &dwType, NULL, 0);
if(rc == ERROR_SUCCESS)
*pbRetVal = T2BSTR(szKey);
RegCloseKey(hkey);
return rc;
}
注意，SHEnumValue()可以返回給定值的類型，以及當前內容和它的尺寸。如果你對這些信息不感興趣，給&dwType傳遞NULL。
?????????FindFirstValue()?和?FindNextValue()函數的框架類似于與其相似的鍵函數：
?
STDMETHODIMP CWshFun::FindFirstValue(long hk, BSTR bRegPath, BSTR* pbRetVal)
{
g_dwIndex = 0;
g_bRegPath = bRegPath;
g_hk = hk;
DWORD rc = GetNthValue(hk, bRegPath, g_dwIndex, pbRetVal);
return (rc == ERROR_SUCCESS ? S_OK : S_FALSE);
}
STDMETHODIMP CWshFun::FindNextValue(BSTR* pbRetVal)
{
g_dwIndex++;
DWORD rc = GetNthValue(g_hk, g_bRegPath, g_dwIndex, pbRetVal);
return (rc == ERROR_SUCCESS ? S_OK : S_FALSE);
}
不要忘了使用SHEnumKeyEx()?和?SHEnumValue()函數需要連接shlwapi.lib庫來編譯這段代碼。
?
使用枚舉器
?????????現在我們看一下在WSH應用中怎樣使用這兩個枚舉器。這個示例是以VBScript代碼編寫的，說明怎樣列出在
HKEY_LOCAL_MACHINE
/Software
下的鍵，和在鍵：
HKEY_LOCAL_MACHINE
/Software
/Microsoft
/Windows
/CurrentVersion
中的值。
?????????腳本首先枚舉鍵，然后逐步組合顯示的串。每一個串都由回車換行分隔符(ASCII13+ASCII 10)，這使每一個鍵顯示在不同的行上。在枚舉給定路徑的值時也使用相同的邏輯。
'?根節點的常量
Const HKCR = &H80000000 ' HKEY_CLASSES_ROOT
Const HKCU = &H80000001 ' HKEY_CURRENT_USER
Const HKLM = &H80000002 ' HKEY_LOCAL_MACHINE
Const HKU = &H80000003 ' HKEY_USERS
Const HKPD = &H80000004 ' HKEY_PERFORMANCE_DATA
Dim o, s, b
Dim sValues, sKeys
Set o = CreateObject("WshMore.WshFun.1")
'?枚舉鍵
s = o.FindFirstKey(HKLM, "Software")
if Len(s) > 0 then
b = True
while b
sKeys = sKeys + s + vbCrLf
s = o.FindNextKey
if Len(s) = 0 then
b = False
end if
wend
end if
MsgBox sKeys
'?枚舉值
s = o.FindFirstValue(HKLM, "Software/Microsoft/Windows/CurrentVersion")
if Len(s) > 0 then
b = True
while b
sValues = sValues + s + vbCrLf
s = o.FindNextValue
if Len(s) = 0 then
b = False
end if
wend
end if
MsgBox sValues
為了簡化我們定義了一些常量來映射注冊表根節點的實際值。我們看到HKEY是一個Longs值，這里使用的常量產生于它們的精確值。這些值可以從winreg.h文件中取得，這是一個Win32?編譯器include目錄下的一個文件。下面的圖象顯示了上面代碼產生的兩組信息，第一個窗口顯示的是鍵，第二個窗口顯示的是值。當然這個輸出依賴于實際注冊表和操作系統的內容。圖像采自Windows95。
??????????????????????????????
?
?
鉤住程序的執行
?????????我們添加到IWshFun接口的最后一個方法提供了直接的編程方法來添加快捷鍵到IShellExecuteHook處理器，這是我們在第8章建立的接口。通過定義和適當地安裝實現IShellExecuteHook接口的COM模塊，你就有能力在由ShellExecute()和ShellExecuteEx() API函數傳遞的每一個命令行上設置鉤子。尤其是，你可以獲得由系統‘運行’對話框或由WSH的WshShell.Run()方法導出的每一個程序的控制權。
?????????在第8章中，我們探討了添加‘快捷鍵’的特征——例如，要運行notepad.exe，你可以鍵入n?而不是全路徑。因此，要導出‘Notepad’，你只需調用：
Set s = WScript.CreateObject("WScript.Shell")
s.Run "n"
是IShellExecuteHook處理器恢復了映射并解析了特定的命令。我的處理器在稱之為showhook.ini文件中查找命令，這個文件在C:根目錄下。這是一個典型的.ini文件，其內容類似于：
[goldlist]
n=c:/windows/notepad.exe
這個IWshFun的方法，AddExecuteHook()只是在文件中增加一個條目或從文件中刪除一個條目：
?
HRESULT AddExecuteHook([in] BSTR bShortcut, [in] BSTR bExeFile)
?
其源碼是直接的，它調用WritePrivateProfileString()：
const LPTSTR EXECUTEHOOK = __TEXT("c://showhook.ini");
STDMETHODIMP CWshFun::AddExecuteHook(BSTR bShortcut, BSTR bExeFile)
{
USES_CONVERSION;
TCHAR szEntry[MAX_PATH] = {0};
lstrcpy(szEntry, OLE2T(bShortcut));
TCHAR szFile[MAX_PATH] = {0};
lstrcpy(szFile, OLE2T(bExeFile));
WritePrivateProfileString(__TEXT("goldlist"), szEntry,
(lstrlen(szFile) ? szFile : NULL), EXECUTEHOOK);
return S_OK;
}
通過指定空串作為文件的名(bExeFile?變量)，可以引起由bShortcut表示的條目整個被刪除。下面這段代碼說明怎樣使用這個方法：
Dim o
Set o = CreateObject("WshMore.WshFun.1")
o.AddExecuteHook "r", "regedit.exe"
這段代碼添加一個導出注冊表編輯器的新條目，如果你請求運行一個稱為?r?的程序：
r=regedit.exe
?
這個例子結束了我們關于Windows腳本環境的旅程。
?
關于WSH改進
?????????WSH是一個對程序員和系統管理員提供重要幫助的系統模塊，但是，它并不是完備的，特別，有兩個方面的欠缺：
???????????????????用戶接口
???????????????????代碼可重用性
要實際建立有用的和威力強大的腳本，你需要設置復雜和藝術對話框的方法，以及有某種可重用機理的能力。在這一章的最后一節，我們將討論建立這種能力的方法。在這里我們并不打算提供清晰的方案，這是因為這樣的方案(和涉及的技術)超出了本書的范圍。
?
增加用戶接口支持
?????????任何重要的開發環境都允許建立和設計對話框，沒有對話框，就難于獲得用戶輸入和難于使應用友善和可用。WSH腳本改進了MS-DOS的批處理，但是我們也確實需要替換基于舊風格的鍵盤菜單。
?
建立對話框
?????????在WSH內沒有建立通用對話框的工具，所以你必須依靠腳本語言或外部對象。VBScript提供了一個函數InputBox()，使你能交互地接收串。其用法如下：
?
strResult = InputBox(strMessage, strTitle, strDefault)
?
這個函數允許你定義希望顯示的消息，對話框標題和默認值。
???????????????????
?
?
例如上圖，由下面的調用產生：
?
InputBox "Enter some text", "Dialog", "Hello, world"
?
不幸，這個函數很不夠，我們需要的是一個象通用對話框提供者一樣工作的，以及可以指定界面模板的對象。更進一步，它應該允許靈活地嵌入代碼，調整界面控件坐標，以及驅動這些控件。也就是說，這個對象應該有解釋下面偽代碼的能力：
dlg = CreateObject("Dialog.Provider");
dlg.SetDlgItemText("object1", text1);
dlg.SetDlgItemInt("object2", num1);
dlg.Show();
MessageBox(dlg.GetDlgItemText("object1"));
dlg.Close();
此外對話框的模板必須易于繪制。這個需求的潛在答案就是動態HTML，使用它你：
?
?????????可以使用有吸引力的基于HTML的用戶接口
?????????不強迫學習新腳本語言來描述對話框
?????????可以混合界面控件和代碼
?????????可以最大限度的設計對話框模版
?????????有直接的方法標識基于對象的模版
?????????可以在任何時候更新內容
?
作為這個概念的補充，我們考慮IE4.x的動態HTML對象模型給出的一個方法showModalDialog()，它接收HTML頁名，并把它顯示在一個模式對話框中。IE4.0的‘關于’窗口也以同樣的邏輯建立。這個對話框是基于mshtml.dll輸出函數ShowHTMLDialog()的——這是一個動態HTML核心庫。
?
alert()對話框
在WSH應用中使用Jscript時可能有一點缺陷。一般的誤解是Jscript有幾個顯示標準對話框的函數，即alert()、prompt()?和?confirm()。然而這是錯誤的，因為所有這些函數都是IE4.0窗口對象的方法，它們不是在Jscript運行時引擎中實現的，因此，在WSH中是不可用的。如果你需要顯示某些信息，可以使用WScript.Echo()?或WshShell.Popup()方法。
????即使alert()總是與Jscript相關，它在VBScript下也是一個可訪問的窗口方法：
<html>
<script language="VBScript" for="window" event="onload">
window.alert "Hello, world!"
</script>
</html>
?
WSH文件上的拖拽
?????????WSH文件是一個.vbs或.js文檔，通常它是一個接收自身作為參數的應用。如果我們用拖拽數據在這種文件上設置其參數能行嗎？為了允許在Shell的文件上執行拖拽操作，需要進行Shell擴展。這是我們在第15章套討論的內容。
?
WSH中的可重用性
?????????WSH的另一個明顯的缺憾是它限制支持可重用性。這所需要的是腳本代碼的可重用和部件化能力。其解決方案混合使用腳本與COM，這就是XML Scriptlets(XML?小程序)。
?????????XML小程序是遵循XML語法的文本文件。它描述COM對象和嵌入腳本代碼段(VBScript?或?JScript)。這種代碼就象二進制COM代碼一樣被解釋和發布到外部世界，也就是說，XML小程序(由<script>標記組成的)是作為COM感知的規則自動化對象出現的，這就解決了腳本代碼重用的問題。
?
小結
?????????WSH是桌面層腳本引擎，它可以用作自動重復的活動，并遵循DOS的批處理文件邏輯。通過現今強有力的腳本語言與COM部件的結合使用，WSH可以很理想地使你的應用更豐富和更用戶友善。
?????????我們并沒有對Windows腳本環境對象的所有屬性和方法進行全面詳細的解釋——Internet客戶端SDK已經作了這方面的工作。相反，我們集中討論了對你可能有用的技術和方法?，F在，WSH有兩個主要的應用領域：作為Windows NT平臺的管理工具，和作為作為用戶的開發平臺。也就是說，系統管理人員和終端用戶，以及第三方開發商都能從WSH系統提供的內在腳本對象中獲得好處。如果你銷售了一套相關的和集成的程序，你就應該考慮提供使用戶自動收集不同程序屬性的對象。
?????????在這一章中，我們討論了：
???????????????????Windows腳本環境是什么
???????????????????怎樣獲得它，和它怎樣工作
???????????????????WSH對象模型
???????????????????怎樣訪問通用COM控件
???????????????????怎樣編寫COM控件來擴展WSH對象模型
???????????????????提示怎樣改進WSH
轉載于:https://www.cnblogs.com/songtzu/p/3239850.html
總結
以上是生活随笔為你收集整理的[转]Windows Shell 编程 第十三章 【来源：http://blog.csdn.net/wangqiulin123456/article/details/7988004】...的全部內容，希望文章能夠幫你解決所遇到的問題。
