VB.NET經(jīng)過(guò)長(zhǎng)時(shí)間的發(fā)展，很多用戶都很了解VB.NET了，這里我發(fā)表一下個(gè)人理解，和大家討論討論。在Windows環(huán)境下的所謂shell程序就是dos命令行程序，比如VC的CL.exe命令行編譯器，JDK的javac編譯器，啟動(dòng)java程序用的java.exe都是標(biāo)準(zhǔn)的shell程序。截獲一個(gè)shell程序的輸出是很有用的，比如說(shuō)您可以自己編寫一個(gè)IDE(集成開發(fā)環(huán)境)，當(dāng)用戶發(fā)出編譯指令時(shí)候，你可以在后臺(tái)啟動(dòng)shell調(diào)用編譯器并截獲它們的輸出，對(duì)這些輸出信息進(jìn)行分析后在更為友好的用戶界面上顯示出來(lái)。為了方便起見，我們用VB作為本文的演示語(yǔ)言。

#T#通常，系統(tǒng)啟動(dòng)Shell程序時(shí)缺省給定了3個(gè)I/O信道，標(biāo)準(zhǔn)輸入(stdin),標(biāo)準(zhǔn)輸出stdout,標(biāo)準(zhǔn)錯(cuò)誤輸出stderr。之所以這么區(qū)分是因?yàn)樵谠缙诘挠?jì)算機(jī)系統(tǒng)如PDP-11的一些限制。那時(shí)沒(méi)有GUI，將輸出分為stdout,stderr可以避免程序的調(diào)試信息和正常輸出的信息混雜在一起。通常，shell程序把它們的輸出寫入標(biāo)準(zhǔn)輸出管道(stdout)、把出錯(cuò)信息寫入標(biāo)準(zhǔn)錯(cuò)誤管道(stderr)。缺省情況下，系統(tǒng)將管道的輸出直接送到屏幕，這樣一來(lái)我們就能看到應(yīng)用程序運(yùn)行結(jié)果了。為了捕獲一個(gè)標(biāo)準(zhǔn)控制臺(tái)應(yīng)用程序的輸出，我們必須把standOutput和standError管道輸出重定向到我們自定義的管道。

下面的代碼可以啟動(dòng)一個(gè)VB.NET shell程序,并將其輸出截獲。執(zhí)行并返回一個(gè)命令行程序(shell程序)的標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯(cuò)誤輸出'通常命令行程序的所有輸出都直接送到屏幕上

PrivateFunctionExecuteApp(sCmdlineAsString)  
AsStringDimprocAsPROCESS_INFORMATION,  
retAsLongDimstartAsSTARTUPINFO  
DimsaAsSECURITY_ATTRIBUTESDimhReadPipeAsLong'負(fù)責(zé)讀取的管道  
DimhWritePipeAsLong'負(fù)責(zé)Shell程序的標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯(cuò)誤輸出的管道  
DimsOutputAsString'放返回的數(shù)據(jù)  
DimlngBytesReadAsLong,  
sBufferAsString*256sa.nLength=Len(sa)  
sa.bInheritHandle=Trueret=CreatePipe(hReadPipe,  
hWritePipe,sa,0)Ifret=0ThenMsgBox 
"CreatePipefailed.Error:"&Err.LastDllErrorExitFunction  
EndIfstart.cb=Len(start)  
start.dwFlags=STARTF_USESTDHANDLESOrSTARTF_USESHOWWINDOW'把標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯(cuò)誤輸出重定向到同一個(gè)管道中去。  
start.hStdOutput=hWritePipestart.hStdError=hWritePipestart.wShowWindow=SW_HIDE'隱含shell程序窗口'啟動(dòng)shell程序,sCmdLine指明執(zhí)行的路徑  
ret=CreateProcessA(0&,sCmdline,sa,sa,  
True,NORMAL_PRIORITY_CLASS,_0&,0&,start,proc)  
Ifret=0ThenMsgBox"無(wú)法建立新進(jìn)程，錯(cuò)誤碼：  
"&Err.LastDllErrorExitFunctionEndIf'本例中不必向shell程序送信息，因此可以先關(guān)閉  
hWritePipeCloseHandlehWritePipe'循環(huán)讀取shell程序的輸出，每次讀取256個(gè)字節(jié)。  
Doret=ReadFile(hReadPipe,sBuffer,256,lngBytesRead,0&)  
sOutputsOutput=sOutput&Left$(sBuffer,lngBytesRead)LoopWhileret<>0'如果ret=0代表沒(méi)有更多的信息需要讀取了'釋放相關(guān)資源  
CloseHandleproc.hProcessCloseHandleproc.hThreadCloseHandlehReadPipeExecuteApp=sOutput'輸出結(jié)果EndFunction 

我對(duì)這個(gè)程序進(jìn)行一些解釋。

ret=CreatePipe(hReadPipe,hWritePipe,sa,0) 

再把VB.NET shell程序的標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯(cuò)誤輸出都定向到我們預(yù)先建好的管道中。
代碼如下:

start.dwFlags=STARTF_USESTDHANDLESOrSTARTF_USESHOWWINDOW 
start.hStdOutput=hWritePipe 
start.hStdError=hWritePipe 

好，現(xiàn)在可以調(diào)用建立新進(jìn)程的函數(shù)了：

ret=CreateProcessA(0&,sCmdline,sa,sa,True,NORMAL_PRIORITY_CLASS,0&,0&,start,proc) 

然后，循環(huán)讀管道里的數(shù)據(jù)直到無(wú)數(shù)據(jù)可讀為止。

Do  
ret=ReadFile(hReadPipe,sBuffer,256,lngBytesRead,0&)'每次讀256字節(jié)  
sOutputsOutput=sOutput&Left$(sBuffer,lngBytesRead)'送入一個(gè)字符串中  
LoopWhileret<>0'若ret=0表明沒(méi)有數(shù)據(jù)等待讀取。  

然后，釋放不用的資源。

VB.NET shell程序用法很簡(jiǎn)單：比如：

MsgBoxExecuteApp("c:\windows\command\mem.exe)