總量:My.Computer.Info.TotalPhysicalMemory
創(chuàng)新互聯(lián)建站專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、比如網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、H5頁面制作、商城建設、集團公司官網(wǎng)建設、成都外貿(mào)網(wǎng)站建設、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務,價格優(yōu)惠性價比高,為比如等各大城市提供網(wǎng)站開發(fā)制作服務。
可用的:My.Computer .Info .AvailablePhysicalMemory
已使用量=總量-可用的
這么高深的問題,除非你舍得100分以上的懸賞,否則是沒人回答的
使用wmi
類“Win32_Processor”中LoadPercentage屬性為當前的cpu使用率
示例代碼: Private Sub Timer1_Timer()
Dim WMI服務 As Object
Dim 對象 As Object
Dim 子對象 As Object
Dim 電腦名 As String
Dim 刷新 As Long
刷新 = 0
電腦名 = "." '表示本地計算機
Set WMI服務 = GetObject("winmgmts://" 電腦名 "/root/cimv2")
Set 對象 = WMI服務.InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子對象 In 對象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子對象.Name "[" 子對象.CurrentClockSpeed "Hz] 使用率:" _
子對象.LoadPercentage "%"
Next
End Sub