Visual studio 2008 Résolu/Fermé

Question

Bonjour,
J'aimerais voir ce qui ce marque dans la console dans un TextBox en fessant 
Dim RetVal
         RetVal = Shell("C:\WINDOWS\system32\cmd.exe /c ping 192.168.67.13 & pause")

J'ai essayer:

         'Write(RetVal(TextBox1.Text))
Et des million de truc mais je ne trouve pas. pouvez vous m'aidez ?
Merci. =)

jboss38 · Answer

jai besoin d'aide.

Utilisateur anonyme · Answer

bonjour,
ta question est un peu vague, si tu detaille un peu plus...

jboss38 · Answer

Ba quand on fais ping XXX.XXX.XXX.XXX ya par exemple sa qui s'affiche dans la cmd:

Je fais ping dans la cmd avec sa:

Dim RetVal 
RetVal = Shell("C:\WINDOWS\system32\cmd.exe /c ping 192.168.67.13 & pause") 

et sa donne sa:

Envoi d'une requête 'Ping'  192.168.67.13 avec 32 octets de données :
Réponse de 192.168.67.13 : octets=32 temps=123 ms TTL=64
Réponse de 192.168.67.13 : octets=32 temps=3 ms TTL=64
Réponse de 192.168.67.13 : octets=32 temps=1 ms TTL=64
Réponse de 192.168.67.13 : octets=32 temps=2 ms TTL=64

Statistiques Ping pour 192.168.67.13:
    Paquets : envoyés = 4, reçus = 4, perdus = 0 (perte 0%),
Durée approximative des boucles en millisecondes :
    Minimum = 1ms, Maximum = 123ms, Moyenne = 32ms
Appuyez sur une touche pour continuer...

je veux que sa s'affiche dans ma Textbox1 en text voila =D

Utilisateur anonyme · Answer

tu sais, pour faire un ping ou pour avoir de tel infos t'es pas obligé de passer par cmd!!!!!!!!

jboss38 · Answer

Merci mais sa ne repond pas a ma question =(

jboss38 · Answer

Tu peux pas m'aidez ? :) 
J'ai vu tes message postez tu t'y connais en programmation du devrais je pense savoir faire sa ? non ?

scriptiz · Answer

public void doCmd() 
        { 
            string commandLine = "ping 192.168.67.13"; 
            ProcessStartInfo PSI = new ProcessStartInfo("cmd.exe"); 
            PSI.RedirectStandardInput = true; 
            PSI.RedirectStandardOutput = true; 
            PSI.RedirectStandardError = true; 
            PSI.UseShellExecute = false; 
            Process p = Process.Start(PSI); 
            System.IO.StreamWriter SW = p.StandardInput; 
            System.IO.StreamReader SR = p.StandardOutput; 
            SW.WriteLine(commandLine); 
            SW.Close(); 
        }

Avec ce bout de code ci, tu auras dans SR (le StreamReader), le retour de la console. 

Ok? 
"The most successful method of programming is to begin a program as simply as possible, test it, and then add to the program until it performs the required job." -- PDP8 handbook, Pg 9-64

Utilisateur anonyme · Answer

"Nan sa marche pas :/ "
il t'a donner une piste, un peu d'effort et tu arriveras...

Utilisateur anonyme · Answer

re,
ok, je crois tous qu'il te reste à faire c'est traduire en vb8
ca donne qqc comme ca :

Imports System.Diagnostics
Imports System.ComponentModel

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim startinfos As New ProcessStartInfo("cmd.exe")
        startinfos.UseShellExecute = False
        'startinfo.StandardOutputEncoding = Encoding.GetEncoding(850)
        startinfos.RedirectStandardOutput = True
        startinfos.CreateNoWindow = True
        Dim proc As Process = Process.Start(startinfos)
        startinfos.Arguments = "ping 127.0.0.1"
        'attendre la fin de la commande
        proc.WaitForExit()
        ' récupérer la sortie standard
        TextBox1.Text = proc.StandardOutput.ReadToEnd()

    End Sub
End Class

pour plus d'infos https://docs.microsoft.com/fr-fr/dotnet/api/system.diagnostics.processstartinfo?redirectedfrom=MSDN&view=netframework-4.8

bonne chance

Visual studio 2008

9 réponses

Discussions similaires