J'ai une sub que j'appelle au lancement de mon appli pour vérifier si elle
n'est pas déjà lancée :
Public Sub ProcessExist()
Dim Process As New System.Management.ManagementObjectSearcher("SELECT * FROM
Win32_Process")
Dim info As System.Management.ManagementObject
Dim stock As String
Dim vrs As Integer
For Each info In Process.Get
stock = info("Caption").ToString()
If stock = "monAppli.exe" Then
vrs = vrs + 1
If vrs > 1 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
End If
Next
End Sub
Jusqu'à présent elle fonctionnait très bien et là un utilisateur sous W98
2nd Edition (je ne sais pas s'il y a un rapport) a une erreur au niveau de
cette sub :
System.Runtime.InteropServices.COMException (0x80040154): COM object with
CLSID {4590F811-1D3A-11D0-891F-00AA004B2E24} is either not valid or not
registered.
at System.Management.ManagementScope.Initialize()
at System.Management.ManagementObjectSearcher.Initialize()
at System.Management.ManagementObjectSearcher.Get()
at MonAppli.Form1.ProcessExist()
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
Stéphane L.
Bonjour Bull (la société informatique?),
Personnellement je n'utilise que ces lignes, c'est tout.
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
Cordialement, Stéphane
"Bull" a écrit dans le message de news:
Bonjour,
J'ai une sub que j'appelle au lancement de mon appli pour vérifier si elle n'est pas déjà lancée :
Public Sub ProcessExist()
Dim Process As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Process")
Dim info As System.Management.ManagementObject
Dim stock As String
Dim vrs As Integer
For Each info In Process.Get
stock = info("Caption").ToString()
If stock = "monAppli.exe" Then
vrs = vrs + 1
If vrs > 1 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
End If
Next
End Sub
Jusqu'à présent elle fonctionnait très bien et là un utilisateur sous W98 2nd Edition (je ne sais pas s'il y a un rapport) a une erreur au niveau de cette sub :
System.Runtime.InteropServices.COMException (0x80040154): COM object with CLSID {4590F811-1D3A-11D0-891F-00AA004B2E24} is either not valid or not registered. at System.Management.ManagementScope.Initialize() at System.Management.ManagementObjectSearcher.Initialize() at System.Management.ManagementObjectSearcher.Get() at MonAppli.Form1.ProcessExist()
Quelqu'un peut-il m'aider ? Merci d'avance, Bull
Bonjour Bull (la société informatique?),
Personnellement je n'utilise que ces lignes, c'est tout.
If
UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName))
> 0 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
Cordialement,
Stéphane
"Bull" <bull219@wanadoo.fr> a écrit dans le message de news:
eJUVHfMpEHA.132@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'ai une sub que j'appelle au lancement de mon appli pour vérifier si elle
n'est pas déjà lancée :
Public Sub ProcessExist()
Dim Process As New System.Management.ManagementObjectSearcher("SELECT *
FROM Win32_Process")
Dim info As System.Management.ManagementObject
Dim stock As String
Dim vrs As Integer
For Each info In Process.Get
stock = info("Caption").ToString()
If stock = "monAppli.exe" Then
vrs = vrs + 1
If vrs > 1 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
End If
Next
End Sub
Jusqu'à présent elle fonctionnait très bien et là un utilisateur sous W98
2nd Edition (je ne sais pas s'il y a un rapport) a une erreur au niveau de
cette sub :
System.Runtime.InteropServices.COMException (0x80040154): COM object with
CLSID {4590F811-1D3A-11D0-891F-00AA004B2E24} is either not valid or not
registered.
at System.Management.ManagementScope.Initialize()
at System.Management.ManagementObjectSearcher.Initialize()
at System.Management.ManagementObjectSearcher.Get()
at MonAppli.Form1.ProcessExist()
Personnellement je n'utilise que ces lignes, c'est tout.
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
Cordialement, Stéphane
"Bull" a écrit dans le message de news:
Bonjour,
J'ai une sub que j'appelle au lancement de mon appli pour vérifier si elle n'est pas déjà lancée :
Public Sub ProcessExist()
Dim Process As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Process")
Dim info As System.Management.ManagementObject
Dim stock As String
Dim vrs As Integer
For Each info In Process.Get
stock = info("Caption").ToString()
If stock = "monAppli.exe" Then
vrs = vrs + 1
If vrs > 1 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
End If
Next
End Sub
Jusqu'à présent elle fonctionnait très bien et là un utilisateur sous W98 2nd Edition (je ne sais pas s'il y a un rapport) a une erreur au niveau de cette sub :
System.Runtime.InteropServices.COMException (0x80040154): COM object with CLSID {4590F811-1D3A-11D0-891F-00AA004B2E24} is either not valid or not registered. at System.Management.ManagementScope.Initialize() at System.Management.ManagementObjectSearcher.Initialize() at System.Management.ManagementObjectSearcher.Get() at MonAppli.Form1.ProcessExist()
Quelqu'un peut-il m'aider ? Merci d'avance, Bull
Bull
LOL non pas la socité informatique :)
Merci bcp, ça marche parfaitement avec ton code.
Cordialement, Bull
"Stéphane L." a écrit dans le message de news:
Bonjour Bull (la société informatique?),
Personnellement je n'utilise que ces lignes, c'est tout.
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
Cordialement, Stéphane
"Bull" a écrit dans le message de news:
Bonjour,
J'ai une sub que j'appelle au lancement de mon appli pour vérifier si elle n'est pas déjà lancée :
Public Sub ProcessExist()
Dim Process As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Process")
Dim info As System.Management.ManagementObject
Dim stock As String
Dim vrs As Integer
For Each info In Process.Get
stock = info("Caption").ToString()
If stock = "monAppli.exe" Then
vrs = vrs + 1
If vrs > 1 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
End If
Next
End Sub
Jusqu'à présent elle fonctionnait très bien et là un utilisateur sous W98 2nd Edition (je ne sais pas s'il y a un rapport) a une erreur au niveau de cette sub :
System.Runtime.InteropServices.COMException (0x80040154): COM object with CLSID {4590F811-1D3A-11D0-891F-00AA004B2E24} is either not valid or not registered. at System.Management.ManagementScope.Initialize() at System.Management.ManagementObjectSearcher.Initialize() at System.Management.ManagementObjectSearcher.Get() at MonAppli.Form1.ProcessExist()
Quelqu'un peut-il m'aider ? Merci d'avance, Bull
LOL non pas la socité informatique :)
Merci bcp, ça marche parfaitement avec ton code.
Cordialement,
Bull
"Stéphane L." <no@spam.fr> a écrit dans le message de news:
e9NP1kTpEHA.1160@tk2msftngp13.phx.gbl...
Bonjour Bull (la société informatique?),
Personnellement je n'utilise que ces lignes, c'est tout.
If
UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName))
> 0 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
Cordialement,
Stéphane
"Bull" <bull219@wanadoo.fr> a écrit dans le message de news:
eJUVHfMpEHA.132@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'ai une sub que j'appelle au lancement de mon appli pour vérifier si
elle n'est pas déjà lancée :
Public Sub ProcessExist()
Dim Process As New System.Management.ManagementObjectSearcher("SELECT *
FROM Win32_Process")
Dim info As System.Management.ManagementObject
Dim stock As String
Dim vrs As Integer
For Each info In Process.Get
stock = info("Caption").ToString()
If stock = "monAppli.exe" Then
vrs = vrs + 1
If vrs > 1 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
End If
Next
End Sub
Jusqu'à présent elle fonctionnait très bien et là un utilisateur sous W98
2nd Edition (je ne sais pas s'il y a un rapport) a une erreur au niveau
de cette sub :
System.Runtime.InteropServices.COMException (0x80040154): COM object with
CLSID {4590F811-1D3A-11D0-891F-00AA004B2E24} is either not valid or not
registered.
at System.Management.ManagementScope.Initialize()
at System.Management.ManagementObjectSearcher.Initialize()
at System.Management.ManagementObjectSearcher.Get()
at MonAppli.Form1.ProcessExist()
Personnellement je n'utilise que ces lignes, c'est tout.
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
Cordialement, Stéphane
"Bull" a écrit dans le message de news:
Bonjour,
J'ai une sub que j'appelle au lancement de mon appli pour vérifier si elle n'est pas déjà lancée :
Public Sub ProcessExist()
Dim Process As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Process")
Dim info As System.Management.ManagementObject
Dim stock As String
Dim vrs As Integer
For Each info In Process.Get
stock = info("Caption").ToString()
If stock = "monAppli.exe" Then
vrs = vrs + 1
If vrs > 1 Then
MessageBox.Show("l'appli est déjà lancée !")
End
End If
End If
Next
End Sub
Jusqu'à présent elle fonctionnait très bien et là un utilisateur sous W98 2nd Edition (je ne sais pas s'il y a un rapport) a une erreur au niveau de cette sub :
System.Runtime.InteropServices.COMException (0x80040154): COM object with CLSID {4590F811-1D3A-11D0-891F-00AA004B2E24} is either not valid or not registered. at System.Management.ManagementScope.Initialize() at System.Management.ManagementObjectSearcher.Initialize() at System.Management.ManagementObjectSearcher.Get() at MonAppli.Form1.ProcessExist()