1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
|
" codeBody "
Dim myProcesses () als Proces = Process.GetProcesses
Schemerige myProcess als Proces
Voor Elke myProcess in myProcesses
Als (myProcess.ProcessName.ToLower = „buggyprocess“) Dan
myProcess.Kill ()
Eind als
Daarna
'en ook
PC.CategoryName = „Bewerker“
PC.CounterName = „de Tijd van de Bewerker van %“
PC.InstanceName = „_Total“
MessageBox.Show (PC.NextValue () .ToString ())
'en ook
'-- Verklaar Privé Lid
Privé mPerformanceCounter als Nieuwe System.Diagnostics.PerformanceCounter („Bewerker“, „de Tijd van de Bewerker van %“,“ _Total ")
Privé SubbtnClear_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt btnClear.Click
lvCPU.Items.Clear ()
Sub van het eind
Privé SubTimer1_Tick (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt Timer1.Tick
lvCPU.Items.Add (CInt (mPerformanceCounter.NextValue ()) & „%“)
lvCPU.SelectedIndex = lvCPU.Items.Count - 1
Sub van het eind
|