用VB编写监视指定进程程序.docVIP

用VB编写监视指定进程的程序 一、前言 有些对外营业的公司在大厅中都有一个触摸屏，以供客户查询公司的信息，可是通常查询程序都很大，而且很复杂，这样在连续长时间使用后难免会出现错误以致程序中途退出，这时就要工作人员来重新启动那个程序，而且有时候很忙不一定能有专人守在这个地方。其实可以用一个程序来专门处理这种情况的。我们局电信营业前台的多媒体查询系统也常常会出现这样的问题，下面是本人开发出来的监控程序处理思路。 二、实现思路及关键技术 要防止程序中途退出，就需要另外的一个程序专门对要监控的进程进行时刻不停的监控，检测到被监控的进程退出了就重新启动它。但是有时候可能是操作系统出了问题，不能简单地重复启动要监控的进程，在重启了一定的次数后被监控进程仍然退出，那就需要重新启动操作系统了，以便使操作系统中的环境参数等重新初始化，然后再运行监控进程并启动被监控的进程。 监控进程的存在最好不能影响被监控的进程，监控进程启动的时候要进行判断，看当前状况下被监控的进程有没有起来，如果起来了就获取其进程句柄并进行监控，如果没有起来则使之起来并监控。这里判断一个被监控的进程有没有起来不能简单地通过查找窗口标题来实现，因为窗口标题在程序内部可能是根据运行的时刻和条件动态地改变的，而且别的进程也可以和可能去改变被监控进程的窗口标题。程序中使用了CreateToolhelp32SnapShot（） ‘函数通过获取进程信息为指定的进程、进程使用的堆[HEAP]、模块[MODULE]、线程建立一个快照.说到底，可以获取系统中正在运行的进程信息，线程信息，等 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntTreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260’这就是包含全路径的进程文件名 End Type Public Declare Function Process32First Lib kernel32 (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long’用来遍历进程池的函数，这是查找的起始函数 Public Declare Function Process32Next Lib kernel32 (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long’遍历进程池的向下递归函数 Public 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 Byte hStdInput As Long hStdOutput As Long hStdError As Long End Type Public Type PROCESS_INFORMATION’ 记录进程启动后相关信息的结构 hProcess As Long’进程句柄 hThread As Long’线程句柄 dwProcessId As Long’进程ID dwThreadId As Long’线程ID End Type Public Declare Function GetCurrentProcess Lib kernel32 () As Long’获取当前进程句柄 Public Declare Function GetCurrentProcessId Lib kernel32 () As Long;获取当前进程ID Public Const TH32CS_SNAPPROCESS = As LongH2 Public Declare Function WaitForSingleObject Lib kernel32 (ByVal hHand