Question

VB 判断进程是否在

假如我要判断ss.exe这个进程，如果这个进程终止了的话就运行dd.exe这个文件来激活ss.exe这个进程，我的意思就是要让进程里面一直都有ss.exe 这个进程！

Answer 1

枚举系统进程....

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Private Type PROCESSENTRY32

dwSize As Long

cntUsage As Long

th32ProcessID As Long

th32DefaultHeapID As Long

th32ModuleID As Long

cntThreads As Long

th32ParentProcessID As Long

pcPriClassBase As Long

dwFlags As Long

szExeFile As String * 1024

End Type

Private Const TH32CS_SNAPHEAPLIST = &H1

Private Const TH32CS_SNAPPROCESS = &H2

Private Const TH32CS_SNAPTHREAD = &H4

Private Const TH32CS_SNAPMODULE = &H8

Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)

Private Const TH32CS_INHERIT = &H80000000

Private Sub EnumProcess
Dim process As PROCESSENTRY32
Dim l As Long
Dim l1 As Long
Dim mName As String

Dim I As Integer
l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

If l Then
process.dwSize = 1060

If (Process32First(l, process)) Then

Do
'你的程序代码
'访问 process 结构体对像获取进程信息
'在此处判断 ss.exe 是否存在，若不存在调用 ShellExecute 或 CreateProcess 函数启动，这两个函数的申明你用“API浏览器”生成一下我就不写了。

Loop Until (Process32Next(l, process) < 1)
End If

l1 = CloseHandle(l)
End If
End Sub

Answer 2

使用API ，FindWindow一直检查这个进程是否存在，如果不存在就使用shell运行它。