Comment réactiver un form après l'execution d'un programe lancer via Shell

Question

Bonjour a tous, voila mon probl&#232;me.

J&#146;essaye de mettre au point un petit programme de connexion VPN et connexion de
disque r&#233;seaux pour facilit&#233; la t&#226;che des utilisateurs distant. Mon programme
fonctionne mais je voudrais l'am&#233;liorer encore et mon souci c'est qu'apr&#232;s le
lancement et l'ex&#233;cution d'un programme tiers la fen&#234;tre ne revient pas active.
Je vous livre mon code si vous avez des id&#233;es pour l'am&#233;liorer je serais
preneur.



--------

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("C:\Program Files\CheckPoint\SecuRemote\bin\ConnSHApp.exe")
        Shell("net use * /d /y", vbHide)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell("net use t: \Serv\partage-1 pass /u:domaine\user /persistent:no", vbHide)
        Shell("net use t: \Serv\partage-2 pass /u:domaine\user /persistent:no", vbHide)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Shell("C:\Program Files\CheckPoint\SecuRemote\bin\ConnSHApp.exe")
        Shell("net use * /d /y", vbHide)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()
    End Sub

End Class

Mindiell · Answer

apr&#232;s tes lignes Shell,
place un "Me.focus" pour redonner le focus a la fenetre, non ?

Mindiell Software

crenaud76 · Answer

Attention &#224; deux ou trois petites choses !
1- Shell() est asynchrone, et va donc rendre la main &#224; ton code VB d&#232;s qu'il aura lancer la commande que tu lui as indiqu&#233;, pas quand celle-ci sera fini !!
2- Si tu veux une version synchrone de Shell() j'ai une source qui te d&#233;pannera.
3- Il serait bon d'utiliser les API plutot que de faire des "Net Use" via un appel &#224; Shell(). J'ai aussi une source qui t'aidera &#224; le faire.
4- Renommer les controles est plus agr&#233;able que de trouver des button1, button2, button3, .. button102354 dans le code

Christophe R

Jeb_0 · Answer

Merci pour ces r&#233;ponces, j'ai pas encore u le temps de tester, mais je le ferais d&#232;s que possible.

@[../auteurdetail.aspx?ID=143123 crenaud76] j'ai une tr&#232;s petite connaissance de VB car je d&#233;bute, donc je comprends pas tr&#232;s bien comment int&#233;grer certainnne fonction fonction dans le code, par conttre je suis tous a fait d'accord sur le fait de renomer les boutons pour une plus grande clart&#233;. Je ne sais pas si tu pourrait me faire le code &#224; ta mani&#232;re ce qui me permettrais de comparer.

Comment réactiver un form après l'execution d'un programe lancer via Shell

3 réponses

Discussions similaires