Dim myProcesses () als Prozess = Process.GetProcesses
Schwache myProcess als Prozess
Für jedes myProcess in den myProcesses
Wenn (myProcess.ProcessName.ToLower = „buggyprocess“) dann
myProcess.Kill ()
Beenden wenn
Zunächst
'und auch
PC.CategoryName = „Prozessor“
PC.CounterName = „% CPU-Zeit“
PC.InstanceName = „_Total“
MessageBox.Show (PC.NextValue () .ToString ())
'und auch
'-- Privates Mitglied erklären
Privates mPerformanceCounter als neues System.Diagnostics.PerformanceCounter („Prozessor“, „% CPU-Zeit“,“ _Total ")
Privates VorbtnClear_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnClear.Click
lvCPU.Items.Clear ()
Enden-Unterseeboot
Privates Unterseeboot Timer1_Tick (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Timer1.Tick
lvCPU.Items.Add (CInt (mPerformanceCounter.NextValue ()) u. „%")
lvCPU.SelectedIndex = lvCPU.Items.Count - 1
Enden-Unterseeboot
|