Zjišťování stavu systému

Zjišťování stavu systému zodpovězená otázka

Dobrý den, chtěl bych se zeptat, jak zjistím například vytížení procesoru, paměti apod. nebo například počet přijatých a odeslaných socketů, zkrátka různé proměnlivé systémové (síťové) proměnné jako třeba ve správci úloh ve win. Děkuji za odpověď

nahlásit spam

odpovědět

před 18 lety

Róbert Pavlík

28 84

Dobrý deň. Niečo som našiel na nete, trochu som to upravil.

Imports System.Diagnostics
Public Class Form1
    Dim pcount As New PerformanceCounter
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        pcount.CategoryName = "Processor"
        pcount.CounterName = "% Processor Time"
        pcount.InstanceName = "0"
        Label1.Text = pcount.NextValue
        Threading.Thread.Sleep(20)
    End Sub
End Class