VB.Net by API/System.Diagnostics/PerformanceCounter
Версия от 16:40, 26 мая 2010;  (обсуждение)
PerformanceCounter.CategoryName
  
public class Test
   public Shared Sub Main
        Dim PerformanceCounter2 As System.Diagnostics.PerformanceCounter
        PerformanceCounter2 = New System.Diagnostics.PerformanceCounter()
        Console.WriteLine("Category: " & PerformanceCounter2.CategoryName)
        Console.WriteLine("Counter: " & PerformanceCounter2.CounterName)
        Console.WriteLine("Instance: " & PerformanceCounter2.InstanceName)
        Console.WriteLine("Machine: " & Environment.MachineName)
        Console.WriteLine("RawValue: " & PerformanceCounter2.RawValue)
        
   End Sub
End class
PerformanceCounter.CounterName
  
public class Test
   public Shared Sub Main
        Dim PerformanceCounter2 As System.Diagnostics.PerformanceCounter
        PerformanceCounter2 = New System.Diagnostics.PerformanceCounter()
        Console.WriteLine("Category: " & PerformanceCounter2.CategoryName)
        Console.WriteLine("Counter: " & PerformanceCounter2.CounterName)
        Console.WriteLine("Instance: " & PerformanceCounter2.InstanceName)
        Console.WriteLine("Machine: " & Environment.MachineName)
        Console.WriteLine("RawValue: " & PerformanceCounter2.RawValue)
        
   End Sub
End class
PerformanceCounter.InstanceName
  
public class Test
   public Shared Sub Main
        Dim PerformanceCounter2 As System.Diagnostics.PerformanceCounter
        PerformanceCounter2 = New System.Diagnostics.PerformanceCounter()
        Console.WriteLine("Category: " & PerformanceCounter2.CategoryName)
        Console.WriteLine("Counter: " & PerformanceCounter2.CounterName)
        Console.WriteLine("Instance: " & PerformanceCounter2.InstanceName)
        Console.WriteLine("Machine: " & Environment.MachineName)
        Console.WriteLine("RawValue: " & PerformanceCounter2.RawValue)
        
   End Sub
End class