Dim myProcesses () Jako Proces = Process.GetProcesses
Ciemnawy myProcess Proces
Dla Each myProcess W myProcesses
Jeżeli (myProcess.ProcessName.ToLower = "buggyprocess") Wtedy
myProcess.Kill ()
Kończyć Jeżeli
Następnie
'i także
PC.CategoryName = "Procesor"
PC.CounterName = "% Procesor Czas"
PC.InstanceName = "_Total"
MessageBox.Show (PC.NextValue () .ToString ())
'i także
'-- Oznajmiać Prywatny Członek
Intymny mPerformanceCounter Jako Nowy System.Diagnostics.PerformanceCounter ("Procesor", "% Procesor Czas"," _Total ")
Intymny Okręt podwodny btnClear_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się btnClear.Click
lvCPU.Items.Clear ()
Końcówka Okręt podwodny
Intymny Okręt podwodny Timer1_Tick (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się Timer1.Tick
lvCPU.Items.Add (CInt (mPerformanceCounter.NextValue ()) & "%")
lvCPU.SelectedIndex = lvCPU.Items.Count - (1)
Końcówka Okręt podwodny
|