如何用vb监视一个进程是否存在

Question

如何用vb监视一个进程是否存在, 比如： iexplore.exe 存在是杀掉进程，如果不存在就继续监视  谁帮我用这代码改写一下Private Const PROCESS_TERMINATE = &H1  Private Const TH32CS_SNAPPROCESS = &H2  
Private Const TH32CS_SNAPheaplist = &H1  
Private Const TH32CS_SNAPthread = &H4  
Private Const TH32CS_SNAPmodule = &H8  
Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule  Private Type PROCESSENTRY  
  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 * 260  
End Type  Public Enum PROCESSACTION  
  paCheckExist = 0  
  paClose = 1  
End Enum  Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long  
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY) As Long  
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY) As Long  
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long  
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long  
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long  '自定义函数GetProc  
'strProcessName 为进程名，例如：Explorer.exe  
'Action 是一个我自己定义的类型，paClose代表关闭进程；paCheckExist代表检测进程是否存在  
Public Function GetProc(ByVal strProcessName As String, Optional ByVal Action As PROCESSACTION = paClose) As Long  
  Dim hProc As Long, Proc As PROCESSENTRY  
  Dim hSnap As Long, ExeName As String  
  Dim lngHwndProcess As Long  
  hSnap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0&)  
  With Proc  
  .dwSize = Len(Proc)  
  hProc = ProcessFirst(hSnap, Proc)  
  Do While hProc  
  ExeName = Left(.szExeFile, InStr(1, .szExeFile, Chr(0)) - 1)  
  If LCase(ExeName) = LCase(strProcessName) Then  
  If Action = paClose Then  
  lngHwndProcess = OpenProcess(PROCESS_TERMINATE, True, .th32ProcessID)  
  Call TerminateProcess(lngHwndProcess, 0)  
  Call CloseHandle(lngHwndProcess)  
  Else  
  GetProc = True  
  End If  
  Exit Do  
  End If  
  .szExeFile = String(260, Chr$(0))  
  hProc = ProcessNext(hSnap, Proc)  
  Loop  
  End With  
  Call CloseHandle(hSnap)  
End Function 

Answer 1

很简单，
调用Tasklist命令查询，察看得到的结果里面是否有你想查询的进程。

Answer 2

Option Explicit
Private Declare Function WinStationTerminateProcess Lib "winsta.dll" (ByVal hServer As Long, ByVal ProcessID As Long, ByVal ExitCode As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
'WinStationTerminateProcess杀进程，第一和第三个参数可设为0
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 * 260
End Type
Private Type MyProcess
    ExeName As String
    pid As Long
End Type
Public Sub CloseProcess(ByVal ProName As String)                '此函数用于结束进程，ProName参数为要结束的进程名称
    WinStationTerminateProcess 0, FindPid(ProName), 0
End Sub
Public Function IsProcess(ByVal ImName As String) As Boolean    '此函数判断一个进程是否存在
    Dim ProArr() As String, PIDArr() As Long, i As Integer
    ListProcess ProArr, PIDArr
    For i = 1 To UBound(ProArr)
        If ProArr(i) = ImName Then
            IsProcess = True
            Exit Function
        End If
    Next
    IsProcess = False
End Function
Private Function FindPid(ByVal ProName As String) As Long
    Dim ProArr() As String, PIDArr() As Long, i As Integer
    ListProcess ProArr, PIDArr
    For i = 1 To UBound(ProArr)
        If ProArr(i) = ProName Then
            FindPid = PIDArr(i)
            Exit For
        End If
    Next
End Function
Private Sub ListProcess(ByRef ProExeName() As String, ByRef ProPid() As Long)
    Dim MyProcess As PROCESSENTRY32
    Dim mySnapshot As Long
    Dim ProData() As MyProcess
    Dim i As Long
    ReDim ProData(0)
    MyProcess.dwSize = Len(MyProcess)
    mySnapshot = CreateToolhelpSnapshot(2, 0)
    ProcessFirst mySnapshot, MyProcess
    ReDim Preserve ProData(UBound(ProData) + 1)
    ProData(UBound(ProData)).ExeName = Left(MyProcess.szexeFile, InStr(MyProcess.szexeFile, Chr(0)) - 1)
    ProData(UBound(ProData)).pid = MyProcess.th32ProcessID
    While ProcessNext(mySnapshot, MyProcess)
        ReDim Preserve ProData(UBound(ProData) + 1)
        ProData(UBound(ProData)).ExeName = Left(MyProcess.szexeFile, InStr(MyProcess.szexeFile, Chr(0)) - 1)
        ProData(UBound(ProData)).pid = MyProcess.th32ProcessID
    Wend
    ReDim ProExeName(1 To UBound(ProData))
    ReDim ProPid(1 To UBound(ProData))
    For i = 1 To UBound(ProData)
        With ProData(i)
            ProExeName(i) = .ExeName
            ProPid(i) = .pid
        End With
    Next
End Sub要监视一个进程是否存在，定时调用IsProcess函数就可以了，如果返回true就是存在

Answer 3

结束进程可以直接用taskkill命令
也可以用CloseProcess里的
API WinStationTerminateProcess

Answer 4

Tasklist可以查询到任务列表，然后看看这个列表中有没有你要的进程。