SHELL用法详解

VB 中，常以Shell指令来执行外部程式，然而它在Create该外部process 後，立刻
就会回到vb 的下一行程式，无法做到等待该Process结束时，才执行下一行指令，
或是说，无法得知该Process是否已结束，甚者，该Process执行到一半，又该如何
中止其执行等等，这些都不是Shell指令所能控制的，因此我们需使API的帮助来完
成。

第一个问题，如何等待shell所Create的process结束後才往後执行vb的程式。
首先要知道的是，每个Process有唯一的一个ProcessID，这是OS给定的，用来
区别每个 Process，这个Process ID(PID)主要可用来取得该Process相对应的一些
资讯，然而要对该Process的控制，却大多透过 Process Handle(hProcess)。VB
Shell指令的传回值是PID，而非hProcess，所以我们需透过OpenProcess这个API来
取得 hProcess而OpenProcess()的第一个叁数，指的是所取得的hProcess所具有的
能力，像 PROCESS_QUERY_INFORMATION 便是让GetExitCode()可取得hProcess所指
的process之状态，而PROCESS_TERMINATE，便是让TerminateProcess(hProcess..)
的指令能够生效，也就是说，不同叁数设定，使hProcess所具有的权限、能力有所
不同。取得 hProcess後便可以使用WaitForSingleObject()来等待hProcess状态的
改变，也就是说，它会等待 hProcess所指的process执行完，这个指令才结束，它
第二个叁数所指的是 WaitForSingleObject()所要等待的时间(in milliseconds )
，如果超过所指的时间，就TimeOut而结束WaitForSingleObject()的等待。若要它
无限的等下去，就设定为INFINITE。

pid = Shell("C:\tools\spe3\pe2.exe", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
ExitEvent = WaitForSingleObject(hProcess, INFINITE)
Call CloseHandle(hProcess)

上例会无限等待shell指令create之process结束後，才再做後面的vb指令。有
时觉得那会等太久，所以有第二个解决方式：等process结束时再通知vb 就好，即
：设定一个公用变数(isDone)，当它变成True时代表Shell所Create的Process已结
束。当Process还在执行时，GetExitCodeProcess会传&H103给其第二个叁数，直到
结束时才传另外的数值，如果程式正常结束，那Exitcode = 0，否则就得看它如何
结束了。或许有人在其他地方看到 loop的地方是Loop while Exitcode ＜＞ 0，那
有一点危险，如果以这程子来看，您不是用F4来离开pe2而是用右上方 X 的结束
dos window那麽，会因为ExitCode的值永远不会是0，而进入无穷的回圈。

Dim pid As Long
pid = Shell("C:\tools\spe3\pe2.exe", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
isDone = False
Do
Call GetExitCodeProcess(hProcess, ExitCode)
Debug.Print ExitCode
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(hProcess)

isDone = True

另外，如果您的shell所Create的程式，有视窗且为立刻Focus者，可另外用以
下的方式Dim pid As Long
Dim hwnd5 As Long
pid = Shell("c:\tools\spe3\pe2.exe", vbNormalFocus)
hwnd5 = GetForegroundWindow()
isDone = False
Do While IsWindow(hwnd5)
DoEvents
Loop
isDone = True



而如何强迫shell所Create的process结束呢，那便是
Dim aa As Long
If hProcess <> 0 Then
aa = TerminateProcess(hProcess, 3838)
End If

hProcess便是先前的例子中所取得的那个Process Handle， 3838所指的是传给
GetExitCodeProcess()中的第二叁数，这是我们任意给的，但最好不要是0，因为
0一般是代表正常结束，当然这样设也不会有错。当然不可设&H103，以这个例子来
看，如果程式正处於以下的LOOP
Do
Call GetExitCodeProcess(hProcess, ExitCode)
Debug.Print ExitCode
DoEvents
Loop While ExitCode = STILL_ALIVE
Debug.print ExitCode

而执行了 TerminateProcess(hProcess, 3838)那会看到ExitCode = 3838。然
而，这个方式在win95没问题，在NT中，可能您要在OpenProcess()的第一个叁数要
更改成 PROCESS_QUERY_INFORMATION Or PROCESS_TERMINATE 这样才能Work。不过
良心的建议，非到最後关头，不要使用TerminateProcess()，因不正常的结束，往
往许多程式结束前所要做的事都没有做，可能造成Resource的浪费，甚者，下次再
执行某些程式时会有问题，例如：本人常使用MS-dos Shell Link 的方式执行一程
式，透过Com port与大电脑的联结，如果Ms-dos Shell Link 不正常结束，下次再
想Link时，会发现too Many Opens，这便是一例。

另外，有人使用Shell来执行.bat档，即：
pid = Shell("c:\aa.bat", vbNormalFocus)
可是却遇上aa.bat结束了，但ms-dos的Window却仍活着，那可以用以下的方式来做
pid = Shell("c:\https://www.360docs.net/doc/bf819181.html, /c c:\aa.bat", vbNormalFocus)
那是执行https://www.360docs.net/doc/bf819181.html,，而https://www.360docs.net/doc/bf819181.html,指定执行c:\aa.bat 而且结束时自动Close

所有程式如下：
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function IsWindow Lib "user32" _
(ByVal hwnd As Long) As Long

Const PROCESS_QUERY_INFORMATION = &H400
Const STILL_ALIVE = &H103
Const INFINITE = &HFFFF

Private ExitCode As Long
Private hPro

cess As Long
Private isDone As Long
Private Sub Command1_Click()
Dim pid As Long
pid = Shell("C:\tools\spe3\pe2.exe", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
isDone = False
Do
Call GetExitCodeProcess(hProcess, ExitCode)
Debug.Print ExitCode
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(hProcess)
isDone = True
End Sub

Private Sub Command2_Click()
Dim pid As Long
Dim ExitEvent As Long
pid = Shell("C:\tools\spe3\pe2.exe", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
ExitEvent = WaitForSingleObject(hProcess, INFINITE)
Call CloseHandle(hProcess)
End Sub

Private Sub Command3_Click()
Dim aa As Long
If hProcess <> 0 Then
aa = TerminateProcess(hProcess, 3838)
End If

End Sub

Private Sub Command4_Click()
Dim pid As Long
Dim hwnd5 As Long
pid = Shell("c:\tools\spe3\pe2.exe", vbNormalFocus)
hwnd5 = GetForegroundWindow()
isDone = False
Do While IsWindow(hwnd5)
DoEvents
Loop
isDone = True
End Sub

Private Sub Command5_Click()
Dim pid As Long
'pid = Shell("c:\windows\command\xcopy c:\aa.bat a:", vbHide)
pid = Shell("c:\https://www.360docs.net/doc/bf819181.html, /c c:\aa.bat", vbNormalFocus)
End Sub


一. 调用系统“创建快捷方式”向导

是否为VB不支持创建快捷方式而于着急呢？虽然 您可以调用vb5stkit．Dll中的fCreateShellLink函 数，但它是为安装程序设计的，快捷方式的默认路径 总是从当前用户的“＼Start Menu＼Programs”开始，也 就是说，如果您的Windows95装在C盘上，您无法通过 fCreateShellLink函数把快捷方式创建到D盘上去。

现在，给大家介绍一种极为方便、巧妙的方法： 用Shell语句调用系统“创建快捷方式”向导。

新建一个项目，在窗体上放一个按钮，双击此按 钮，加入以下代码：

Private Sub Command1_Click()

Open App.Path ＆ "\temp.lnk" For Output As #1

Close #1 '以上两句在程序所在目录建立一 个临时文件

Shell "Rundll32.exe AppWiz.Cpl，NewLinkHere

"＆ App.Path ＆ "\temp.lnk"

End Sub

（注意：Shell语句中NewLinkHere后面跟着一个 空格才是引号，否则将出错。）

运行程序，按一下命令按钮，怎么样？“创建快 捷方式”向导出现了，如果创建成功，快捷方式将取 代临时文件temp.lnk的位置，如果选取消，temp.lnk 也会自动消失。当然，您可以在硬盘的任意位置建立 temp.lnk。好，现在又可以为您的程序增添一项新功 能了。Enjoy！

二. Rundll32.exe的用途

我们知道，用Shell语句只能调用可执行文件，即 exe、com、bat和pif文件，有时我们想要调用其他一 些系统功能该怎么办呢？此时，Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这 些用法，也许会给

您带来一点惊喜。

1．要打开设置系统时间的控制面板文件 （Timedate.cpl),只需运行如下代码：

Shell "Rundll32.exe

Shell32.dll,Control_RunDLL Timedate.cpl"

至于打开其他控制面板文件，相信您一定能够举 一反三，尝试一下，换个文件名就成了。

2．要运行某一快捷方式（*.lnk）则可以用以下 代码：

She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X代表要运行的文件，包括 路径，下同。

3. 也可以这样写来打开ActiveMovie控制：

Shell "RUNDLL32.EXE amovie.ocx，Rundll",1

而用Shell "RUNDLL32.EXE amovie.ocx，Rundll /play X",1 将直接播放媒体文件。

4. Shell "rundll32.exe desk.cpl，InstallScreenSaver X”当然是安装屏幕保 护啦，如果你写了一个屏幕保护程序，那么可以在安 装程序中写上它，而不一定要装到system目录下。顺 便提一下，VB不是自捞一个“Application Setup Wizard”么？它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢，好好把它研究一下。 你完全能做出富有个性的安装程序来。

5.按住shift键，右击某一文件，菜单中会出现 “打开方式”选项，这也许已不是什么秘密。但现在， 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。

6. 甚至能用这样一句来打印文件（包括HTML所 支持的所有文本与图像格式):

Shell "rundll32.exe MSHTML.DLL，PrintHTML X”, 1

怎么样？是不是小有收获呢？这下，您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了，它 可是系统运行必不可少的部件呢！其实 Shell＋Rundll32还能调用其他许多系统功能，比如关 于NetMeeting和Telnet方面的。如果您有兴趣，可以 到往册表的“我的电脑＼HKEY_CLASSES_ROOT＼”或“我 的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看，本文的内容大都是从那里“抄”来的。只要 有足够的决心、信心、耐心，您一定能发现更多有价 值的东西。Good luck!