Dim MemoyCounter As New ComputerInfo()
Dim CPUCounter As New PerformanceCounter("Processor", "% Processor Time", "_Total")
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim CPU As Double = CPUCounter.NextValue
Dim neicun As Double = (MemoyCounter.TotalPhysicalMemory - MemoyCounter.AvailablePhysicalMemory) / MemoyCounter.TotalPhysicalMemory * 100%
获取CPU及物理内存使用率
VB无法调用电脑硬件信息,须要启用数据库
直接下载个鲁大师就能测试温度了!!烦请您的采纳!!
下载个鲁大师,所有硬件信息都能看到