[VB6] 求代碼 - Kill Process.

Question

Sub KillProcess( ProcessName As String )
   ' 這個函數怎嚜寫啊? 
End Sub
'開發環境 Visual Basic 6.0
'運行環境 Win 98/2000/2003

Answer 1

http://dev.csdn.net/develop/article/27/27710.shtm

Answer 2

listview,2个按钮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 LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
    ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As LongPrivate Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, _
    ByVal uExitCode As Long) As LongPrivate 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 TypeConst TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000Private Sub Command1_Click()
    If MsgBox("你想删除 " & ListView1.SelectedItem.SubItems(2) & " 进程?", vbYesNo + vbQuestion) <> vbYes Then
        Exit Sub
    End If
    
    Dim mProcID As Long
    mProcID = OpenProcess(1&, -1&, ListView1.SelectedItem)
    TerminateProcess mProcID, 0&
    DoEvents
    ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
    ListView1.Refresh
End SubPrivate Sub CProcess_Click()
  Dim my As PROCESSENTRY32
  Dim l As Long
  Dim l1 As Long
  Dim mlistitem As ListItem
  
'  List1.Clear
  l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
  If l Then
    my.dwSize = 1060
    If (Process32First(l, my)) Then '遍历第一个进程
      Do
       Set mlistitem = ListView1.ListItems.Add(, , my.th32ProcessID)
             mlistitem.SubItems(1) = my.th32ParentProcessID
             mlistitem.SubItems(2) = my.szExeFile
      Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False
    End If
    l1 = CloseHandle(l)
  End If
End SubPrivate Sub Form_Load()
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    ListView1.FullRowSelect = True
    ListView1.ColumnHeaders.Add , , "Process ID", 1500
    ListView1.ColumnHeaders.Add , , "Process Parent ID", (1500)
    ListView1.ColumnHeaders.Add , , "Name", (Me.Width - 3200)
    ListView1.View = lvwReport
End Sub

Answer 3

我使用CDO開啟的OUTLOOK,但是釋放不了,手動可以結束,但是以上的代碼還是不行!

Answer 4

Dim myArray() As String = {"OUTLOOK"}                   '列舉要刪除的進程
Dim pProcess() As Process = Process.GetProcesses()       '獲取當前所有進程
Dim i As Integer, j As IntegerFor i = 0 To pProcess.Length - 1
    For j = 0 To myArray.Length - 1
       If InStr(pProcess(i).ProcessName.ToUpper, myArray(j).ToString.ToUpper) Then
           pProcess(i).Kill()                        '刪除相關進程
           WriteLog(pProcess(i).ProcessName)
       End If
    Next
Next