Empêcher d'exécuter 2 fois la même application!Résolu

Question

Bonjour à tous,

j'ai remarqué que souvent les utilisateurs lance une application sans avoir vérifié si elle n'avait pas déjà été préalablement lancée. J'aimerai éviter cela. En supposant que l'exe de mon application s'appelle monlog.exe, savez-vous comment puis-je faire ce contrôle s'il vous plaît? 

Merci d'avance.

Cordialement.

js8bleu · Accepted Answer

c'est pas grave. J'ai testé ce code qui marche :

    If App.PrevInstance Then
        MsgBox "Désolé, une instance est déjà active" & vbCrLf & "Le programme va s'arréter"
        End
    End If


Merci d'avance.

Cordialement.

scoval · Answer

bonjour 

je pense que tu devrai contrôler les processus Windows et vérifier qu'il n'est pas déjà présent a l'ouverture de ton application 
Après avoir placer ce contrôle dans ton code tu peux fermer ou continuer l'application. 

cordialement 

_____________________________________________________________________________

Je suis un petit débutant qui deviendra bientôt un grand avertis

js8bleu · Answer

Bonjour et Merci scoval pour ton intérêt. C'est ce à quoi je pensais mais comment le faire? Merci d'avance pour ton aide.

Cordialement.

scoval · Answer

je pense que ce bout de code devrai suffire 

 Dim Process2() As Process = Process.GetProcesses()

        For j = 0 To Process2.GetUpperBound(0)
            If Process2(j).ProcessName = "msmsgs" Then
                MsgBox("pas la")
            Else
                MsgBox("pas la")
            End If
        Next j 

soit tu exécute comme cela ou alors tu inverse la sélection avec un "<>" a la place du "="

j'espère que ca te conviens 


_____________________________________________________________________________

Je suis un petit débutant qui deviendra bientôt un grand avertis

scoval · Answer

petite précision 

 If Process2(j).ProcessName = "msmsgs" Then

 
est un processus que j'ai pris au hasard pour tester avant de t'envoyer le code  tu doit remplacer par le nom de ton application 

(désoler si cette précision te donne l'impression que je te prend pour un idiot mais c'est le contraire je suis l'idiot qui à pas expliquer son code avant d'envoyer )
_____________________________________________________________________________

Je suis un petit débutant qui deviendra bientôt un grand avertis

js8bleu · Answer

Ce code est signalé en rouge, et le signe "=" est surligné. Il me semble qu'il manque quelque chose dans la déclaration :

Dim Process2() As Process = Process.GetProcesses()


Le message d'erreur est "Erreur de compilation : Attendu : fin d'instruction".

Merci d'avance.

Cordialement.

scoval · Answer

sous quel VB travail tu ? 

moi avec visual basic 2008 express il ne me signal  rien comme erreur et je n'ai pas importé de bibli dans mon nouveau projet. 

sinon je ne connais pas d'autre formes pour cette instruction je débute sous VB et je ne connais que les bases du .net 

cordialement 


_____________________________________________________________________________

Je suis un petit débutant qui deviendra bientôt un grand avertis

js8bleu · Answer

je travaille avec VB 6.0

scoval · Answer

je suis désoler mais je pense pas pouvoir t'aider peut être quelqu'un d'autre le pourra mais sinon essaie en 2 étape 


Dim Process2() As Process
Process2 = Process.GetProcesses()


peut être que vb6 ne supporte pas l'affectation en même temps que la déclaration 

en espérant que tu trouvera 

cordialement 


_____________________________________________________________________________

Je suis un petit débutant qui deviendra bientôt un grand avertis

Empêcher d'exécuter 2 fois la même application!

9 réponses

Votre réponse