- 相關(guān)推薦
如何快速地從網(wǎng)頁(yè)中獲得Email地址
摘 要 WSH是一種基于32位Windows平臺、于A(yíng)ctiveX腳本引擎、與編程語(yǔ)言無(wú)關(guān)的腳本宿主。本文通過(guò)幾個(gè)實(shí)例介紹了如何在Delphi5.0中應用WSH技術(shù)。關(guān)鍵詞 Delphii WSH 腳本執行和輔助功能
1 引言
微軟公司的WSH(Windows Scripting Host)是一種基于32位Windows平臺、應用于A(yíng)ctiveX腳本引擎、與編程語(yǔ)言無(wú)關(guān)的腳本宿主。WSH具有良好的腳本語(yǔ)言支持特性，它支持VBScript、javascript、Perl、REXX等各種腳本語(yǔ)言。WSH的運行方式較為靈活，既可以在Windows中運行，也可以在DOS命令模式下啟動(dòng)。微軟已經(jīng)在Windows98、Windows2000中內置了WSH技術(shù)。
WSH對象模型主要包含了兩類(lèi)ActiveX接口:腳本執行和輔助功能。每類(lèi)接口提供多種WSH對象，各對象有自己的和屬性。腳本執行接口提供了許多屬性和方法。這類(lèi)接口允許腳本操作處理WSH，在屏幕上顯示特定信息，執行一些基本功能（如創(chuàng )建Word應用程序對象）。輔助功能接口也提供了豐富的屬性和方法供用戶(hù)使用。利用這些屬性和方法我們可以進(jìn)行各種操作，例如：映射驅動(dòng)器、連接遠程打印機、獲取編輯系統環(huán)境變量（如用戶(hù)名、機名、域名等等）、操作注冊表等。系統管理員可以利用這些輔助功能創(chuàng )建簡(jiǎn)單的登錄腳本。程序編寫(xiě)者可以利用這些由WSH提供的對象接口在基于Windows的平臺上執行各種自動(dòng)化任務(wù)，例如：?jiǎn)?dòng)Word、Excel、Powerpoint任務(wù)，打開(kāi)CAD文件等。
在Delphi5.0中應用WSH技術(shù)，不但可以利用WSH的強大功能增強應用程序的性能，還可以簡(jiǎn)化應用程序設計，使編程工作更為簡(jiǎn)單。某些原本只能由Windows API函數完成的工作現在可以使用更為簡(jiǎn)單明了的WSH完成。WSH為用戶(hù)提供了多個(gè)對象，例如：WshShortcut、 WshShell、 WshArguments、 WshUrlShortcut、 Automation、WshEnvironment等等。我們可以利用它們進(jìn)行各種應用。
2 WSH應用實(shí)例
2.1 映射網(wǎng)絡(luò )驅動(dòng)器
在實(shí)際開(kāi)發(fā)MIS系統時(shí)，我們曾經(jīng)碰到這樣一個(gè)：該系統由內部30個(gè)不同的部門(mén)使用，由于管理的需要，各部門(mén)的數據除了通過(guò)專(zhuān)用數據庫接口提交到服務(wù)器以實(shí)現數據共享外，還須由系統自動(dòng)將各部門(mén)數據以專(zhuān)門(mén)的HTML文件格式發(fā)送到指定的服務(wù)器目錄下。服務(wù)器上對應設置了30個(gè)不同的共享目錄。服務(wù)器上的共享目錄分別映射為本地各部門(mén)的指定驅動(dòng)器如W:）。顯然，逐個(gè)部門(mén)進(jìn)行手工映射比較繁瑣。比較嚴重的情況是，如果用戶(hù)由于誤操作斷開(kāi)該映射，將導致應用系統無(wú)法運行。比較好的做法是在系統啟動(dòng)時(shí)自動(dòng)映射網(wǎng)絡(luò )驅動(dòng)器，WSH為我們提供了非常簡(jiǎn)單的實(shí)現方法。下面是一個(gè)示例性程序：
procedure TForm1.FormCreate(Sender: TObject);
var
oWshNetwork:variant ;
begin
oWshNetwork:=CreateOleObject('Wscript.Network');
oWshNetwork.MapNetworkDrive('w:','\\ezss\ydmis','True','administrator','xyz');
End;
程序首先創(chuàng )建基于WSH的OLE對象，然后映射服務(wù)器ezss上的共享目錄ydmis為W:。MapNetworkDrive方法的語(yǔ)法格式為：
MapNetworkDrive（strLocalName,strRemoteName,[bUpdateProfile],[strUser],[strPassword]）
各參數含義簡(jiǎn)要說(shuō)明如下：
strLocalName 映射到本地的驅動(dòng)器名稱(chēng)。
strRemoteName 映射的遠程共享名。
bUpdateProfile 如果本參數設置為T(mén)RUE,這種映射將存儲在用戶(hù)Windows系統的profiles文件夾下作為用戶(hù)配置保留。
strUser、strPassword 指定受托共享的用戶(hù)名和密碼。
若要斷開(kāi)該映射，可以使用RemoveNetworkDrive方法，例如oWshNetwork.RemoveNetworkDrive('w:')。
2.2 創(chuàng )建應用程序快捷方式圖標
WSH可以幫助我們非常容易地創(chuàng )建應用程序快捷方式圖標，這使得我們能夠自由地在安裝程序中選擇發(fā)布程序快捷圖標的創(chuàng )建方式。至于應用程序快捷方式圖標放置在哪個(gè)地方，則完全由我們來(lái)決定。實(shí)際上，WSH允許我們自由地將應用程序快捷方式圖標放置在桌面、開(kāi)始菜單、程序組、發(fā)送到、網(wǎng)上鄰居、我的文檔等各種地方。在WindowsNT中，還可以放置在所有用戶(hù)的啟動(dòng)組、開(kāi)始菜單或桌面上。實(shí)際操作時(shí)，WSH首先利用WshSpecialFolders.Item（"strFolderName"）屬性返回指定文件夾（如桌面）的路徑，然后利用CreateShortcut方法創(chuàng )建快捷方式。當然，我們也可以指定該快捷方式的熱鍵、目標路徑、工作路徑、窗口狀態(tài)等等。下面是一個(gè)示例：
procedure TForm1.Button1Click(Sender: TObject);
var
oWshShell,strShortcut,oMyShortcut:variant ;
begin
oWshShell:=CreateoleObject('Wscript.Shell');
strShortcut:=oWshShell.SpecialFolders.Item('DeskTop');
oMyShortcut:=oWshShell.CreateShortcut(strShortcut+'\MIS輔助教學(xué).lnk');
oMyShortCut.Hotkey:='ALT+CTRL+C';
oMyShortcut.TargetPath:= 'd:\mis\mis.exe';
oMyShortCut.WorkingDirectory="d:\mis\"
oMyShortCut.WindowStyle=1
oMyShortCut.Save;
end;
上述程序代碼在桌面創(chuàng )建了一個(gè)“MIS輔助教學(xué)”應用程序快捷方式圖標。窗口狀態(tài)（WindowStyle）設置為普通，Save()方法用于保存該快捷方式圖標。另外，我們可以根據需要將Item（"strFolderName"）中的strFolderName修改為AllUsersDesktop、AllUsersStartMenu、AllUsersPrograms、AllUsersStartup、Desktop、Favorites、Fonts、MyDocuments、NetHood、PrintHood、Programs、Recent、SendTo、StartMenu、Startup等串值，以便在不同的地方創(chuàng )建應用程序快捷方式圖標。
2.3 實(shí)現Word、Powerpoint、Excel自動(dòng)
盡管Delphi5.0已經(jīng)提供了Office組件，也提供了這方面的應用實(shí)例，但在處理一個(gè)已經(jīng)存在的Office文檔時(shí)仍然不夠方便。WSH可以靈活地處理Office文檔，這使得我們幾乎可以在應用程序中無(wú)縫集成Office功能。在創(chuàng )建基于Office應用程序的OLE對象后，編程人員可以利用Office錄制宏的功能，非常方便地獲得有關(guān)處理命令，減少了開(kāi)發(fā)難度。這樣一來(lái)，在應用程序中實(shí)現Word、Powerpoint、Excel自動(dòng)化，就非常容易了。下面是一個(gè)處理Word文檔的簡(jiǎn)單示例：
procedure TForm1.Button1Click(Sender: TObject);
var
oWord:variant ;
begin
OWord:=createoleobject('word.application') ;
oWord.visible:=false;
oWord.documents.open('d:\scgl\mr_10.doc');
oWord.documents.item(1).saveas('d:\scgl\htms\mr_10.html',8);
oWord.quit;
end;
上述代碼的主要作用是將mr_10.doc文件另存為Web頁(yè)，適用于Word97、Word2000。請注意saveas()中的參數8，它用于標識HTML文檔格式。如果不使用該參數，保存為Web頁(yè)后可能全是亂碼。
2.4 操作注冊表
Delphi5.0已經(jīng)提供了操作注冊表的方法（使用TRegistry.Create），但使用WSH的處理方法更為簡(jiǎn)單明了。WSH通過(guò)RegRead、RegDelete、RegWrite方法，可以對注冊表的5個(gè)分支部分，即HKEY_CURRENT_USER（HKCU）、HKEY_LOCAL_MACHINE（HKLM）、HKEY_CLASSES_ROOT（HKCR）、HKEY_USERS 、HKEY_CURRENT_CONFIG ，進(jìn)行操作。注意，括號內為縮寫(xiě)形式，實(shí)際應用時(shí)，我們既可以使用全稱(chēng)，也可以使用縮寫(xiě)。下面來(lái)看一個(gè)示例程序：
procedure TForm1.Button1Click(Sender: TObject);
var
oWshReg:variant ;
begin
oWshReg:=CreateOleObject('Wscript.Shell');
oWshReg.RegWrite('HKCU\WSHSample\Value',10,'REG_BINARY');
end;
上述代碼在注冊表的HKEY_CURRENT_USER分支下創(chuàng )建主鍵WSHSample，并在該主鍵下創(chuàng )建二進(jìn)制值Value，其數值為10。RegWrite方法的語(yǔ)法格式為：RegWrite（strName,anyValue,[strType]）。其中，strType參數用于指定鍵值的數據類(lèi)型，可以是REG_DWORD、REG_BINARY、REG_SZ等等。
3 結束語(yǔ)
總的看來(lái)，WSH使程序代碼容易編寫(xiě)、易于閱讀，還可以實(shí)現一些特殊功能。在使用Delphi5.0開(kāi)發(fā)應用系統時(shí)，我們可以適當使用WSH技術(shù)。
1 Charlie Calvert，Delphi4編程技術(shù)內幕，機械出版社，1999
2 Micros
oft Corporation，動(dòng)態(tài)HTML參考和開(kāi)發(fā)大全，人民郵電出版社，2000.3
【如何快速地從網(wǎng)頁(yè)中獲得Email地址】相關(guān)文章：
商務(wù)英語(yǔ)email高手 如何報盤(pán)03-18
論怎樣獲得歌唱中的高音03-08
快速表現能力在環(huán)藝中的應用03-06
試論文學(xué)創(chuàng )作中靈感的生成與獲得03-06
企業(yè)如何有效地進(jìn)行融資03-19