Visual studio 2008
Résolu
jboss38
Messages postés
829
Date d'inscription
Statut
Membre
Dernière intervention
-
jboss38 Messages postés 829 Date d'inscription Statut Membre Dernière intervention -
jboss38 Messages postés 829 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Visual studio 2008
- Telecharger fl studio 20 pour pc gratuit complet - Télécharger - Édition & Montage
- Visual petanque - Télécharger - Sport
- Visual c++ 2019 - Guide
- Visual paradigm - Télécharger - Gestion de données
- Photofiltre studio - Télécharger - Retouche d'image
9 réponses
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 ?
J'ai vu tes message postez tu t'y connais en programmation du devrais je pense savoir faire sa ? non ?
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
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..
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