Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Phil99999
Bonjour voici comment faire pour avoir la liste des processus Windows.
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Const MAX_PATH As Integer = 260 Private Const TH32CS_SNAPPROCESS As Long = 2
Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szexeFile As String * MAX_PATH End Type
Private Sub GetListeProcess() Dim hSnapshot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Dim Proc As String
'On récupère la liste des processus en cours d'execution hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot <> 0 Then uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapshot, uProcess) 'on parcoure la liste des processus
Do While r
Proc = uProcess.szexeFile
MsgBox Proc 'Ils défilent !!
r = ProcessNext(hSnapshot, uProcess)
Loop End If
End Sub
Bonjour à tous,
Quelqu'un aurait-il un moyen d'avoir par macro la liste des processus windows en cours ?
merci de votre aide pascalsai
Bonjour voici comment faire pour avoir la liste des processus Windows.
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First"
(ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next"
(ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias
"CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Const MAX_PATH As Integer = 260
Private Const TH32CS_SNAPPROCESS As Long = 2
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szexeFile As String * MAX_PATH
End Type
Private Sub GetListeProcess()
Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Dim Proc As String
'On récupère la liste des processus en cours d'execution
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot <> 0 Then
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapshot, uProcess)
'on parcoure la liste des processus
Do While r
Proc = uProcess.szexeFile
MsgBox Proc 'Ils défilent !!
r = ProcessNext(hSnapshot, uProcess)
Loop
End If
End Sub
Bonjour à tous,
Quelqu'un aurait-il un moyen d'avoir par macro la liste des processus
windows en cours ?
Bonjour voici comment faire pour avoir la liste des processus Windows.
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Const MAX_PATH As Integer = 260 Private Const TH32CS_SNAPPROCESS As Long = 2
Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szexeFile As String * MAX_PATH End Type
Private Sub GetListeProcess() Dim hSnapshot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Dim Proc As String
'On récupère la liste des processus en cours d'execution hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot <> 0 Then uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapshot, uProcess) 'on parcoure la liste des processus
Do While r
Proc = uProcess.szexeFile
MsgBox Proc 'Ils défilent !!
r = ProcessNext(hSnapshot, uProcess)
Loop End If
End Sub
Bonjour à tous,
Quelqu'un aurait-il un moyen d'avoir par macro la liste des processus windows en cours ?
merci de votre aide pascalsai
pascalsai
merci de ton aide c'est exactement ce qu'il me fallait
pascalsai
"Phil99999" (!sansspam!)> a écrit dans le message de news:
Bonjour voici comment faire pour avoir la liste des processus Windows.
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First"
(ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Const MAX_PATH As Integer = 260 Private Const TH32CS_SNAPPROCESS As Long = 2
Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szexeFile As String * MAX_PATH End Type
Private Sub GetListeProcess() Dim hSnapshot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Dim Proc As String
'On récupère la liste des processus en cours d'execution hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot <> 0 Then uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapshot, uProcess) 'on parcoure la liste des processus
Do While r
Proc = uProcess.szexeFile
MsgBox Proc 'Ils défilent !!
r = ProcessNext(hSnapshot, uProcess)
Loop End If
End Sub
Bonjour à tous,
Quelqu'un aurait-il un moyen d'avoir par macro la liste des processus windows en cours ?
merci de votre aide pascalsai
merci de ton aide c'est exactement ce qu'il me fallait
pascalsai
"Phil99999" <PhilDuch@wanadoo.fr.(!sansspam!)> a écrit dans le message de
news:ECF9B017-F2C0-4CE9-B091-CA72A49DD7E4@microsoft.com...
Bonjour voici comment faire pour avoir la liste des processus Windows.
Private Declare Function ProcessFirst Lib "kernel32" Alias
"Process32First"
(ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next"
(ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias
"CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As
Long
Private Const MAX_PATH As Integer = 260
Private Const TH32CS_SNAPPROCESS As Long = 2
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szexeFile As String * MAX_PATH
End Type
Private Sub GetListeProcess()
Dim hSnapshot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
Dim Proc As String
'On récupère la liste des processus en cours d'execution
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot <> 0 Then
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapshot, uProcess)
'on parcoure la liste des processus
Do While r
Proc = uProcess.szexeFile
MsgBox Proc 'Ils défilent !!
r = ProcessNext(hSnapshot, uProcess)
Loop
End If
End Sub
Bonjour à tous,
Quelqu'un aurait-il un moyen d'avoir par macro la liste des processus
windows en cours ?
merci de ton aide c'est exactement ce qu'il me fallait
pascalsai
"Phil99999" (!sansspam!)> a écrit dans le message de news:
Bonjour voici comment faire pour avoir la liste des processus Windows.
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First"
(ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Const MAX_PATH As Integer = 260 Private Const TH32CS_SNAPPROCESS As Long = 2
Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szexeFile As String * MAX_PATH End Type
Private Sub GetListeProcess() Dim hSnapshot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Dim Proc As String
'On récupère la liste des processus en cours d'execution hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot <> 0 Then uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapshot, uProcess) 'on parcoure la liste des processus
Do While r
Proc = uProcess.szexeFile
MsgBox Proc 'Ils défilent !!
r = ProcessNext(hSnapshot, uProcess)
Loop End If
End Sub
Bonjour à tous,
Quelqu'un aurait-il un moyen d'avoir par macro la liste des processus windows en cours ?
