Dossier
bierataise
Messages postés
55
Date d'inscription
mardi 28 juin 2005
Statut
Membre
Dernière intervention
4 mai 2006
-
4 août 2005 à 16:25
florantanplan Messages postés 76 Date d'inscription mardi 11 février 2003 Statut Membre Dernière intervention 8 septembre 2006 - 4 août 2005 à 17:47
florantanplan Messages postés 76 Date d'inscription mardi 11 février 2003 Statut Membre Dernière intervention 8 septembre 2006 - 4 août 2005 à 17:47
1 réponse
florantanplan
Messages postés
76
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
8 septembre 2006
4 août 2005 à 17:47
4 août 2005 à 17:47
Bonjour,
La fonction shell renvoie l'ID de la tâche. Apres voici un bout de code permettant de tuer le processus à partir de son ID:
(Il faut ajouter la référence "Microsoft WMI scripting vX.X library")
Public Function KillProcessus(lngProcessId As Long) As Boolean
'renvoie true si le processus est bien termine
Dim ServiceObject As SWbemObject 'Objet WMI
Dim Locator As SWbemLocator 'Objet de connexion
Dim services As SWbemServices 'Objet services
Dim p
Set Locator = New SWbemLocator 'Nouvelle insatance d'une connexion
'Connexion au serveur
Set services = Locator.ConnectServer("")
'Recuperation du processus selectionné
Set ServiceObject = services.Get("Win32_Process='" & lngProcessId & "'")
'Destruction du processus
p = ServiceObject.Terminate
If p <> 0 Then
KillProcessus = False
Else
KillProcessus = True
End If
Set ServiceObject = Nothing
Set services = Nothing
Set Locator = Nothing
End Function
La fonction shell renvoie l'ID de la tâche. Apres voici un bout de code permettant de tuer le processus à partir de son ID:
(Il faut ajouter la référence "Microsoft WMI scripting vX.X library")
Public Function KillProcessus(lngProcessId As Long) As Boolean
'renvoie true si le processus est bien termine
Dim ServiceObject As SWbemObject 'Objet WMI
Dim Locator As SWbemLocator 'Objet de connexion
Dim services As SWbemServices 'Objet services
Dim p
Set Locator = New SWbemLocator 'Nouvelle insatance d'une connexion
'Connexion au serveur
Set services = Locator.ConnectServer("")
'Recuperation du processus selectionné
Set ServiceObject = services.Get("Win32_Process='" & lngProcessId & "'")
'Destruction du processus
p = ServiceObject.Terminate
If p <> 0 Then
KillProcessus = False
Else
KillProcessus = True
End If
Set ServiceObject = Nothing
Set services = Nothing
Set Locator = Nothing
End Function
