获取另一个进程的实际使用的内存

问题描述

我想从Chrome浏览器中读取RAM的使用情况。

但是以下内容将返回完全错误的值：

   Private Sub Button5_Click(sender As Object,e As EventArgs) Handles Button5.Click
        Dim ramNeeded As Long
        Dim virtualRamNeeded As Long
        For Each p As Process In Process.GetProcessesByName("chrome")
            ramNeeded = ramNeeded + p.WorkingSet64
            virtualRamNeeded = virtualRamNeeded + p.VirtualMemorySize64
        Next
        MsgBox(FormatBytes(virtualRamNeeded) & "     " & FormatBytes(ramNeeded))

    End Sub

    Public Function FormatBytes(ByVal BytesCaller As ULong) As String
        Dim DoubleBytes As Double
        Try
            Select Case BytesCaller
                Case Is >= 1099511627776
                    DoubleBytes = CDbl(BytesCaller / 1099511627776) 'TB
                    Return FormatNumber(DoubleBytes,2) / 2 & " TB"
                Case 1073741824 To 1099511627775
                    DoubleBytes = CDbl(BytesCaller / 1073741824) 'GB
                    Return FormatNumber(DoubleBytes,2) / 2 & " GB"
                Case 1048576 To 1073741823
                    DoubleBytes = CDbl(BytesCaller / 1048576) 'MB
                    Return FormatNumber(DoubleBytes,2) / 2 & " MB"
                Case 1024 To 1048575
                    DoubleBytes = CDbl(BytesCaller / 1024) 'KB
                    Return FormatNumber(DoubleBytes,2) / 2 & " KB"
                Case 0 To 1023
                    DoubleBytes = BytesCaller ' bytes
                    Return FormatNumber(DoubleBytes,2) & " bytes"
                Case Else
                    Return DoubleBytes
            End Select
        Catch
            Return ""
        End Try

    End Function

在taskmanager中，我有140MB，但是从我的函数中，我有180MB。有谁知道怎么了？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）