Imports System.Diagnostics
 
Module Module1
 
    Sub Main()
        ' 创建PerformanceCounter实例来监视CPU使用率
        ' 注意：CounterName和InstanceName可能因系统而异，这里使用的是常见的计数器和实例名
        Dim cpuCounter As New PerformanceCounter("Processor", "% Processor Time", "_Total", True)
 
        ' 检查计数器类别是否存在
        If Not cpuCounter.CategoryExists() Then
            Console.WriteLine("Performance counter category does not exist.")
            Return
        End If
 
        ' 如果计数器不存在，尝试创建它（通常不需要，因为大多数系统计数器都是预定义的）
        If Not cpuCounter.InstanceExists() Then
            ' 通常情况下，不需要手动创建计数器，因为它们是由系统提供的
            ' 这里只是展示如何检查实例是否存在
            Console.WriteLine("Performance counter instance does not exist. (This is usually not an issue for system counters.)")
        End If
 
        ' 开始读取CPU使用率
        While True
            ' NextValue()方法返回下一个增量值，通常用于计算速率
            ' 由于我们想要获取当前的CPU使用率，我们只需读取这个值即可
            ' 注意：通常建议连续调用两次NextValue()，并使用差值来计算速率
            ' 但在这里我们简单地将它视为当前的CPU使用率
            Dim cpuUsage As Double = cpuCounter.NextValue()
 
            ' 格式化并打印CPU使用率（可能需要转换为百分比形式）
            Console.WriteLine("Current CPU Usage: {0:F2}%", cpuUsage)
 
            ' 等待一段时间再读取下一个值
            System.Threading.Thread.Sleep(1000) ' 等待1秒
        End While
 
        ' 注意：由于上面的While循环是无限的，你需要一种方式来中断它（比如通过键盘输入）
    End Sub
 
End Module