参考代码
Dim cpu As new System.Diagnostics.PerformanceCounter("Processor", "% Processor Time", "_Total")cpu.MachineName = "."cpu.ReadOnly = Truecpu.NextValuesystem.threading.thread.sleep(500)msgbox(cpu.NextValue)