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