Visual Basic 判断一个被Shell的程序进程是否结束
2014-11-11 08:24
453 查看
Option Explicit ' Copyright ? 1997 by Desaware Inc. All Rights Reserved Dim DemoFile$ Private Const NORMAL_PRIORITY_CLASS = &H20 '如果进程位于前台,则基本值是9;如果在后台,则优先值为7 Private Const INFINITE = &HFFFFFFFF Private Const WAIT_TIMEOUT = &H102& '对象保持未发出信号的状态,但等待超时时间已经超过 '说明∶PROCESS_INFORMATION结构由CreateProcess函数将关于新建立的进程和 '主要线索的信息写入其中成员变量 Private Type PROCESS_INFORMATION ' hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type '说明∶STARTUPINFO结构用在CreateProcess函数中指定为新进程建立的新窗口的主要属性。这一 '一信息影响由CreateWindows函数建立的第一个窗口 Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function WaitForInputIdle Lib "user32" (ByVal hProcess As Long, ByVal dwMilliseconds As Long) As Long Private Sub command1_Click() Dim res& Dim sinfo As STARTUPINFO Dim pinfo As PROCESS_INFORMATION sinfo.cb = Len(sinfo) sinfo.lpReserved = vbNullString sinfo.lpDesktop = vbNullString sinfo.lpTitle = vbNullString sinfo.dwFlags = 0 Label1.Caption = "正在启动程序" Label1.Refresh ' CreateProcess函数,用于创建一个新的进程 res = CreateProcess(DemoFile, vbNullString, 0, 0, True, _ NORMAL_PRIORITY_CLASS, ByVal 0&, vbNullString, sinfo, pinfo) If res Then Label1.Caption = "程序正在运行" WaitForTerm pinfo End If Label1.Caption = "程序已经结束" End Sub Private Sub WaitForTerm(pinfo As PROCESS_INFORMATION) Dim res& ' 等待指定的进程进入空闲状态,,空闲(Idle)指的是进程准备处理 '一条消息、但目前暂时没有消息需要处理的一种状态 Call WaitForInputIdle(pinfo.hProcess, INFINITE) ' 关闭指定进程 Call CloseHandle(pinfo.hThread) Command1.Enabled = False Label1.Refresh Do '等待发出信号 res = WaitForSingleObject(pinfo.hProcess, 0) If res <> WAIT_TIMEOUT Then '如果对象发出了信号 Exit Do End If DoEvents Loop While True Command1.Enabled = True Call CloseHandle(pinfo.hProcess) End Sub Private Sub Form_Load() DemoFile = InputBox$("请输入需要运行的程序名", , "C:\WINDOWS\notepad.exe") End Sub
相关文章推荐
- WaitForSingleObject的用法-(判断一个程序是否结束)
- 函数调用判断一个年份是否为闰年及程序的继续与结束
- shell判断一个进程是否存在,如果不存在重启该进程
- 我在delphi中用shellExecute启动了一个程序(ftp);然后想做一个等待,只到ftp进程结束,再继续下面的操作,请问如何监控这个进程是否已结束?
- shell:判断一个进程是否存在
- shell:判断一个进程是否存在
- java怎么样判断一个进程是否已近结束
- 一个判断进程是否存在的shell
- WaitForSingleObject的用法-(判断一个程序是否结束)
- [shell]判断一个字符串是否为数字字符串的两种方法(是否为进程号(PID))
- java怎么样判断一个进程是否已近结束
- 提示用户输入一个用户名,判断是否存在,如果存在显示该用户的shell
- 写一个判断是否构成三角形的程序
- 如何用.net程序来判断一个网站是否正常打开小解
- 判断程序是否在进程中[来源网络]
- 怎么判断一个ASP.NET的程序是否三层架构
- VC++判断一个进程是否是64位
- python 判断一个进程是否存在
- 判断ShellExecute函数是否执行完一个程序的方法
- 怎么判断一个ASP.NET的程序是否三层架构