用VB如果获取当前某个进程占用的内存大小

Question

如题

Answer 1

用wmi：
Private Sub Command3_Click()
Dim strComputer As String
Dim objWMIService As Object
Dim colProcessList
Dim objProcess As Object
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("select * FROM Win32_Process")
For Each objProcess In colProcessList
      enum1 = enum1 + objProcess.Name + ", "
      enum1 = enum1 + CStr(objProcess.processid) + ","
      enum1 = enum1 + CStr(objProcess.workingsetsize) + ","
      enum1 = enum1 + Chr(13) + Chr(10)
Next
Debug.Print enum1
End Sub

Answer 2

我的CSDN Blog上有个非常详细的进程管理器的源代码，你可以下载参考一下，要有仅有