Quand je lance une application VB6, j'aimerais connaitre le nombre de fois
que cette application est déjà lancée sur le poste.
Je connais la syntaxe "App.PrevInstance", mais elle ne me retourne pas le
nombre de fois que l'application est lancée!
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
Jacques93
Bonjour Thierry S, Thierry S a écrit :
Bonjour à tous,
Quand je lance une application VB6, j'aimerais connaitre le nombre de fois que cette application est déjà lancée sur le poste. Je connais la syntaxe "App.PrevInstance", mais elle ne me retourne pas le nombre de fois que l'application est lancée!
Merci d'avance pour votre aide.
Tu peux essayer avec la classe 'Win32_Process' de WMI, cela revient à lister les processus de la même manière que le gestionnaire de tâches :
Private Function ProcessCount(ProcessName As String) As Integer Dim wmi As Object Dim Process As Object Dim Count As Integer
Set wmi = GetObject("winmgmts:rootcimv2") For Each Process In wmi.ExecQuery("select * from win32_process") If UCase(Process.Name) = UCase(ProcessName) Then Count = Count + 1 Next Set wmi = Nothing ProcessCount = Count
Quand je lance une application VB6, j'aimerais connaitre le nombre de fois
que cette application est déjà lancée sur le poste.
Je connais la syntaxe "App.PrevInstance", mais elle ne me retourne pas le
nombre de fois que l'application est lancée!
Merci d'avance pour votre aide.
Tu peux essayer avec la classe 'Win32_Process' de WMI, cela revient à
lister les processus de la même manière que le gestionnaire de tâches :
Private Function ProcessCount(ProcessName As String) As Integer
Dim wmi As Object
Dim Process As Object
Dim Count As Integer
Set wmi = GetObject("winmgmts:rootcimv2")
For Each Process In wmi.ExecQuery("select * from win32_process")
If UCase(Process.Name) = UCase(ProcessName) Then Count = Count + 1
Next
Set wmi = Nothing
ProcessCount = Count
Quand je lance une application VB6, j'aimerais connaitre le nombre de fois que cette application est déjà lancée sur le poste. Je connais la syntaxe "App.PrevInstance", mais elle ne me retourne pas le nombre de fois que l'application est lancée!
Merci d'avance pour votre aide.
Tu peux essayer avec la classe 'Win32_Process' de WMI, cela revient à lister les processus de la même manière que le gestionnaire de tâches :
Private Function ProcessCount(ProcessName As String) As Integer Dim wmi As Object Dim Process As Object Dim Count As Integer
Set wmi = GetObject("winmgmts:rootcimv2") For Each Process In wmi.ExecQuery("select * from win32_process") If UCase(Process.Name) = UCase(ProcessName) Then Count = Count + 1 Next Set wmi = Nothing ProcessCount = Count
