摘要本文以VisualBasic為例，介紹了在使用調用外部程序的辦法實(shí)現以下五種功能的方法：1）關(guān)機和重新啟動(dòng)；2）使用缺?。J）的程序打開(kāi)文件或鏈接；3）調用"資源管理器"；4）復制和移動(dòng)文件夾；5）把DOS程序的屏幕顯示信息寫(xiě)入文件。
關(guān)鍵詞VisualBasic,Shell函數，外部程序

調用調用API函數可直接使用Windows底層資源，因此功能強大。然而API函數使用較復雜，易出錯。本文將以VisualBasic6.0中的shell函數為例，詳細說(shuō)明調用外部程序實(shí)現一些windows高級功能的方法。
一、關(guān)機和重新啟動(dòng)Windows
在"開(kāi)始-運行"對話(huà)框或DOS窗口中輸入rundll.exeuser.exe,exitwindowsexec命令，Windows就會(huì )重新啟動(dòng)；輸入rundll.exeuser.exe,exitwindows，機器關(guān)閉。
所以您在VisualBasic中使用下面兩個(gè)命令來(lái)實(shí)現重起和關(guān)機：
Shell"rundll.exeuser.exe,exitwindowsexec",vbHide'重新啟動(dòng)
Shell"rundll.exeuser.exe,exitwindows",vbHide'關(guān)閉
二、使用缺?。J）的程序打開(kāi)文件或鏈接
在Windows的Command子目錄中有一個(gè)Start.exe,在這個(gè)命令后加上一個(gè)文件名參數，該文件即可用缺省程序打開(kāi)。所以在VisualBasic中可使用下面的代碼：
DimFiletoOpen$
FiletoOpen="system.ini"
Shell"Start.exe"&FiletoOpen,vbHide
注意：1)如果變量FiletoOpen的值為包含長(cháng)文件名的字符串，以上第三行應為
Shell"Start.exe"&Chr(34)&FiletoOpen&Chr(34)'Chr(34)為雙引號。
這是因為當參數中的長(cháng)文件名含有空格時(shí)，程序會(huì )認為空格以前的部分子符串為一個(gè)參數，所以會(huì )產(chǎn)生找不到文件的錯誤。例如要用Winword.exe打開(kāi)"C:\mydocuments\mydoc.doc"時(shí)，如果在"運行"對話(huà)框中輸入start.exec:\mydocuments\mydoc.doc,系統尋找的文件是c:\my和documents\mydoc.doc兩個(gè)文件，所以會(huì )出錯。正確的命令應當是start.exe"c:\mydocuments\mydoc.doc"
2）在上面第三行中，Start.exe后別忘了留空格。
另外程序員也常常希望用戶(hù)能點(diǎn)擊軟件上的鏈接而直接打開(kāi)自己的主頁(yè)或給自己寫(xiě)信。用下面的方法可以不另外添加控件而實(shí)現這種功能。
Dimurl$，email$
url="nwdonkey.uhome.net"
email="mailto:nwdonkey@371.net"
shell"start.exe"&url,vbHide
shell"start.exe"&email,vbHide
三、調用"資源管理器"
用下面的命令可調用Windows資源管理器，并打開(kāi)指定的文件夾：
DimPathtoOpen$
PathtoOpen="c:\mydocuments"
Shell"explorer.exe"&PathtoOpen,vbNormalFocus
四、復制和移動(dòng)文件夾
是不是很懷念強大的DOS命令？其實(shí)所有的DOS外部命令所能實(shí)現的功能，您都能在VB中通過(guò)Shell函數來(lái)實(shí)現。比如您要把一個(gè)子目錄的包含下一級目錄的所有文件復制到另一個(gè)位置，可使用下面的代碼：
IfDir$("c:\mydos",vbDirectory)=""ThenMkDir"c:\mydos"'在硬盤(pán)上新建一個(gè)c:\mydos的文件夾。
Shell"xcopy.exec:\windows\command\*.*c:\mydos/s/e",vbHide
Shell"explorer.exe"&"c:\mydos",vbNormalFocus
同樣我們也以用shell來(lái)調用move.exe來(lái)實(shí)現來(lái)實(shí)現文件或文件夾的移動(dòng)。
說(shuō)明：此方法僅限于外部DOS命令，并需要把參數中的長(cháng)文件名轉換為8.3制文件名，轉換似乎可以用API函數實(shí)現，我們自己編寫(xiě)了不調用API函數實(shí)現這一功能的函數，您如果需要請到http://go.163.com/
~nwdonkey/vb/去下載。
Contributor:NorthWestDonkey
五、把DOS程序的屏幕顯示信息寫(xiě)入文件
Shell函數不支持DOS內部命令，要想在VB中使用DOS內部命令，就得使用迂回的辦法：先把DOS命令寫(xiě)到一個(gè)BAT文件中，然后再用Shell函數調用該BAT文件。如果您是編寫(xiě)DOS批處理的高手，則完全可以先編寫(xiě)好BAT文件，然后再用Shell函數來(lái)調用。另外，大家還記得DOS命令中的管道命令符吧？例如〈和〉號可以把一個(gè)文件的內容傳遞到另一個(gè)程序中去，也可把DOS應用程序的屏幕輸出寫(xiě)到一個(gè)文件中去。例如用下列代碼可把DOS命令copy的幫助信息寫(xiě)到一個(gè)文件中去。
Open"c:\test.bat"ForOutputAs#1'建立批處理文件
Print#1,"copy/?>c:\copyhelp.txt"
Print#1,"@exit"
Close#1
Shell"c:\test.bat",vbHide
Shell"start.exec:\copyhelp.txt",vbHide
注意：'test.bat中最后一句必須是@exit，不然經(jīng)Shell調用后的批處理文件無(wú)法從內存中退出。
這種方法可以把dos程序中顯示在屏幕上的信息寫(xiě)入一個(gè)文件，因此對編寫(xiě)一些dos應用程序的windows版本特別有用。
以上以VisualBasic為例，講述了巧用Shell函數實(shí)現一些一般不容易實(shí)現的功能的方法。一般情況下，其他編程語(yǔ)言也都提供了類(lèi)似的函數接口，在這些編程環(huán)境下也可以輕易實(shí)現上述功能。對本文，您如有什么問(wèn)題請寄信到nwdonkey@371.net或到我的主頁(yè)http://nwdonkey.uhome.net/上留言。