Монитор Ресурсов

Private Declare Function GetProcessMemoryInfo Lib "PSAPI.DLL" (ByVal hProcess As Long, ppsmemCounters As PROCESS_MEMORY_COUNTERS, ByVal cb As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Type PROCESS_MEMORY_COUNTERS
    cb As Long
    PageFaultCount As Long
    PeakWorkingSetSize As Long
    WorkingSetSize As Long
    QuotaPeakPagedPoolUsage As Long
    QuotaPagedPoolUsage As Long
    QuotaPeakNonPagedPoolUsage As Long
    QuotaNonPagedPoolUsage As Long
    PagefileUsage As Long
    PeakPagefileUsage As Long
End Type
Const PROCESS_QUERY_INFORMATION = 1024
Const PROCESS_VM_READ = 16
Function GetProcessWorkingSetSize(ByVal pid As Long) As Long
Dim pmc As PROCESS_MEMORY_COUNTERS
Dim lngHwndProcess As Long, lret As Long
 
pid = Val(Text1.Text) '4816
'Get a handle to the Process and Open
lngHwndProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, pid)
 
 'Get the Site of the Memory Structure
 pmc.cb = LenB(pmc)
 
 lret = GetProcessMemoryInfo(lngHwndProcess, pmc, pmc.cb)
 GetProcessWorkingSetSize = pmc.WorkingSetSize / 1024
End Function
 
 
Private Sub Command1_Click()
Dim pid As Long
pid = Val(Text1.Text) ' в текстовом поле надо записать PID процесса из диспетчера задач
 
MsgBox GetProcessWorkingSetSize(pid) & " K"
End Sub

    On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process", , 48)
    
    For Each objItem In colItems
        Debug.Print "Name: " & objItem.Name
        Debug.Print "IDProcess: " & objItem.IDProcess
        Debug.Print "IOWriteBytesPersec: " & (objItem.IOWriteBytesPersec) / 1024
        Debug.Print "IOWriteOperationsPersec: " & (objItem.IOWriteOperationsPersec) / 1024
    Next