Discussion :

[Logiinx]

Bonjour, j'ai fais un "booster" qui ferme les processus inutiles et avec aussi un autre mode qui ferme tous les logiciels, je voudrais donc mettre une ligne de code qui ferme tout les processus SAUF ceux que j'écris mais je ne sais pas comment faire ce "sauf".
Merci d'avance, demandez moi si besoin de plus d'infos, je check régulièrement

[jopopmk]

Salut,

quelle méthode utilises-tu pour lister les process en cours ?
Et quelle méthode utilises-tu pour les tuer ?

[Logiinx]

J'ai cette fonction qui me permet de savoir si le processus existe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Function isprocessrunning(ByVal name As String) As Boolean
        For Each proc As Process In Process.GetProcesses
            If proc.ProcessName.StartsWith(name) Then
                Return True
            End If
        Next
        Return False
    End Function

Ainsi que celle ci pour tuer les processus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub KillProcess(ByVal ProcessName As String)
        Dim svc As Object
        Dim sQuery As String
        Dim oproc
        svc = GetObject("winmgmts:root\cimv2")
        sQuery = "select * from win32_process where name='" & ProcessName & "'"
        For Each oproc In svc.execquery(sQuery)
            oproc.Terminate()
        Next
        svc = Nothing
    End Sub

[jopopmk]

Remarques :
- ta fonction de listage est celle qui te permet de supprimer (celle qui recherche un proc précis n'a rien à voir),
- c'est du VB6 (enfin depuis le namespace Microsoft.VisualBasic), essaie d'utiliser les objets de System.Diagnostic.

Méthode :
- pour ne pas supprimer certains process il faut déterminer un critère discriminant (ex. le nom), et gérer une liste de ceux-ci,
- lorsque tu parcours tes process tu vérifies que le critère dudit process n'appartient pas à ta liste d'exclusion.