VB.Net by API/System.Diagnostics/PerformanceCounter

Материал из VB Эксперт
Перейти к: навигация, поиск

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