| 网管联盟 | 网管论坛 | 网管u家 | 网管博客 | 网管软件 | 网管求职 | 小游戏 | 网管搜索 | 网管原创 | 网管聚合 | 网管读摘 | 网管焦点 | 世界素材 | 会员投稿 | 会员中心 |
|
| Windows Linux Cisco 网络技术 数据库 黑客攻防 DotNet Java PHP 认证 新闻资讯 服务器 存储资讯 网络设备 网管学堂 技术专题 焦点 网吧频道 |
|
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 网管bitscn_com Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long 网管下载dl.bitscn.com Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 网管联盟bitsCN@com Const PROCESS_QUERY_INFORMATION = &H400 网管u家u.bitsCN.com Const STILL_ALIVE = &H103 网管联盟bitsCN_com Private Sub Command1_Click() 网管网www.bitscn.com Dim pid As Long 网管论坛bbs_bitsCN_com pid = Shell("c:\a.bat", vbNormalFocus) 网管下载dl.bitscn.com hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) 网管论坛bbs_bitsCN_com Do 网管联盟bitsCN@com Call GetExitCodeProcess(hProcess, ExitCode) 中国网管论坛bbs.bitsCN.com DoEvents 网管u家u.bitscn@com Loop While ExitCode = STILL_ALIVE 网管联盟bitsCN_com Call CloseHandle(hProcess) 网管联盟bitsCN@com MsgBox ("运行结束") 网管联盟bitsCN_com End Sub 网管u家u.bitsCN.com |
网管联盟bitsCN@com
摘自原文如下：
-------------------------------------------------------------------------
VB启动/结束另一程序（Shell 等待程序运行结束）
VB 中，常以Shell指令来执行外部程式，然而它在Create该外部process 後，立刻就会回到vb 的下一行程式，无法做到等待该Process结束时，才执行下一行指令，或是说，无法得知该Process是否已结束，甚者，该Process执行到一半，又该如何中止其执行等等，这些都不是Shell指令所能控制的，因此我们需使API的帮助来完成。
中国网管论坛bbs.bitsCN.com
第一个问题，如何等待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.
| pid = Shell("C:\tools\spe3\pe2.exe", vbNormalFocus) 中国网管论坛bbs.bitsCN.com hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) ExitEvent = WaitForSingleObject(hProcess, INFIN99vE) Call CloseHandle(hProcess) |
网管u家u.bitscn@com
上例会无限等待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 |
中国网管联盟bitsCN.com
网管联盟bitsCN_com
|
0
|
评论加载中…
