注:摘自互联网
Shell 函数 执行一个可执行文件,返回一个 Variant (Double),如果成功的话,代表这个程序的任务 ID,若不成功,则会返回 0。 语法 Shell(pathname[,windowstyle]) Shell 函数的语法含有下面这些命名参数: 部分 描述 pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量,可能还包括目录或文件夹,以及驱动器。 Windowstyle 可选参数。Variant (Integer),表示在程序运行时窗口的样式。如果 windowstyle 省略,则程序是以具有焦点的最小化窗口来执行的。 windowstyle 命名参数有以下这些值: 常量 值 描述 vbHide 0 窗口被隐藏,且焦点会移到隐式窗口。 VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。 VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。 VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。 VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 说明 如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序,则会产生错误。 注意 缺省情况下,Shell 函数是以异步方式来执行其它程序的。也就是说,用 Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell 函数之后的语句。 Shell 函数示例 本示例使用 Shell 函数来完成一个用户指定的应用程序。 ' 将第二个参数值设成 1,可让该程序以正常大小的窗口完成,并且拥有焦点。 Dim RetVal RetVal = Shell("C:/WINDOWS/CALC.EXE", 1) ' 完成Calculator。
语法:ID=shell(“文件.exe”,Style) 功能:以Style参数所指定的方式来打开可执行文件窗口形式 ID:属Integer数据类型代表调用shell函数的传回值。 文件名.exe 其扩展名可省略文件名可以使用变量若有需要应该加上磁盘驱动器名与路径
================
VB启动/结束另一程序
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()的等待。若要它 无限的等下去,就设定为INFIN99vE。
1: pid = Shell("C:/tools/spe3/pe2.exe", vbNormalFocus)
2: hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
3: ExitEvent = WaitForSingleObject(hProcess, INFIN99vE)
4: 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,而进入无穷的回圈。
1: Dim pid As Long
2: pid = Shell("C:/tools/spe3/pe2.exe", vbNormalFocus)
3: hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
4: isDone = False
5: Do
6: Call GetExitCodeProcess(hProcess, ExitCode)
7: Debug.Print ExitCode
8: DoEvents
9: Loop While ExitCode = STILL_ALIVE
10: Call CloseHandle(hProcess)
11: isDone = True
另外,如果您的shell所Create的程式,有视窗且为立刻Focus者,可另外用以 下的方式Dim pid As Long
1: Dim hwnd5 As Long
2: pid = Shell("c:/tools/spe3/pe2.exe", vbNormalFocus)
3: hwnd5 = GetForegroundWindow()
4: isDone = False
5: Do While IsWindow(hwnd5)
6: DoEvents
7: Loop
8: isDone = True
而如何强迫shell所Create的process结束呢,那便是
1: Dim aa As Long
2: If hProcess <> 0 Then
3: aa = TerminateProcess(hProcess, 3838)
4: End If
hProcess便是先前的例子中所取得的那个Process Handle, 3838所指的是传给 GetExitCodeProcess()中的第二叁数,这是我们任意给的,但最好不要是0,因为 0一般是代表正常结束,当然这样设也不会有错。当然不可设&H103,以这个例子来 看,如果程式正处於以下的LOOP
1: Do
2: Call GetExitCodeProcess(hProcess, ExitCode)
3: Debug.Print ExitCode
4: DoEvents
5: Loop While ExitCode = STILL_ALIVE
6: 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档,即:
1: pid = Shell("c:/aa.bat", vbNormalFocus)
可是却遇上aa.bat结束了,但ms-dos的Window却仍活着,那可以用以下的方式来做
1: pid = Shell("c:/command.com /c c:/aa.bat", vbNormalFocus)
那是执行Command.com,而Command.com指定执行c:/aa.bat 而且结束时自动Close 所有程式如下:
1: Private Declare Function OpenProcess Lib "kernel32" _
2: (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
3: ByVal dwProcessId As Long) As Long
4:
5: Private Declare Function WaitForSingleObject Lib "kernel32" _
6: (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
7: Private Declare Function CloseHandle Lib "kernel32" _
8: (ByVal hObject As Long) As Long
9: Private Declare Function GetExitCodeProcess Lib "kernel32" _
10: (ByVal hProcess As Long, lpExitCode As Long) As Long
11: Private Declare Function TerminateProcess Lib "kernel32" _
12: (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
13: Private Declare Function GetForegroundWindow Lib "user32" () As Long
14: Private Declare Function IsWindow Lib "user32" _
15: (ByVal hwnd As Long) As Long
16:
17: Const PROCESS_QUERY_INFORMATION = &H400
18: Const STILL_ALIVE = &H103
19: Const INFIN99vE = &HFFFF
20:
21: Private ExitCode As Long
22: Private hProcess As Long
23: Private isDone As Long
24: Private Sub Command1_Click()
25: Dim pid As Long
26: pid = Shell("C:/tools/spe3/pe2.exe", vbNormalFocus)
27: hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
28: isDone = False
29: Do
30: Call GetExitCodeProcess(hProcess, ExitCode)
31: Debug.Print ExitCode
32: DoEvents
33: Loop While ExitCode = STILL_ALIVE
34: Call CloseHandle(hProcess)
35: isDone = True
36: End Sub
37:
38: Private Sub Command2_Click()
39: Dim pid As Long
40: Dim ExitEvent As Long
41: pid = Shell("C:/tools/spe3/pe2.exe", vbNormalFocus)
42: hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
43: ExitEvent = WaitForSingleObject(hProcess, INFIN99vE)
44: Call CloseHandle(hProcess)
45: End Sub
46:
47: Private Sub Command3_Click()
48: Dim aa As Long
49: If hProcess <> 0 Then
50: aa = TerminateProcess(hProcess, 3838)
51: End If
52:
53: End Sub
54:
55: Private Sub Command4_Click()
56: Dim pid As Long
57: Dim hwnd5 As Long
58: pid = Shell("c:/tools/spe3/pe2.exe", vbNormalFocus)
59: hwnd5 = GetForegroundWindow()
60: isDone = False
61: Do While IsWindow(hwnd5)
62: DoEvents
63: Loop
64: isDone = True
65: End Sub
66:
67: Private Sub Command5_Click()
68: Dim pid As Long
69: 'pid = Shell("c:/windows/command/xcopy c:/aa.bat a:", vbHide)
70: pid = Shell("c:/command.com /c c:/aa.bat", vbNormalFocus)
71: End Sub