Résolu Fenetre se ferme trop tôt

[chonos]

Bonjour,

J'ai le code ci-dessous qui fonction sans erreur, mais il affiche la femetre avec les infos mais il la ferme trop tot malgrés une commande Shell "pause"

J'ai passe en revue les option de la commande Shell, mais je n'est pas trouver !

Merci a+

[cpp]Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

Dim stAppName As String


Dim a$

a$ = "ipconfig "

stAppName = a$
Call Shell(stAppName, 1)
a$ = "pause"
Call Shell(stAppName, 6)


Exit_Commande6_Click:
Exit Sub
Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click
End Sub[/cpp]

 

[chonos]

J'ai tester "ipconfig | pause" avec l'interface CMD c'est ok

mais si en ligne 9 je place a$ ="ipconfig | pause" cela ne passe pas !

comme si le more n'étais pas reconue !

si qqu a une idée ?

 

[chonos]

Je vien de faire le test avec cela, mais c'est toujours pareil


[cpp]a$ = "pause" + Chr(124) + "ipconfig"[/cpp]

 

[chonos]

Même résultat avec l'inversion de "pause" et de "ipconfig"

 

[zeb]

Ohlala !

Alors, le pipe (|) est fait pour enchaîner la sortie d'un programme à l'entrée d'un autre. Pour lancer deux commandes en DOS, l'une après l'autre, on les met sur deux lignes différentes ou on les sépare par une perluète (&).

Pourquoi t'embêtes-tu avec tant de détour, de variable, de call, tous inutiles ?

Shell "cmd /c ipconfig & pause", vbNormalFocus

Tu sais, il y a d'autre moyen d'obtenir en VB la config IP de ta machine

 

[chonos]

[:jap]

Merci Zeb

 

[zeb]

Meilleure réponse sélectionnée par zeb.