class= " lineNumbers " de
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 :
|
class= de
myProcesses " de " codeSnippet835783 d'id= " de Dim de class= () comme processus = Process.GetProcesses
Faibles myProcess comme processus
Pour le chaque myProcess dans les myProcesses
Si (myProcess.ProcessName.ToLower = « buggyprocess ») puis
myProcess.Kill ()
Finir si
Après
'et aussi
PC.CategoryName = « processeur »
PC.CounterName = « % de temps de processeur »
PC.InstanceName = « _Total »
MessageBox.Show (PC.NextValue () .ToString ())
'et aussi
'-- Déclarer le membre privé
mPerformanceCounter privé en tant que nouveau System.Diagnostics.PerformanceCounter (« processeur », « % de temps de processeur », » _Total ")
Le btnClear_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnClear.Click
lvCPU.Items.Clear ()
Sous-marin d'extrémité
Le sous-marin privé Timer1_Tick (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule Timer1.Tick
lvCPU.Items.Add (CInt (mPerformanceCounter.NextValue ()) et « %")
lvCPU.SelectedIndex = lvCPU.Items.Count - 1
Sous-marin d'extrémité
|