recuperer le resultas afficher par linvite de commandeRésolu

Question

salut tous le monde j'aimerai un coup de main si c'est possible merci de m'aider 
bien je veux créés une invite de commande et recuperer le résultas afficher sur un textbox voici mon code 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ret = Shell(Text1.Text, vbMinimizedNoFocus)
Text2.Text = ret  // ici il ne recupère que le num de la commande par exemple 600 est le resultas d'un ping 127.0.0.1 
End If
End Sub
salut ca roule

liehuos001 · Accepted Answer

bon merci pour l'aide mais je sais comment ecrire plusieur commande avec une pipe |  et ma petite application peut ouvrir un fichier ou un programme c'est simple il nya que ecrire  la commande "par exemple notepad.exe" et elle s'ouvre ce que je veut en réaliter c'est que je recupère le resultas d'un ping 127.0.0.1 que ca s'affiche sur le textbox 
|                                                       ping 127.0.0.1                            |  <-- textbox1
---------------------------------------------------------------------- |


Envoi d'une requête 'ping' sur 127.0.0.1 avec 32 octets de données :   |
Réponse de 127.0.0.1 : octets=32 temps<1ms TTL=128                    |
Réponse de 127.0.0.1 : octets=32 temps<1ms TTL=128                    |<---- textbox2
Réponse de 127.0.0.1 : octets=32 temps<1ms TTL=128                    |
Réponse de 127.0.0.1 : octets=32 temps<1ms TTL=128                    |
Statistiques Ping pour 127.0.0.1:                                                         |Paquets : envoyés 4, reçus 4, perdus = 0 (perte 0%),                    |
Durée approximative des boucles en millisecondes :                             |    Minimum 0ms, Maximum 0ms, Moyenne = 0ms                       |
------------------------------------------------------------------------




salut ca roule

cs_Jack · Answer

Salut
Tu veux récupérer ce que renvoie le programme DOS que tu lances avec Shell ?
Cherche "DOS PIPE" dans la recherche des codes en excluant .Net, la solution est là.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Renfield · Answer

yep... te brancher a la standard output, définissable quand tu fais appel a un ShellExecuteEx

Renfield · Answer

c'est pour un Ping ?

http://www.vbfrance.com/codes/PING-VB-CINQ-FACONS-PROCEDER_36588.aspx

liehuos001 · Answer

merci bien j'ai trouvé la solution dans lexemple WShellPing merci une fois encore

salut ca roule

Recuperer le resultas afficher par linvite de commande

5 réponses

Votre réponse

Discussions similaires