VB.NET經過長時間的發展，很多用戶都很了解VB.NET了，這里我發表一下個人理解，和大家討論討論。在Windows環境下的所謂shell程序就是dos命令行程序，比如VC的CL.exe命令行編譯器，JDK的javac編譯器，啟動java程序用的java.exe都是標準的shell程序。截獲一個shell程序的輸出是很有用的，比如說您可以自己編寫一個IDE(集成開發環境)，當用戶發出編譯指令時候，你可以在后臺啟動shell調用編譯器并截獲它們的輸出，對這些輸出信息進行分析后在更為友好的用戶界面上顯示出來。為了方便起見，我們用VB作為本文的演示語言。

#T#通常，系統啟動Shell程序時缺省給定了3個I/O信道，標準輸入(stdin),標準輸出stdout,標準錯誤輸出stderr。之所以這么區分是因為在早期的計算機系統如PDP-11的一些限制。那時沒有GUI，將輸出分為stdout,stderr可以避免程序的調試信息和正常輸出的信息混雜在一起。通常，shell程序把它們的輸出寫入標準輸出管道(stdout)、把出錯信息寫入標準錯誤管道(stderr)。缺省情況下，系統將管道的輸出直接送到屏幕，這樣一來我們就能看到應用程序運行結果了。為了捕獲一個標準控制臺應用程序的輸出，我們必須把standOutput和standError管道輸出重定向到我們自定義的管道。

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

PrivateFunctionExecuteApp(sCmdlineAsString)  
AsStringDimprocAsPROCESS_INFORMATION,  
retAsLongDimstartAsSTARTUPINFO  
DimsaAsSECURITY_ATTRIBUTESDimhReadPipeAsLong'負責讀取的管道  
DimhWritePipeAsLong'負責Shell程序的標準輸出和標準錯誤輸出的管道  
DimsOutputAsString'放返回的數據  
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'把標準輸出和標準錯誤輸出重定向到同一個管道中去。  
start.hStdOutput=hWritePipestart.hStdError=hWritePipestart.wShowWindow=SW_HIDE'隱含shell程序窗口'啟動shell程序,sCmdLine指明執行的路徑  
ret=CreateProcessA(0&,sCmdline,sa,sa,  
True,NORMAL_PRIORITY_CLASS,_0&,0&,start,proc)  
Ifret=0ThenMsgBox"無法建立新進程，錯誤碼：  
"&Err.LastDllErrorExitFunctionEndIf'本例中不必向shell程序送信息，因此可以先關閉  
hWritePipeCloseHandlehWritePipe'循環讀取shell程序的輸出，每次讀取256個字節。  
Doret=ReadFile(hReadPipe,sBuffer,256,lngBytesRead,0&)  
sOutputsOutput=sOutput&Left$(sBuffer,lngBytesRead)LoopWhileret<>0'如果ret=0代表沒有更多的信息需要讀取了'釋放相關資源  
CloseHandleproc.hProcessCloseHandleproc.hThreadCloseHandlehReadPipeExecuteApp=sOutput'輸出結果EndFunction 

我對這個程序進行一些解釋。

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

再把VB.NET shell程序的標準輸出和標準錯誤輸出都定向到我們預先建好的管道中。
代碼如下:

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

好，現在可以調用建立新進程的函數了：

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

然后，循環讀管道里的數據直到無數據可讀為止。

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

然后，釋放不用的資源。

VB.NET shell程序用法很簡單：比如：

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