寻一个完整的进程管理程序源码！高分回报！象WINDOWS优化大师那样的！

Question

鲁锦用的不是VB,如果你要进程管理程序源码，我这有，你的Email?
我的email: [email protected]

Answer 1

[email protected]
是完整的源码吗？？？

Answer 2

我知道鲁锦用的不是VB，是DELPHI ！

Answer 3

我也想要一份￣！！[email protected]

Answer 4

我发现用DELPHI编进程管理的东东比VB好象还简单点！如鲁锦的

Answer 5

你是买还是要啊？
买的话可以谈谈～
[email protected]

Answer 6

给我一个了，大哥：
[email protected]

Answer 7

Option ExplicitPrivate Const TH32CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Integer = 260
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 * MAX_PATH
End TypePrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
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 PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)Public ListOfActiveProcess() As PROCESSENTRY32Public Function GetActiveProcess(Optional strFile As String) As Long  '读取活动进程
    Dim hToolhelpSnapshot As Long
    Dim tProcess As PROCESSENTRY32
    Dim R As Long, i As Integer
    hToolhelpSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
    If hToolhelpSnapshot = 0 Then
        GetActiveProcess = 0
        Exit Function
    End If
    With tProcess
        .dwSize = Len(tProcess)
        R = ProcessFirst(hToolhelpSnapshot, tProcess)
        Do While R
            If strFile = "" Then
                i = i + 1
                ReDim Preserve ListOfActiveProcess(1 To i)
                ListOfActiveProcess(i) = tProcess
            Else
                If LCase(strFile) = LCase(fDelInvaildChr(tProcess.szExeFile)) Then
                   Call Terminate_Process(tProcess.th32ProcessID)
                   GetActiveProcess = -1
                   GoTo 1
                End If
            End If
            R = ProcessNext(hToolhelpSnapshot, tProcess)
        Loop
    End With
    GetActiveProcess = i
1:
    Call CloseHandle(hToolhelpSnapshot)
End Function'结束进程
Public Function Terminate_Process(ByVal process_ID As Long)
    Dim lProcess As Long
    Dim lReturn As Long
    lProcess = OpenProcess(&H1F0FFF, 0&, process_ID)
    lReturn = TerminateProcess(lProcess, 0&)
End Function''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'去掉固定长度字符串右边的NULL字符(ASCII值为0)和SPACE字符(ASCII值为32)函数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function fDelInvaildChr(ByVal str As String) As String
    On Error Resume Next
    Dim i As Long
    str = Trim(str)
    For i = Len(str) To 1 Step -1
    If Asc(Mid(str, i, 1)) <> 0 And Asc(Mid(str, i, 1)) <> 32 Then
    fDelInvaildChr = Left(str, i)
    Exit For
    End If
    Next
End Function
ListOfActiveProcess数组中记录的就是所有活动进程ListOfActiveProcess(1).szExeFile '进程的名称GetActiveProcess ListOfActiveProcess(1).szExeFile '就是要关闭的文件名Terminate_Process ListOfActiveProcess(1).th32ProcessID  '这样也可以