--------------------------------------------------------------------------------

黑客动画吧 http://www.hack58.com

致力于中国最专业的黑客安全站点

黑客动画吧，有你更精彩

------------------------------------------------------------------------------

大家好.我是傻小子! 今天给大家做的是 用VB打造程序查看器

部件"对话框中选择"Microsoft Windows Common Controls 6.0 (SP6)",

------------------代码-------------------------------------

Option Explicit
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 Function TerminateProcess Lib "kernel32" (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
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
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 Const MAX_PATH As Integer = 260
Private Const PROCESS_TERMINATE = &H1

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 * MAX_PATH
End Type

Private Sub Command1_Click()
    GetProcess
End Sub

'终止进程
Private Sub Command2_Click()
    Dim i As Long
    Dim hand As Long
     hand = OpenProcess(PROCESS_TERMINATE, True, CLng(ListView1.SelectedItem.SubItems(1))) '获取进程句柄
    TerminateProcess hand, 0 '关闭进程
    Call Command1_Click '调用查看进程来刷新进程列表
End Sub

Private Sub Form_Load()
    Dim header As ColumnHeader
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Clear
    Set header = ListView1.ColumnHeaders.Add(, "first", "进程", 2000) '设置ListView中项目的宽度，读者也可自行设置
    Set header = ListView1.ColumnHeaders.Add(, "second", "ID", 800)
    GetProcess
    ListView1.Refresh
End Sub

Private Sub GetProcess()
    Dim i As Long
    Dim proc As PROCESSENTRY32
    Dim snap As Long
    Dim exename As String
    Dim theloop As Long
    Dim ret As ListItem
    ListView1.ListItems.Clear '清空所有内容
    snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '获得进程“快照”的句柄
    proc.dwSize = Len(proc)
    theloop = ProcessFirst(snap, proc) '获取第一个进程，并得到其返回值
    i = 0
    While theloop <> 0 '当返回值非零时继续获取下一个进程
        exename = proc.szExeFile
        Set ret = ListView1.ListItems.Add(, "first" & CStr(i), exename) '将进程名添加到第一项中
        ListView1.ListItems("first" & CStr(i)).SubItems(1) = proc.th32ProcessID '将进程ID添加到第二项中
        i = i + 1
        theloop = ProcessNext(snap, proc)
    Wend
    CloseHandle snap '关闭进程“快照”句柄
End Sub
   
Private Sub Form_Resize()       '因为ListView1只有两个元素,宽度限定会好看一点
If Me.WindowState = 1 Then Exit Sub     '最小化时退出过程
If Me.WindowState = 2 Then              '最大化时...
    With Me
        .WindowState = 0                '使窗体变为普通状态
        .Top = 0
        .Width = 3270
        .Height = Screen.Height - 500
    End With
End If
    Command1.Move 0, Me.ScaleHeight - Command1.Height
    ListView1.Height = Command1.Top
    ListView1.Width = 3135
    Command2.Move 2160, Command1.Top
    Me.Width = 3270
End Sub

黑吧傻小子  群:16393594 

多多支持我哦!~ ^_^ 嘿嘿!