Plein d'opérations simple pour gérer les process

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 486 fois - Téléchargée 36 fois

Contenu du snippet

voici ce que sa permet de faire:
voire si une certaine app est ouverte
retourner le hwnd d'un programme
changer le titre d'une fenetre
obtenir la liste des process
killer des process (+ sécurité pour explorer)
retourner le titre d'un handle
(mettez sa dans un module)

Source / Exemple :


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Const Fermer = &H10
Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
Public Function GetHandle(Titre As String) As Long
GetHandle = FindWindow(vbNullString, Titre)
End Function

Public Sub SetTitle(hwnd As Long, texte As String)
SetWindowText hwnd, texte
End Sub
Public Function IsAppRunning(Titre As String) As Boolean
Dim handle
handle = FindWindow(vbNullString, Titre)
If handle = 0 Then IsAppRunning = False Else: IsAppRunning = True
End Function
Public Function Fermer_app(Titre As String) As Boolean
Dim handle As Long, thread As Long, proc_handle As Long
handle = FindWindow(vbNullString, Titre)
If handle = 0 Then Fermer_app = False: Exit Function
GetWindowThreadProcessId handle, thread
proc_handle = OpenProcess(PROCESS_TERMINATE, False, thread)
TerminateProcess proc_handle, 4
Fermer_app = True
reloader_explorer
End Function
Public Function GetProcessTitle(hwnd As Long)
  Dim Str As String
    Str = String$(GetWindowTextLength(hwnd) + 1, Chr$(0))
    GetWindowText hwnd, Str, Len(Str)
    GetProcessTitle = Str
End Function

'pas de moi (mais je l'ai amélioré) :
Public Function listedestaches(frm As Form) As String
On Error Resume Next
Dim CurrWnd As Long
Dim Length As Long
Dim NomTache As String
Dim Parent As Long
Dim NbListe As String
NbListe = 0
CurrWnd = GetWindow(frm.hwnd, GW_HWNDFIRST)
While CurrWnd <> 0
    Parent = GetParent(CurrWnd)
    Length = GetWindowTextLength(CurrWnd)
    NomTache = Space$(Length + 1)
    Length = GetWindowText(CurrWnd, NomTache, Length + 1)
    NomTache = Left$(NomTache, Len(NomTache) - 1)
    If Length <> 0 Then
        If NomTache <> Form1.Caption And NomTache <> "" Then
            If IsWindowVisible(CurrWnd) Then
                listedestaches = listedestaches & NomTache & vbCrLf
            End If
        End If
    End If
CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
DoEvents
Wend
End Function
'SÉCURITÉ CAR SI ON FERME UN DOSSIER, EXPLORER SE FERME ;-)
Sub reloader_explorer()
On Error Resume Next
Dim CurrWnd As Long
Dim Length As Long
Dim NomTache As String
Dim Parent As Long
Dim NbListe As String
Dim listedestaches
NbListe = 0
listedestaches = ""
CurrWnd = GetWindow(Form1.hwnd, GW_HWNDFIRST)
While CurrWnd <> 0
    Parent = GetParent(CurrWnd)
    Length = GetWindowTextLength(CurrWnd)
    NomTache = Space$(Length + 1)
    Length = GetWindowText(CurrWnd, NomTache, Length + 1)
    NomTache = Left$(NomTache, Len(NomTache) - 1)
    If Length <> 0 Then
        If NomTache <> Form1.Caption And NomTache <> "" Then
            If IsWindowVisible(CurrWnd) Then
                listedestaches = listedestaches & NomTache & vbCrLf
            End If
        End If
    End If
CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
DoEvents
Wend
If InStr(1, listedestaches, "Program Manager") <= 1 Then
ouvrirexp
End If
End Sub
Sub ouvrirexp()
Dim fso As FileSystemObject, fold
Set fso = New FileSystemObject
fold = fso.GetSpecialFolder(WindowsFolder)
If Right(fold, 1) = "\" Then
Else
fold = fold & "\"
End If
Shell fold & "explorer.exe"
End Sub

A voir également

Ajouter un commentaire

Commentaires

ratala
Messages postés
248
Date d'inscription
jeudi 3 février 2005
Statut
Membre
Dernière intervention
22 juin 2008
-
je vois pas le "retourner le hwnd d'un programme"
est-ce que sa retourne le hwnd par exemple si je lui dit "explorer.exe" ?
cs_thibaud28
Messages postés
9
Date d'inscription
mardi 13 juillet 2004
Statut
Membre
Dernière intervention
14 août 2007
-
Comment on obtient la liste des process?
cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
Bonne source !

Cependant faire dépendre FSO pour une fonction ki pourrait s'en passer ... j'evite FSO des que je peux.

Voilà la version sans FSO de la sub ouvrirexp()

Sub OuvrirExp()
Dim Chemin As String
Chemin = Environ("WinDir")
If Right(Chemin, 1) <> "" Then Chemin = Chemin & ""
Shell Chemin & "explorer.exe"
End Sub


Pour TigerFab :

Je pense que la constante que tu cherches doit être :

Const PROCESS_TERMINATE = &H1

@++

7/10
Leirn
Messages postés
30
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
12 février 2004
-
heine a dit:
bon ben on va dire que c'est sympa mais basic.. aller 5/10 ;)
Enjoy ;)

Il me semble que tu y vas un peu fort la...
Son code est une belle collection de fonctions manipuler les process, et c est exactement ce qu il propose. Et c est peut etre une utilisation basique d API (et encore ca fait une belle présentation de leur utilisation), mais en général c est ce qu on demande à un code classé débutant, d être basic...

Pis basic... excuse moi de devoir critiquer tes sources aussi alors (enfin ta source...)... Un zip pour 10 lignes de code c est un peu du temps perdu, et les afficher directement ca permet d eviter de telecharger des programmes trop basiques et inutiles... Ya pas besoin dun zip pour comprendre un code... Une fois lu je sais pas ce qu il y a a tester.

Enfin bref, la prochaine fois reste couché au lieu de dire des conneries,


gabchampagne: 7 pour ton code a cause de l absence de commentaire, sinon c est pas mal
cs_heine
Messages postés
58
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
15 novembre 2006
-
bon ben on va dire que c'est sympa mais basic.. aller 5/10 ;)

Enjoy ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.