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

Question

Posez votre question Signaler

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

js8bleu 576 Messages postés samedi 14 octobre 2006Date d'inscription 27 janvier 2014 Dernière intervention - 14 janv. 2011 à 16:11 - Dernière réponse : js8bleu 576 Messages postés samedi 14 octobre 2006Date d'inscription 27 janvier 2014 Dernière intervention

- 14 janv. 2011 à 17:49

Visual Basic 6 Posez votre question Signaler

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.

Afficher la suite

Votre réponse

Répondre au sujet

9 réponses

Signaler Commenter la réponse de scoval

scoval 11 Messages postés lundi 3 janvier 2011Date d'inscription 21 janvier 2011 Dernière intervention - 14 janv. 2011 à 16:26

0

Merci

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

Signaler Commenter la réponse de js8bleu

js8bleu 576 Messages postés samedi 14 octobre 2006Date d'inscription 27 janvier 2014 Dernière intervention - 14 janv. 2011 à 16:35

0

Merci

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.

Signaler Commenter la réponse de scoval

scoval 11 Messages postés lundi 3 janvier 2011Date d'inscription 21 janvier 2011 Dernière intervention - 14 janv. 2011 à 16:51

0

Merci

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

Signaler Commenter la réponse de scoval

scoval 11 Messages postés lundi 3 janvier 2011Date d'inscription 21 janvier 2011 Dernière intervention - 14 janv. 2011 à 16:57

0

Merci

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

Signaler Commenter la réponse de js8bleu

js8bleu 576 Messages postés samedi 14 octobre 2006Date d'inscription 27 janvier 2014 Dernière intervention - 14 janv. 2011 à 17:02

0

Merci

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.

Signaler Commenter la réponse de scoval

scoval 11 Messages postés lundi 3 janvier 2011Date d'inscription 21 janvier 2011 Dernière intervention - 14 janv. 2011 à 17:07

0

Merci

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

Signaler Commenter la réponse de js8bleu

js8bleu 576 Messages postés samedi 14 octobre 2006Date d'inscription 27 janvier 2014 Dernière intervention - 14 janv. 2011 à 17:16

0

Merci

je travaille avec VB 6.0

Signaler Commenter la réponse de scoval

scoval 11 Messages postés lundi 3 janvier 2011Date d'inscription 21 janvier 2011 Dernière intervention - 14 janv. 2011 à 17:21

0

Merci

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

Votre réponse

Répondre au sujet

Posez votre question

Accepted Answer

3

Merci

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.

Merci js8bleu 3

codes-sources a aidé 82 internautes ce mois-ci

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

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !