Discussion :

[TekP@f]

Salut,

J'essaie désespérément d'éxécuter un programme à partir d'un service windows que j'ai créé.

Peu importe le programme, j'ai l'impression que rien ne se passe. J'ai fait plusieurs tentatives. Voici le source :

Code :

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

1
2
3
4
5
 
Dim p As New Process
            Dim pi As New ProcessStartInfo("Notepad.Exe")
            p.StartInfo = pi
            p.Start()

Code :

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

1
2
3
 
Dim ret
            ret = Shell("C:\Projects\P2W\Install\SmarTouch.exe", vbNormalFocus)

Code :

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

1
2
3
4
5
6
7
 
Dim proc1 As Process = New Process()
            Dim psi As ProcessStartInfo = New ProcessStartInfo()
            psi.UseShellExecute = False
            psi.RedirectStandardError = True
            psi.FileName = "C:\Projects\P2W\Install\SmarTouch.exe"
            proc1 = Process.Start(psi)

Code :

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

1
2
3
4
5
6
 
Dim startInfo As New ProcessStartInfo("IExplore.exe")
            startInfo.WindowStyle = ProcessWindowStyle.Minimized
            Process.Start(startInfo)
            startInfo.Arguments = "www.northwindtraders.com"
            Process.Start(startInfo)

J'ai mis des traces avant et après chaque appel, je les retrouve bien. Donc on passe bien dans le code.
Je n'ai aucune erreur de compil, rien du tout pour tracer.

Qq'un aurait une piste ?

Merci

[Pol63]

un service ne peut en théorie pas démarrer d'applications qui s'affichent à l'écran, ou alors elles se lancent peut etre mais ne s'affichent pas


tente de cocher "autoriser les interractions avec le bureau" dans les paramètres windows pour ce service

[tomlev]

Aussi, n'oublie pas que le service s'exécute avec un compte Windows spécifique, qui n'est pas celui de l'utilisateur "humain"

[TekP@f]

Salut,

Merci pour l'info, je ne connaissais pas. Ca a bien réglé le problème. Mais maintenant, je suis face à un nouveau problème : comment automatiser la sélection de cette option dans le code VB du service ?

J'ai bien vu qq liens :
http://www.developpez.net/forums/d20...eragir-bureau/
http://www.developpez.net/forums/d32...csharp-vb-net/

Que j'ai appliqué. Voilà 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
 
    Public Sub New()
        MyBase.New()
 
        'This call is required by the Component Designer.
        InitializeComponent()
 
        Dim ckey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Services\MonService\", True)
 
        If Not ckey Is Nothing Then
            If Not ckey.GetValue("Type") Is Nothing Then
                ckey.SetValue("Type", 272)
            End If
        End If
 
 
 
    End Sub

Quand je mets ce code dans la classe du service lui-même, la clé est bien mise à jour mais l'interface du programme ne se voit pas pour autant. Je me suis dis que le service n'arrivait pas à gérer la modification de cette option en live.

Quand je mets ce code dans l'installeur du service (ce qui est préconisé), la clé n'est pas mise à jour. Je me suis dit que la clé "MonService" ne devait pas encore être créée, du coup, j'ai placé le code dans l'AfterInstall, même résultat. La clé n'est pas mise à jour.

Pourtant, quand je lis les posts, c'est bien la solution. Qq'un aurait une idée ?

[TekP@f]

Je viens d'ajouter le code de mise à jour de la clé de registre dans la méthode Finalize, ça a bien marché. Puis quand je regarde l'option "Autoriser le service à interagir ...", elle est bien cochée.

Par contre, quand je démarre le service, même problème, le lancement est masqué.

Si je vais des les options, que je décoche et recoche l'option, là le lancement du programme se fait bien au premier plan.

J'ai vérifié la base de registre, rien n'a bougé. Il y autre chose à faire, mais je ne vois pas quoi.

[TekP@f]

Salut,

Après quelques recherches, j'ai pu enfin trouvé une solution.

La solution la plus courante et la plus connue sur le web est la suivante :

Code :

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

1
2
3
4
5
6
 
If Not ckey Is Nothing Then
            If Not ckey.GetValue("Type") Is Nothing Then
                ckey.SetValue("Type", 272)
            End If
        End If

Seulement, chez moi, ça ne fonctionne pas. Il s'agirait d'un bug sur certains framework. Il faut donc privilégier une autre méthode, ce qui n'est pas du luxe car elle est plus propre.

olsimare avait déjà fait le taf, je n'ai eu qu'à copier :

http://www.developpez.net/forums/d31...-infos-access/