Discussion :

[jolona]

Bonjour

lorsque je veux lancer un logiciel via mon application, selon le logiciel, il ne s’exécute pas, par exemple si je lance le calc.exe, tout fonctionne mais si je lance un logiciel qui a un splash, bha la c'est mort.. j'ai l'impression que le logiciel dépend de mon application et attend une information, du coup rien ne se lance !!!

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    Dim myProcess As New Process()
    Private proc As Process
    Private processes() As Process
    Private procName As String
    Private Sub Run()
        procName = TextBox1.Text
        processes = Process.GetProcessesByName(procName)
        Try
            For Each proc In processes
                la = True
            Next
            If la = True Then
                End
            Else
1:
                myProcess.StartInfo.FileName = chemin & TextBox1.Text
                myProcess.StartInfo.CreateNoWindow = False
                myProcess.Start()
2:
                Shell(chemin & TextBox1.Text)
 
                la = True
            End If
        Catch ex As System.NullReferenceException
        End Try
    End Sub

j'utilise que le myProcess.Start() mais pour le teste j'ai essayé aussi le shell... et le résultat est identique

pouvez-vous m'aider merci

[ACIVE_CS]

Bonjour,

J'ai lu juste un morceau de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 For Each proc In processes
                la = True
            Next
            If la = True Then
                End
            Else

Qu'est ce que c'est ???
Une stratégie militaire?
- Pour chaque process dans les process la fin est proche,
- Si tu cherches autre chose c'est quand même la fin ???

Décrit exactement ce que tu veux faire et on pourra t'aider mais oublie ce code rapidement...

A+

[jolona]

je cherche à lancer un logiciel s'il n'est pas dans le proc et j'ai un timer qui execute ma sub, le ''la'' me permet de savoir s'il est actif ou pas... je fais peu etre pas tres bien mais ca fonctionne

[ACIVE_CS]

Re:

Pourquoi ne pas faire une petite fonction comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' EX : If EstEnCours("TonAppli") = False Then Process.Start("c:\ bla bla bla \TonAppli.exe")
        If EstEnCours("Calc") = False Then Process.Start("calc.exe")
    End Sub
 
    Private Function EstEnCours(ByVal ProcessusCherché As String)
        'Parcour des processus en cours pour vérifier si ProcessusCherché est en route
        Dim Trouvé As Boolean = False
        For Each Proc In Process.GetProcesses()
            If Not Proc.ProcessName = "" Then
                If Proc.ProcessName.ToLower.ToString.Contains(ProcessusCherché.ToLower) Then Trouvé = True
            End If
        Next
        Return Trouvé
        'S'il a été trouvé il renvoie 'Vrai' sionon 'False'
    End Function

A+

[jolona]

ca ne resoud pas mon problème

[ACIVE_CS]

Re
Connais-tu le chemin d'accès de l'application?
Connais-tu son nom de processus?
Si oui dis-nous exactement comment ils sont...

Désolé ma boule de cristal est tombée par terre et je n'arrive pas à deviner ce que tu as sur ton PC