LISTING DES PROCESSUS EN VB.NET
cs_leka
Messages postés
19
Date d'inscription
jeudi 27 mars 2003
Statut
Membre
Dernière intervention
17 juin 2004
-
4 oct. 2003 à 19:43
anadeveloppeur Messages postés 153 Date d'inscription samedi 10 septembre 2005 Statut Membre Dernière intervention 21 février 2019 - 12 déc. 2006 à 18:12
anadeveloppeur Messages postés 153 Date d'inscription samedi 10 septembre 2005 Statut Membre Dernière intervention 21 février 2019 - 12 déc. 2006 à 18:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/16825-listing-des-processus-en-vb-net
https://codes-sources.commentcamarche.net/source/16825-listing-des-processus-en-vb-net
12 déc. 2006 à 18:12
Imports System
Imports System.Diagnostics
Imports System.Diagnostics.Process
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Code généré par le Concepteur Windows Form "
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requis par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée en utilisant le Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(104, 64)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 32)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim myProcesses() As Process
Dim myProcess As Process
myProcesses = Process.GetProcesses()
' Iterate through the process array.
For Each myProcess In myProcesses
Console.WriteLine(myProcess.ProcessName)
Next
End Sub
End Class
PS : ça donne pas mal d'erreures, alors sois gentil et donne le programme en entier ;-)
Merci
8 févr. 2006 à 16:54
Quel est le systeme d'exploitation ? et tu administrateur ? quel est le processus que tu veux killer ?
@+
http://troxsa.info
7 sept. 2005 à 16:31
J'ai un problème d'accès quand je tente d'utiliser ce code, l'erreur exacte est : System.ComponentModel.Win32Exception: Accès refusé
Elle intervient sur la ligne contenant le "GetProcesses".
Quelqu'un a-t-il déjà été confronté à cette erreur? Une idée sur sa résolution?
Merci d'avance.
20 avril 2004 à 09:40
19 avril 2004 à 17:47
Tchuss
8 oct. 2003 à 10:09
For Each myProcess In myProcesses
'Pour chaque processus dont le nom est Excel
If UCase(myProcess.ProcessName) "EXCEL" Or UCase(myProcess.ProcessName) "EXCEL.EXE" Then
'Tentative Fermeture du processus par sa fenêtre si elle est ouverte
myProcess.CloseMainWindow()
If myProcess.HasExited Then
'Ou tentative de fermeture du processus seul
myProcess.Close()
Else
'Si rien ne se produit le processus est éradiqué
myProcess.Kill()
End If
End If
Next
Try this !
6 oct. 2003 à 15:26
Et merci pour le 10/10 ! Je suis comblé !
Bonne prog'
Seb.
6 oct. 2003 à 00:29
Car la, y'a trop de truc a recopier !!!!
c'est tout con, mais tellement pratique.... 10 car j'ai pas envie de passer aussi 4 h a rechercher un code comme ca dans la msdn :-D
4 oct. 2003 à 19:43