Salut, j'ai une application qui ne marche quand ligne de commande. Mon but
serait de pouvoir faire un interface simple qui masquerait le mode ligne de
commande pour être sous forme de formulaire. Pour l'instant, je suis capable
d'envoyer une command avec des arguments mais une fois ceci fait, je ne suis
pas capable de récuper le résultat, c'st à dire, tout ce qui apparait comme
texte à la suite de ma command. . Autrement dit, je voudrais quasiment
reproduire le command line sous forme windows et que personne ne s'en rendre
compte puisque celui-ci serait controlé en arrière plan et rendrait ainsi la
vie plus facile à l'utilisateur.
Process.Start et il doit être possible de lire la sortie standard pour récupérer les résultats...
--
Patrice
"David Bouchard" a écrit dans le message de news:
Salut, j'ai une application qui ne marche quand ligne de commande. Mon but serait de pouvoir faire un interface simple qui masquerait le mode ligne
de
commande pour être sous forme de formulaire. Pour l'instant, je suis
capable
d'envoyer une command avec des arguments mais une fois ceci fait, je ne
suis
pas capable de récuper le résultat, c'st à dire, tout ce qui apparait
comme
texte à la suite de ma command. . Autrement dit, je voudrais quasiment reproduire le command line sous forme windows et que personne ne s'en
rendre
compte puisque celui-ci serait controlé en arrière plan et rendrait ainsi
la
vie plus facile à l'utilisateur.
Merci
David
TroXsA
Public Sub Dir() Dim P As New Process With P With .StartInfo .UseShellExecute = False .RedirectStandardOutput = True .FileName = Environ("comspec") .CreateNoWindow = True .Arguments = "/c dir *.*" End With .Start() Dim Sortie As string Sortie = .StandardOutput.ReadToEnd() End With End Sub
msgbox (Sortie)
Public Sub Dir()
Dim P As New Process
With P
With .StartInfo
.UseShellExecute = False
.RedirectStandardOutput = True
.FileName = Environ("comspec")
.CreateNoWindow = True
.Arguments = "/c dir *.*"
End With
.Start()
Dim Sortie As string
Sortie = .StandardOutput.ReadToEnd()
End With
End Sub
Public Sub Dir() Dim P As New Process With P With .StartInfo .UseShellExecute = False .RedirectStandardOutput = True .FileName = Environ("comspec") .CreateNoWindow = True .Arguments = "/c dir *.*" End With .Start() Dim Sortie As string Sortie = .StandardOutput.ReadToEnd() End With End Sub
msgbox (Sortie)
David Bouchard
Merci pour vos réponse, en faite, ceci fonctionne très bien mais mon problème se situe au moment que l'application me pose une question et que je dois lui répondre. Example, j'exécuterait la command "format c:" et la, il faudrait que je réponde automatiquement via le code à la question qui me demande si je suis sur de vouloir formatter.
Merci
"TroXsA" a écrit dans le message de news: dct6h5$p9t$
Public Sub Dir() Dim P As New Process With P With .StartInfo .UseShellExecute = False .RedirectStandardOutput = True .FileName = Environ("comspec") .CreateNoWindow = True .Arguments = "/c dir *.*" End With .Start() Dim Sortie As string Sortie = .StandardOutput.ReadToEnd() End With End Sub
msgbox (Sortie)
Merci pour vos réponse, en faite, ceci fonctionne très bien mais mon
problème se situe au moment que l'application me pose une question et que je
dois lui répondre. Example, j'exécuterait la command "format c:" et la, il
faudrait que je réponde automatiquement via le code à la question qui me
demande si je suis sur de vouloir formatter.
Merci
"TroXsA" <Shagn@Shagn.Shagn> a écrit dans le message de news:
dct6h5$p9t$1@s1.news.oleane.net...
Public Sub Dir()
Dim P As New Process
With P
With .StartInfo
.UseShellExecute = False
.RedirectStandardOutput = True
.FileName = Environ("comspec")
.CreateNoWindow = True
.Arguments = "/c dir *.*"
End With
.Start()
Dim Sortie As string
Sortie = .StandardOutput.ReadToEnd()
End With
End Sub
Merci pour vos réponse, en faite, ceci fonctionne très bien mais mon problème se situe au moment que l'application me pose une question et que je dois lui répondre. Example, j'exécuterait la command "format c:" et la, il faudrait que je réponde automatiquement via le code à la question qui me demande si je suis sur de vouloir formatter.
Merci
"TroXsA" a écrit dans le message de news: dct6h5$p9t$
Public Sub Dir() Dim P As New Process With P With .StartInfo .UseShellExecute = False .RedirectStandardOutput = True .FileName = Environ("comspec") .CreateNoWindow = True .Arguments = "/c dir *.*" End With .Start() Dim Sortie As string Sortie = .StandardOutput.ReadToEnd() End With End Sub
msgbox (Sortie)
TroXsA
Tu as des commutateurs a la commande Format (/?) ouvre une console MS-DOS et Tape Format /? tu veras toutes les options lier a la commande
Tu as des commutateurs a la commande Format (/?)
ouvre une console MS-DOS et Tape Format /? tu veras toutes les options lier
a la commande
