首页 >> 读书频道 >> 电脑 >> 使Shell指令具Wait功能上
 
· 从任务列表中隐藏
· 闪烁的标题栏
· VB实现SQL功能上
· 使用XML上传文件下
· 使用XML上传文件上
· 关于算法的一些想法
· 得到光驱的盘符
· 用API函数遍历文件一
· 枚举出局域网上所有网络资
· 用API函数遍历文件二
· VB托盘程序源代码下
· VB托盘程序源代码中
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

使Shell指令具Wait功能上


查看有无更新版本

关键字:VB 2006-9-18

 

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

使Shell指令具Wait功能上

[ 1 ]
使Shell指令具Wait功能上 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑