如何快速地從網(wǎng)頁(yè)中獲得Email地址 4700字

如何快速地從網(wǎng)頁(yè)中獲得Email地址4700字摘要WSH是一種基于32位Windows平臺(tái)、應(yīng)用于ActiveX腳本引擎、與編程語(yǔ)言無(wú)關(guān)的腳本宿主。本文通過(guò)幾個(gè)實(shí)例介紹了如何在Delphi5.0中應(yīng)用WSH技術(shù)。

關(guān)鍵詞DelphiiWSH腳本執(zhí)行和輔助功能

1引言

微軟公司的WSH(WindowsScriptingHost)是一種基于32位Windows平臺(tái)、應(yīng)用于ActiveX腳本引擎、與編程語(yǔ)言無(wú)關(guān)的腳本宿主。WSH具有良好的腳本語(yǔ)言支持特性，它支持VBScript、javascript、Perl、REXX等各種腳本語(yǔ)言。WSH的運(yùn)行方式較為靈活，既可以在Windows中運(yùn)行，也可以在DOS命令模式下啟動(dòng)。微軟已經(jīng)在Windows98、Windows2000中內(nèi)置了WSH技術(shù)。

WSH對(duì)象模型主要包含了兩類(lèi)ActiveX接口:腳本執(zhí)行和輔助功能。每類(lèi)接口提供多種WSH對(duì)象，各對(duì)象有自己的辦法和屬性。腳本執(zhí)行接口提供了許多屬性和辦法。這類(lèi)接口允許腳本操作處理WSH，在屏幕上顯示特定信息，執(zhí)行一些根本功能〔如創(chuàng)立Word應(yīng)用程序?qū)ο蟆场］o助功能接口也提供了豐盛的屬性和辦法供用戶(hù)使用。利用這些屬性和辦法我們可以進(jìn)行各種操作，示例：映射網(wǎng)絡(luò)驅(qū)動(dòng)器、連接遠(yuǎn)程打印機(jī)、獲取編輯系統(tǒng)環(huán)境變量〔如用戶(hù)名、計(jì)算機(jī)名、域名等等〕、操作注冊(cè)表等。系統(tǒng)管理員可以利用這些輔助功能創(chuàng)立簡(jiǎn)單的登錄腳本。程序編寫(xiě)者可以利用這些由WSH提供的對(duì)象接口在基于Windows的平臺(tái)上執(zhí)行各種自動(dòng)化任務(wù)，示例：?jiǎn)?dòng)Word、Excel、Powerpoint任務(wù)，翻開(kāi)CAD文件等。

在Delphi5.0中應(yīng)用WSH技術(shù)，不但可以利用WSH的強(qiáng)大功能增強(qiáng)應(yīng)用程序的性能，還可以簡(jiǎn)化應(yīng)用程序設(shè)計(jì)，使編程工作更為簡(jiǎn)單。某些原本只能由WindowsAPI函數(shù)完成的工作現(xiàn)在可以使用更為簡(jiǎn)單明了的WSH完成。WSH為用戶(hù)提供了多個(gè)對(duì)象，示例：WshShortcut、WshShell、WshArguments、WshUrlShortcut、Automation、WshEnvironment等等。我們可以利用它們進(jìn)行各種應(yīng)用。

2WSH應(yīng)用實(shí)例

2.1映射網(wǎng)絡(luò)驅(qū)動(dòng)器

在實(shí)際開(kāi)發(fā)MIS系統(tǒng)時(shí)，我們?cè)?jīng)碰到這樣一個(gè)問(wèn)題：該系統(tǒng)由企業(yè)內(nèi)部30個(gè)不同的部門(mén)使用，由于管理的需要，各部門(mén)的數(shù)據(jù)除了通過(guò)專(zhuān)用數(shù)據(jù)庫(kù)接口提交到效勞器以實(shí)現(xiàn)數(shù)據(jù)共享外，還須由系統(tǒng)自動(dòng)將各部門(mén)數(shù)據(jù)以專(zhuān)門(mén)的HTML文件格式發(fā)送到指定的效勞器目錄下。效勞器上對(duì)應(yīng)設(shè)置了30個(gè)不同的共享目錄。效勞器上的共享目錄分別映射為本地各部門(mén)的指定驅(qū)動(dòng)器如W:〕。顯然，逐個(gè)部門(mén)進(jìn)行手工映射比擬繁瑣。比擬嚴(yán)重的情況是，如果用戶(hù)由于誤操作斷開(kāi)該映射，將導(dǎo)致應(yīng)用系統(tǒng)無(wú)法運(yùn)行。比擬好的做法是在系統(tǒng)啟動(dòng)時(shí)自動(dòng)映射網(wǎng)絡(luò)驅(qū)動(dòng)器，WSH為我們提供了非常簡(jiǎn)單的實(shí)現(xiàn)辦法。下面是一個(gè)例如性程序：

procedureTForm1.FormCreate(Sender:TObject);

var

oWshNetwork:variant;

begin

oWshNetwork:=CreateOleObject(#39;Wscript.Network#39;);

oWshNetwork.MapNetworkDrive(#39;w:#39;,#39;ezssydmis#39;,#39;True#39;,#39;administrator#39;,#39;xyz#39;);

End;

程序首先創(chuàng)立基于WSH的OLE對(duì)象，然后映射效勞器ezss上的共享目錄ydmis為W:。MapNetworkDrive辦法的語(yǔ)法格式為：

MapNetworkDrive〔strLocalName,strRemoteName,[bUpdateProfile],[strUser],[strPassword]〕

各參數(shù)含義簡(jiǎn)要表明如下：

strLocalName映射到本地的驅(qū)動(dòng)器名稱(chēng)。

strRemoteName映射的遠(yuǎn)程共享名。

bUpdateProfile如果本參數(shù)設(shè)置為T(mén)RUE,這種映射將存儲(chǔ)在用戶(hù)Windows系統(tǒng)的profiles文件夾下作為用戶(hù)配置保存。

strUser、strPassword指定受托共享的用戶(hù)名和密碼。

假設(shè)要斷開(kāi)該映射，可以使用RemoveNetworkDrive辦法，示例oWshNetwork.RemoveNetworkDrive(#39;w:#39;)。

2.2創(chuàng)立應(yīng)用程序快捷方式圖標(biāo)

WSH可以幫忙我們非常容易地創(chuàng)立應(yīng)用程序快捷方式圖標(biāo)，這使得我們能夠自由地在安裝程序當(dāng)選擇發(fā)布程序快捷圖標(biāo)的創(chuàng)立方式。至于應(yīng)用程序快捷方式圖標(biāo)放置在哪個(gè)地方，那么完全由我們來(lái)決定。實(shí)際上，WSH允許我們自由地將應(yīng)用程序快捷方式圖標(biāo)放置在桌面、開(kāi)始菜單、程序組、發(fā)送到、網(wǎng)上鄰居、我的文檔等各種地方。在WindowsNT中，還可以放置在所有用戶(hù)的啟動(dòng)組、開(kāi)始菜單或桌面上。實(shí)際操作時(shí)，WSH首先利用WshSpecialFolders.Item〔"strFolderName"〕屬性返回指定文件夾〔如桌面〕的路徑，然后利用CreateShortcut辦法創(chuàng)立快捷方式。當(dāng)然，我們也可以指定該快捷方式的熱鍵、目標(biāo)路徑、工作路徑、窗口狀態(tài)等等。下面是一個(gè)例如：

procedureTForm1.Button1Click(Sender:TObject);

var

oWshShell,strShortcut,oMyShortcut:variant;

begin

oWshShell:=CreateoleObject(#39;Wscript.Shell#39;);

strShortcut:=oWshShell.SpecialFolders.Item(#39;DeskTop#39;);

oMyShortcut:=oWshShell.CreateShortcut(strShortcut+#39;MIS輔助教學(xué).lnk#39;);

oMyShortCut.Hotkey:=#39;ALT+CTRL+C#39;;

oMyShortcut.TargetPath:=#39;d:mismis.exe#39;;

oMyShortCut.WorkingDirectory="d:mis"

oMyShortCut.WindowStyle=1

oMyShortCut.Save;

end;

上述程序代碼在桌面創(chuàng)立了一個(gè)“MIS輔助教學(xué)〞應(yīng)用程序快捷方式圖標(biāo)。窗口狀態(tài)〔WindowStyle〕設(shè)置為普通，Save()辦法用于保留該快捷方式圖標(biāo)。另外，我們可以根據(jù)需要將Item〔"strFolderName"〕中的strFolderName修改為AllUsersDesktop、AllUsersStartMenu、AllUsersPrograms、AllUsersStartup、Desktop、Favorites、Fonts、MyDocuments、NetHood、PrintHood、Programs、Recent、SendTo、StartMenu、Startup等串值，以便在不同的地方創(chuàng)立應(yīng)用程序快捷方式圖標(biāo)。

2.3實(shí)現(xiàn)Word、Powerpoint、Excel自動(dòng)

盡管Delphi5.0已經(jīng)提供了Office組件，也提供了這方面的應(yīng)用實(shí)例，但在處理一個(gè)已經(jīng)存在的Office文檔時(shí)仍然不夠方便。WSH可以靈活地處理Office文檔，這使得我們幾乎可以在應(yīng)用程序中無(wú)縫集成Office功能。在創(chuàng)立基于Office應(yīng)用程序的OLE對(duì)象后，編程人員可以利用Office錄制宏的功能，非常方便地獲得有關(guān)處理命令，減少了開(kāi)發(fā)難度。這樣一來(lái)，在應(yīng)用程序中實(shí)現(xiàn)Word、Powerpoint、Excel自動(dòng)化，就非常容易了。下面是一個(gè)處理Word文檔的簡(jiǎn)單例如：

procedureTForm1.Button1Click(Sender:TObject);

var

oWord:variant;

begin

OWord:=createoleobject(#39;word.application#39;);

oWord.visible:=false;

oWord.documents.open(#39;d:scglmr_10.doc#39;);

oWord.documents.item(1).saveas(#39;d:scglhtmsmr_10.html#39;,8);

oWord.quit;

end;

上述代碼的主要作用是將mr_10.doc文件另存為Web頁(yè)，適用于Word97、Word2000。請(qǐng)注意saveas()中的參數(shù)8，它用于標(biāo)識(shí)HTML文檔格式。如果不使用該參數(shù)，保留為Web頁(yè)后可能全是亂碼。

2.4操作注冊(cè)表

Delphi5.0已經(jīng)提供了操作注冊(cè)表的辦法〔使用TRegistry.Create〕，但使用WSH的處理辦法更為簡(jiǎn)單明了。WSH通過(guò)RegRead、RegDelete、RegWrite辦法，可以對(duì)注冊(cè)表的5個(gè)分支局部，即HKEY_CURRENT_USER〔HKCU〕、HKEY_LOCAL_MACHINE〔HKLM〕、HKEY_CLASSES_ROOT〔HKCR〕、HKEY_USERS、HKEY_CURRENT_CONFIG，進(jìn)行操作。注意，括號(hào)內(nèi)為縮寫(xiě)形式，實(shí)際應(yīng)用時(shí)，我們既可以使用全稱(chēng)，也可以使用縮寫(xiě)。下面來(lái)看一個(gè)例如程序：

procedureTForm1.Button1Click(Sender:TObject);

var

oWshReg:variant;

begin

oWshReg:=CreateOleObject(#39;Wscript.Shell#39;);

oWshReg.RegWrite(#39;HKCUWSHSampleValue#39;,10,#39;REG_BINARY#39;);

end;

上述代碼在注冊(cè)表的HKEY_CURRENT_USER分支下創(chuàng)立主鍵WSHSam