[VBA] récuper le handles d'une fenetre active
Résolu
goldenmike
Messages postés
315
Date d'inscription
Statut
Membre
Dernière intervention
-
goldenmike Messages postés 315 Date d'inscription Statut Membre Dernière intervention -
goldenmike Messages postés 315 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [VBA] récuper le handles d'une fenetre active
- Fenetre windows - Guide
- Fenêtre hors écran windows 11 - Guide
- Comment activer le pavé tactile sans souris - Guide
- Mcafee fenetre intempestive - Accueil - Piratage
- Fenetre de navigation privée - Guide
11 réponses
Bonjour,
Exemple type VB2008:
Notez qu'il est possible de parcourrir tous les process en action !
Lupin
Exemple type VB2008:
Imports System.Diagnostics.Process
Imports System.Text
''' <summary>
''' Exemple de capture du Handle
''' du process actif
''' </summary>
''' <remarks></remarks>
Public Class Form1
Sub CaptureProcessActif()
Dim Message As New StringBuilder
Dim Proc As Process
Proc = System.Diagnostics.Process.GetCurrentProcess
Message.AppendLine("Nom du process : " & Proc.ProcessName)
Message.AppendLine("Numéro du PID : " & Proc.Id)
Message.AppendLine("Handle du process : " & Proc.Handle.ToString)
MessageBox.Show(Message.ToString)
Debug.Print(Proc.ProcessName)
Debug.Print(Proc.Id)
Debug.Print(Proc.Handle)
End Sub
End Class
'
Notez qu'il est possible de parcourrir tous les process en action !
Sub CreerListeProcess()
Dim ProcessList As System.Diagnostics.Process()
Dim Proc As System.Diagnostics.Process
Dim LaListe As New ArrayList
ProcessList = System.Diagnostics.Process.GetProcesses()
For Each Proc In ProcessList
LaListe.Add(Proc.ProcessName)
Next
End Sub
Lupin
re:
Non, l'extension n'est pas requise à moins de cas spéciaux qui me serait
inconnu à ce jour.
Pour être certain du nom, utilise ce code pour faire afficher tous les noms :
Lupin
Non, l'extension n'est pas requise à moins de cas spéciaux qui me serait
inconnu à ce jour.
Pour être certain du nom, utilise ce code pour faire afficher tous les noms :
Sub CreerListeNomProcess()
Dim ProcessList As System.Diagnostics.Process()
Dim Proc As System.Diagnostics.Process
Dim Message As New StringBuilder
ProcessList = System.Diagnostics.Process.GetProcesses()
For Each Proc In ProcessList
Message.AppendLine(Proc.ProcessName)
Next
MessageBox.Show(Message.ToString)
End Sub
Lupin
Merci beaucoup !
MESSAGE A LUPIN.A
Merci !
J'ai tout de meme quelques questions :
- comment je fais pour recuper le Handles de mon processus ?? Tu n'as pas repondu a ma question .. :)
Merci d'avance
MESSAGE A LUPIN.A
Merci !
J'ai tout de meme quelques questions :
- comment je fais pour recuper le Handles de mon processus ?? Tu n'as pas repondu a ma question .. :)
Merci d'avance
re:
En fait, j'avais bien compris que c' était ton objectif :-)
Le paramètre [ Size ] est effectivement en général un paramètre en lecture/écriture.
Le paramètre [ Opacité ] est un paramètre qui m'est inconnu tant par son
type que ses méthodes et attributs.
N'ayant pas encore utilisé ces paramètres, je ne puis te guider davantage.
Google devrait combler ce manque à finir !
Tout le code déposé ici à été trouvé à l'aide de la toile, j'ai bien sur renommer
les objets pour bien comprendre ce que je codais car il y a souvent des erreurs à
corriger. J'y ai trouvé comment utilisé un crayon, une brosse pour dessiner
des formes.
J'ai pu te répondre car je travaille moi-même sur une version d'un gestionnaire
de tâches personnalisé, mais c'est ma deuxième application maison VB2008.
Lupin
En fait, j'avais bien compris que c' était ton objectif :-)
Le paramètre [ Size ] est effectivement en général un paramètre en lecture/écriture.
Le paramètre [ Opacité ] est un paramètre qui m'est inconnu tant par son
type que ses méthodes et attributs.
N'ayant pas encore utilisé ces paramètres, je ne puis te guider davantage.
Google devrait combler ce manque à finir !
Tout le code déposé ici à été trouvé à l'aide de la toile, j'ai bien sur renommer
les objets pour bien comprendre ce que je codais car il y a souvent des erreurs à
corriger. J'y ai trouvé comment utilisé un crayon, une brosse pour dessiner
des formes.
J'ai pu te répondre car je travaille moi-même sur une version d'un gestionnaire
de tâches personnalisé, mais c'est ma deuxième application maison VB2008.
Lupin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
re:
Lupin
Sub CreerListeHandle()
Dim ProcessList As System.Diagnostics.Process()
Dim Proc As System.Diagnostics.Process
Dim LaListe As New ArrayList
Dim MonHandle As System.IntPtr
ProcessList = System.Diagnostics.Process.GetProcesses()
For Each Proc In ProcessList
If (Proc.ProcessName.ToUpper = "EXCEL") Then
Debug.Print(Proc.ProcessName)
MonHandle = Proc.Handle
LaListe.Add(MonHandle)
End If
Next
End Sub
Lupin
Merci !
Juste une derniere question : comment puis-je recuper le nom du processus de mon programme ?
Dois-je mettre le .exe avec ?
Juste une derniere question : comment puis-je recuper le nom du processus de mon programme ?
Dois-je mettre le .exe avec ?
Merci !
Tu es mon sauveur !
Je mets +1 a chaque message + resolu : Je suis super-mega-top-content ce soir quant tu te coucheras tu pourras etre fier de toi ... Tu as fait 1 heureux ....
for i = 0 to 1000
print("MERCI")
@+
Tu es mon sauveur !
Je mets +1 a chaque message + resolu : Je suis super-mega-top-content ce soir quant tu te coucheras tu pourras etre fier de toi ... Tu as fait 1 heureux ....
for i = 0 to 1000
print("MERCI")
@+
Juste un dernier truc :
Maintenant que je suis sur du nom de mon processus , comment je fasi pour lui attribuer de l'opacité , du Size ?
C'etait mon premier but et j'espere que metre de l'opcaité / size est possible en VB..
Merci d'avance .
Maintenant que je suis sur du nom de mon processus , comment je fasi pour lui attribuer de l'opacité , du Size ?
C'etait mon premier but et j'espere que metre de l'opcaité / size est possible en VB..
Merci d'avance .
