VB 进程死亡的自动复活
来源:互联网 发布:分销微商城源码 编辑:程序博客网 时间:2024/04/28 01:21
原文地址 http://yulv.net/archives/10/
前两天看了Delphi版面精华区中的《进程死亡的自动复活》一文,觉得作者的思路很不错,利用api来监视进程的活动,当被销毁时就自动再创建进程。仔细推敲之后,发觉其实用vb也是可以做到的。于是花了半天的时间写了以下的程序,实现了使用WaitForSingleObject API来监视被创建的进程的活动,一旦返回除 time out 之外的消息就自动创建新的进程。以下为其实现代码。在 win2000 server + vb 6.0下通过。
Option Explicit
Private RunFile$
Private Const NORMAL_PRIORITY_CLASS = &H20 '如果进程位于前台,则基本值是9;如果在后台,则优先值为7
Private Const INFINITE = &HFFFFFFFF
Private Const WAIT_TIMEOUT = &H102& '对象保持未发出信号的状态,但等待超时时间已经超过
Private Flag As Boolean ‘进程活动监视标志
'说明∶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, ByVallpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByValbInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment AsAny, 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
Label1.Caption = "程序已经结束"
Else
Label1.Caption = "启动程序时出错,可能未正确输入" & Chr(13) & "程序名或程序所在路径。"
End If
End Sub
Private Sub WaitForTerm(pinfo As PROCESS_INFORMATION)
Dim res&
Dim res1&
' 等待指定的进程进入空闲状态,,空闲(Idle)指的是进程准备处理一条消息、但目前暂时没有消息需要处理的一种状态
Call WaitForInputIdle(pinfo.hProcess, INFINITE)
Command1.Enabled = False
Command2.Enabled = True
Label1.Refresh
Do
If Flag Then Exit Do
'等待发出信号
res = WaitForSingleObject(pinfo.hProcess, 0)
If res <> WAIT_TIMEOUT Then '如果对象发出了信号
command1_Click
Exit Do
End If
DoEvents
Debug.Print res
Loop While True
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
Flag = True
End Sub
Private Sub Form_Load()
RunFile = InputBox$("请输入需要运行的程序名与路经")
Flag = False
End Sub
- VB 进程死亡的自动复活
- 异常死亡进程的自动复活
- 异常死亡进程的自动复活
- 游戏中一个死亡复活的bug
- 自动复活异常终止进程
- 自动复活异常终止进程
- 今晨'死亡之组'复活!
- vb 已经关闭进程的自动开启
- 修改新人出生点,以及修改死亡复活点的方法
- 进程的诞生与死亡的整个过程
- 一个进程的诞生与死亡
- 一个进程的诞生与死亡
- 一个进程的诞生于死亡
- 一个进程的诞生与死亡
- 插件进程死亡检测
- eclipse的复活
- 《深入浅出MFC》——一个进程的诞生与死亡
- 复活
- JIRA安装和破解
- java.io.file 各种文件操作
- ABAP常用函数集合(转)
- 《C++捷径教程》学习笔记【一】:虚函数
- 遇到调试器不能调试的问题
- VB 进程死亡的自动复活
- Android下修改SeekBar样式
- 同步移动多个子窗口
- ☆ Visual Studio 2008 每日小窍门 【持续发布ing~】 Tips:036
- 使用ReportViewer生成动态报告--项目应用心得(一)
- C#--反射
- 百分比精确到小数点2位,测试用例数、缺陷数全部以整数显示 - 代码统计工具V3.5.33.73
- Redhat Enterprise 5序列号
- Ajax实战上的ContentLoader对象