Sujet Précédent Sujet Suivant

Visual studio 2008

Résolu/Fermé
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 - 23 mars 2010 à 10:24
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 - 25 mars 2010 à 10:20
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. =)
A voir également:

9 réponses

Réponse 1 / 9
Utilisateur anonyme
24 mars 2010 à 21:29
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
1
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
25 mars 2010 à 08:26
Merci beaucoup !
Sa m'affiche que sa:
Microsoft Windows [version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation. Tous droits r'serv's.

D:\Documents\Visual Studio 2008\Projects\LM50-App-Beta\LM50-App-Beta\bin\Debug>

Mais c'est un debut donc youpi !! Je vais voir poourquoi la suite ne s'affiche pas..
0
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
Modifié par jboss38 le 25/03/2010 à 10:20
Merci j'ai réussi:

TextBox1.Text &= ("Testing ping...") & vbCrLf
TextBox1.Text &= (New String("-", 40)) & vbCrLf
System.Threading.Thread.Sleep(TimeSpan.FromSeconds(1))
Dim startinfos As New ProcessStartInfo("cmd.exe", "/c ping 192.168.67.13")
startinfos.UseShellExecute = False
'startinfo.StandardOutputEncoding = Encoding.GetEncoding(850)
startinfos.RedirectStandardOutput = True
startinfos.CreateNoWindow = True
Dim proc As Process = Process.Start(startinfos)
'attendre la fin de la commande
proc.WaitForExit()
' récupérer la sortie standard
TextBox1.Text &= proc.StandardOutput.ReadToEnd() & vbCrLf
0
Réponse 2 / 9
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
23 mars 2010 à 13:57
jai besoin d'aide.
0
Réponse 3 / 9
Utilisateur anonyme
Modifié par Lux Fero le 23/03/2010 à 14:11
bonjour,
ta question est un peu vague, si tu detaille un peu plus...
0
Réponse 4 / 9
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
23 mars 2010 à 14:25
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 9
Utilisateur anonyme
Modifié par Lux Fero le 23/03/2010 à 14:39
tu sais, pour faire un ping ou pour avoir de tel infos t'es pas obligé de passer par cmd!!!!!!!!
0
Réponse 6 / 9
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
23 mars 2010 à 14:37
Merci mais sa ne repond pas a ma question =(
0
Réponse 7 / 9
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
23 mars 2010 à 14:57
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 ?
0
Réponse 8 / 9
scriptiz Messages postés 1424 Date d'inscription dimanche 21 décembre 2008 Statut Membre Dernière intervention 14 septembre 2023 425
Modifié par scriptiz le 23/03/2010 à 18:17 
 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
0
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
24 mars 2010 à 09:04
Nan sa marche pas :/
Je fais du VB8 en Form
0
Réponse 9 / 9
Utilisateur anonyme
24 mars 2010 à 14:40
"Nan sa marche pas :/ "
il t'a donner une piste, un peu d'effort et tu arriveras...
0
jboss38 Messages postés 829 Date d'inscription samedi 4 octobre 2008 Statut Membre Dernière intervention 14 décembre 2016 33
24 mars 2010 à 19:33
OK je vais essayer encore et encore mais ... J'ai du mal ^^
0

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses
Wondershare Studio // INFECTION?
Pbagi -
PJT -

5 réponses