Discussion :

[excalybur]

Bonjour,

Je lance un fichier exécutable (notepad.exe pour exemple) depuis le Form.

Par défaut il s'affiche en format minimized (1/4 de l'écran) à un emplacement aléatoire.

Je dimensionne et positionne la fenêtre du process en cours avec :

Code :

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

SetWindowPos(myProcess1.MainWindowHandle, IntPtr.Zero, 0, 0, 800, 1000, 0)

Mon programme :

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
 Using myProcess1 As New Process()
 
 
                                            myProcess1.StartInfo.FileName = "C:\notepad.exe"   'charge le processus 
 
                                            myProcess1.Start() 'lance le process
 
                                            Thread.Sleep(100) 'laisse le temps au pocess de se lancer
 
                                            SetWindowPos(myProcess1.MainWindowHandle, IntPtr.Zero, 0, 0, 800, 1000, 0)  'dimensionner la fenêtre process 
 
                                            SetWindowText(myProcess1.MainWindowHandle, "TITRE NUMERO UN")  'change le titre de la fenêtre process
 
                                            'fermer la fenêtre en fin de processus :
                                            myProcess1.WaitForExit()  'attend qu'il soit terminé avant d'aller plus loin
                                            myProcess1.Close()  'ferme le process
                                        End Using

On note que

Code :

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

Thread.Sleep(100)

laisse le temps au pocess de se lancer sauf que dans certains cas (mise à jour du PC, etc.) ce délai est trop court et le process démarre définitivement dans le format aléatoire vu plus haut.

Si j'augmente la durée de Thread.Sleep l'écran va flasher une fraction de seconde sur le format aléatoire avant de passer au format imposé. => pas terrible !

Bien sur on ne peut pas mettre

Code :

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

SetWindowPos(myProcess1.MainWindowHandle, IntPtr.Zero, 0, 0, 800, 1000, 0)

avant myProcess1.Start

Ma question :

Comment synchroniser SetWindowPos avec myProcess1.Start pour éviter les problèmes évoqués ci-dessus. Je n'ai rien trouvé sur les rares sujets traitant du sujet

En vous remerciant pour votre aide.

Bien à vous

[MABROUKI]

bonjour

Code exemple qui fera peut être ton bonheur:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Imports System.Runtime.InteropServices
Public Class Form1
    Private myProcess As Process
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Dim pi As New ProcessStartInfo
        'pi.FileName = "notepad"
        'myProcess = New Process
        'myProcess.StartInfo = pi
        'myProcess.Start()
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        StartProcess()
        If myProcess Is Nothing Then Return
        myProcess.WaitForInputIdle()
        Dim handle As IntPtr = myProcess.MainWindowHandle
        If handle <> IntPtr.Zero Then
            SetWindowPos(handle, 0, 150, 0, 400, 250, 0)
        End If
 
 
    End Sub
    Private Sub StartProcess()
        Dim pi As New ProcessStartInfo
        pi.FileName = "notepad"
        myProcess = New Process
        myProcess.StartInfo = pi
        myProcess.Start()
 
    End Sub
  Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If myProcess IsNot Nothing Then
            myProcess.WaitForExit()
            myProcess.CloseMainWindow()
        End If
    End Sub
 
    <DllImport("user32.dll", EntryPoint:="SetWindowPos")>
    Public Shared Function SetWindowPos(HWND As IntPtr,
                                        hWndInsertAfter As IntPtr,
                                        Xpos As Integer, Ypos As Integer, xSize As Integer, ySize As Integer, wFlags As Integer) As IntPtr
    End Function
 
 
End Class

bon code ...

[excalybur]

Merci pour la réponse,

J'étudie la chose car apparemment cela ne marche pas avec tous les exe.

Je reviens vers vous après mon analyse.

[excalybur]

Bonsoir,

Excusez-moi pour ce retard j'ai dû régler des urgences en ces temps compliqué.

Pour revenir au sujet de la discussion, j'ai essayé le code proposé et il fonctionne parfaitement avec Notepad.exe

Par contre en remplaçant notepad.exe avec mon exe

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
27
28
29
30
31
32
33
34
35
36
37
Imports System.Runtime.InteropServices
Imports System.Threading
 
Public Class Form1
    Private myProcess As Process
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 
        Dim pi As New ProcessStartInfo
        '  pi.FileName = "notepad"
        pi.FileName = "d:\sbwin\py483USR\pywin64.exe"
        myProcess = New Process
        myProcess.StartInfo = pi
        myProcess.Start()
 
        If myProcess Is Nothing Then Return
        myProcess.WaitForInputIdle()
        Dim handle As IntPtr = myProcess.MainWindowHandle
        If handle <> IntPtr.Zero Then
            SetWindowPos(handle, 0, 150, 0, 600, 250, 0)
        End If
    End Sub
 
    Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        If myProcess IsNot Nothing Then
            myProcess.WaitForExit()
            myProcess.CloseMainWindow()
        End If
    End Sub
 
    <DllImport("user32.dll", EntryPoint:="SetWindowPos")>
    Public Shared Function SetWindowPos(HWND As IntPtr,
                                        hWndInsertAfter As IntPtr,
                                        Xpos As Integer, Ypos As Integer, xSize As Integer, ySize As Integer, wFlags As Integer) As IntPtr
    End Function
 
End Class

j'obtiens une erreur à la ligne

Code :

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

myProcess.WaitForInputIdle()

qui précise : "Echec de WaitForInputIdle. Cet échec est peut-être dû à l'absence d'interface graphique pour le processus"

Cette curieuse erreur n'a pas de sens (pour l'interface graphique) à mon avis car avec la version que je propose dans le topic initial mon EXE fonctionne nickel sauf pour ce qui est du problème d'affichage parfois aléatoire.

En fait la fenêtre minimized et à une position aléatoire de mon application apparait bien et de plus fonctionne bien. Sauf que la fenêtre n'a pas pris la bonne taille. Il y a un autre problème avec SetWindowsPos. (Problème inexistant dans mon application initiale).

Je pense que le problème est dû à la configuration de certains EXE. Il manque peut être un Import et une précision du WaitForInputIdle ?

J'ai passé beaucoup de temps à essayer de trouver une explication et là j'avoue je cale !

Si quelqu'un à une idée car on est pas loin d'une application utile pour tous les EXE.

A vous lire

[MABROUKI]

bonjour

Je pense qu'il faut sortir le code de positionnement dans un second button:
code vb.net modifie:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If myProcess IsNot Nothing Then
            myProcess.WaitForInputIdle()
            Dim handle As IntPtr = myProcess.MainWindowHandle
            If handle <> IntPtr.Zero Then
                Dim retval = SetWindowPos(handle, 0, 400, 400, 100, 100, 0)
            End If
        End If
    End Sub

[excalybur]

Bonsoir,

Merci pour ta réponse. Je ne vois pas pourquoi avec un deuxième bouton cela devrait fonctionner car je ne comprends pas la logique. A moins que tu ne veuille donner du temps à mon exe. c'est vrai qu'il met une bonne seconde pour s'afficher.

En rendant ton sub public et en le testant avec un deuxième bouton j'ai toujours le retour de la même erreur.

Précision cet exe a été écrit en langage C sous Linux mais pour application Windows 64.

Il serait intéressant de faire le test avec d'autre exe pour console.

Je continu à creuser !

[Edit - complément]

En recherchant sur les sites anglophones, le problème est récurant. Si notepad marche il n'en est rien pour cmd.exe

Avec le test avec cmd.exe j'obtiens le même message d'erreur que pour mon programme pywin64

Il semblerait (version du topic pour VB de 2014 ) qu'il s'agirait d'un problème lié aux UI sans autres explications.

Si vous avez une idée ?

A vous lire.

Bien à vous

[excalybur]

bonjour

Voici la solution ! Après une longue recherche infructueuse autour de la planète j'ai pris le problème à l'envers et j'ai supprimer le WaitForExit (un vrai poison dans ce cas) du ou des Process et remplacer par un test astucieux.

Il faut régler la valeur de Thread.sleep(N) en fonction du temps de démarrage de vos EXE. Dans mon exemple j'ai mis N=100 ms tout dépend de votre PC. Une optimisation du sleep peut être prévu en automatisant le test qui vérifie si le Process est ouvert (automatisation non développé dans l'exemple). Résultat les fenêtres des EXE s'ouvrent correctement.

Cerise sur le gâteau : L'idée est de pouvoir arrêter des process EXE autonomes pour X raisons depuis votre application sous Windows.

Pour essayer le programme, ci-dessous ouvrir un Form avec 3 boutons. Les boutons 1 et 2 ouvrent chacun un programme de votre choix (ça peut même être le même ouvert deux fois) par exemple CMD et Notepad. Dans mon exemple ils prennent le nom des process pywin1 et pywin2. Le bouton 3 sert à 'tuer' le process en route en éludant toutes les configurations indésirables possibles comme Process is nothing ou Proces.HasExited. Admirez l'astuce pour passer à la ligne suivante si pywin1 hasExited :

Code :

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

1
2
 
If pywin1.HasExited() Then Else pywin1.Kill()

!

Le code a utiliser :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
Option Explicit On
 
Imports System.Threading
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Threading.Tasks
 
Public Class Form1
 
    <DllImport("user32.dll")>
    Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    End Function 'pour positionner la fenêtre de pywin64.exe
    <DllImport("user32.dll")>
    Shared Function SetWindowText(ByVal hwnd As IntPtr, ByVal windowName As String) As Boolean
    End Function 'pour changer le titre de la fenêtre de pywin64.exe
 
    Public pInfoPy As New ProcessStartInfo()
    Public pywin1 As Process
    Public pywin2 As Process
 
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        pInfoPy.FileName = "C:\Windows\System32\cmd.exe"
        pywin1 = Process.Start(pInfoPy)        'lance le process pywin1
 
        Thread.Sleep(100) 'tempo 100 ms
        SetWindowPos(pywin1.MainWindowHandle, IntPtr.Zero, 600, 0, 600, 1000, 0) 'Positionne et dimensionne la fenêtre du process actif
 
    End Sub
 
 
 
    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        pInfoPy.FileName = "C:\Windows\System32\notepad.exe"
        pywin2 = Process.Start(pInfoPy)        'lance le process pywin2
 
        Thread.Sleep(100) 'tempo 100 ms
        SetWindowPos(pywin2.MainWindowHandle, IntPtr.Zero, 1250, 0, 650, 1000, 0) 'Positionne et dimensionne la fenêtre du process actif
 
    End Sub
 
    Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 
        If pywin1 Is Nothing And pywin2 Is Nothing Then Exit Sub
 
        If pywin1 Is Nothing Then pywin2.Kill() : Exit Sub
        If pywin2 Is Nothing Then pywin1.Kill() : Exit Sub
 
        If pywin1.HasExited() Then Else pywin1.Kill()
        If pywin2.HasExited() Then Exit Sub Else pywin2.Kill() 
 
    End Sub
 
End Class

Certes cet exemple ne permet pas de voir toutes les possibilités de gestion d'arrêt d'un programme 100% autonome que l'on ne peut plus arrêter normalement une fois lancé. Il est préférable de placer deux exe qui une fois qu'ils ont reçu les informations via pInfoPy.Arguments = 'paramètres à fournir à l'EXE' exécutent leurs tâches et s'arrêtent automatiquement en restituant un résultat dans un fichier.
Sel bémol : Si une interruption se produit suite au changement d'état du Process pendant le test (pendant une microseconde voir moins ?) comment gérer l'éventuel erreur qui va bloquer le système? Je n'ai jamais eu le cas jusqu'à présent. Il ne se produira peux être jamais ? Si c'est cela pourquoi ?

J'espère que ce topic vous rendra bien service.

Bien à vous