用Excel开发进程管理器（4楼升级版）

andysky

利用VBA、DOS知识设计一个WINDOWS程序管理器
包括查看/关闭
安装方法：
1.下载、解压
2.打开“安装.exe”，输入1关回车
使用方法：
打开Excel，从菜单中打开“进程管理”

进程管理器.rar (111.78 KB, 下载次数: 515)

2009-2-11 10:29 上传

点击文件名下载附件

http://excelbbx.cn/flash/qingting.swf

情感网事

高手。想知道这个图用什么做的。

zhoulon

太厉害了，佩服。

andysky

升级版
加很很多功能，其中显示电脑使用时间是VISTA独有的

ldy

等罗兄有空，编写个教程。

andysky

　　开发进程管理器主要用到了WMI技术和DOS技术
　　WMI是Windows 2K/XP管理系统的核心；对于其他的Win32操作系统，WMI是一个有用的插件。WMI以CIMOM为基础，CIMOM即公共信息模型对象管理器（Common Information Model Object Manager），是一个描述操作系统构成单元的对象数据库，为MMC和脚本程序提供了一个访问操作系统构成单元的公共接口。有了WMI，工具软件和脚本程序访问操作系统的不同部分时不需要使用不同的API；相反，操作系统的不同部分都可以插入WMI。

　　WMI是一项核心的Windows管理技术，WMI作为一种规范和基础结构，通过它可以访问、配置、管理和监视几乎所有的Windows资源，比如用户可以在远程计算机器上启动一个进程；设定一个在特定日期和时间运行的进程；远程启动计算机；获得本地或远程计算机的已安装程序列表；查询本地或远程计算机的Windows事件日志等等。
　　一般情况下，在本地计算机上执行的WMI操作也可以在远程计算机上执行，只要用户拥有该计算机的管理员权限。如果用户对远程计算机拥有权限并且远程计算机支持远程访问，那么用户就可以连接到该远程计算机并执行拥有相应权限的操作。
　　本例中仅仅用到其进程调用部分。也就是GetObject("WinMgmts:").InstancesOf("Win32_Process")

　　打开EXCEL，按下Alt+F11，然后插入窗体，在窗体中新增一个列表框，再输入以下代码：

Private Sub UserForm_Activate()
'   ╔───────────╗
'   │　Excel      VBA插件       │
'   │   版　　本：  1.0           │
'   ╚───────────╝

    Dim aa(), counts As Byte, i As Integer, xProcesses As Object
    Set xProcesses = GetObject("WinMgmts:").InstancesOf("Win32_Process")
    counts = xProcesses.Count + 1
    i = 2
    ReDim Preserve aa(1 To counts, 1 To 5)
    aa(1, 1) = "进程": aa(1, 2) = "用户": aa(1, 3) = "进程ID": aa(1, 4) = "内存": aa(1, 5) = "路径"
    For Each xProcess In xProcesses
        With xProcess
            If .GetOwner(user, Domain) = 0 Then
                aa(i, 1) = .Caption: aa(i, 2) = user: aa(i, 3) = .ProcessID: aa(i, 4) = .WorkingSetSize / 1024: aa(i, 5) = .ExecutablePath
            Else
                aa(i, 1) = .Caption: aa(i, 2) = "": aa(i, 3) = .ProcessID: aa(i, 4) = .WorkingSetSize / 1024: aa(i, 5) = .ExecutablePath
            End If
        End With
        i = i + 1
    Next
    With ListBox1
        .MultiSelect = fmMultiSelectSingle
        .ColumnCount = 5
        .List = aa
        .ColumnHeads = False
        .ListStyle = fmListStyleOption
    End With
End Sub

运行窗即可
本电脑的所有进程，和每个进程的用户、ID、内存消耗、路径等等都在列表框中显示出来了
那么如果是想显示在单元格中呢？
加入以下两句即可

Range("a1:E" & counts) = aa
Range("a:e").EntireColumn.AutoFit

[ 本帖最后由 andysky 于 2011-3-15 08:02 编辑 ]

andysky

对于关闭指定的进程，则需要用DOS命令：taskkill
在VBA用，利用SHELL调用这个DOS命令即可
其语法下：

Shell "taskkill /f /im " & "您指定的进程名称"

andysky

要取得taskkill命令的语法，可以调用以下语句完成：

Sub taskkill语法()
   With CreateObject("WScript.Shell")
    .Popup .Exec("cmd.exe /c taskkill/?").StdOut.ReadAll, , "语法提示"
End With
End Sub

slywtj123

感谢版主！收藏了好好学习学习！

PeterYeung

请问，既然实现到这么多的系统功能，那么，如何能得到：当前Windows系统已经打开的文件的文件名列表呢？这个问题我想了好久，但一无所获。谢谢指教。