Dim nutzram As Double
Dim ArgC
nutzram = (My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024
ArgC = "内存占用率:" & nutzram.ToString("N") & " GB "
Dim a As Double = Format(CPUCounter.NextValue, "00.00")
Dim ArgC
nutzram = (My.Computer.Info.TotalPhysicalMemory - My.Computer.Info.AvailablePhysicalMemory) / 1048576 / 1024
ArgC = "内存占用率:" & nutzram.ToString("N") & " GB "
Dim a As Double = Format(CPUCounter.NextValue, "00.00")
Label1.Text = ArgC & "CPU占用率:" & CStr(a) & " %"

本文介绍了一种简单的方法来监测计算机的内存占用率及CPU使用率。通过Visual Basic代码实现,可以实时获取并显示系统当前的内存占用情况(单位为GB)与CPU占用百分比。
1871

被折叠的 条评论
为什么被折叠?



