Discussion :

[Invité]

Bon, j'espère que tu auras du temps pour savoir comment convertir du C# vers du VB.Net :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
public partial class MainWindow : Window
{
	private string OutputOrErrorMessage = string.Empty;
	public MainWindow()
	{
		InitializeComponent();
	}
 
	private void Button_Click(object sender, RoutedEventArgs e)
	{
                this.ping = new Process();
		this.ping.ErrorDataReceived += pingOutputOrErrorDataReceived;
		this.ping.OutputDataReceived += pingOutputOrErrorDataReceived;
 
		this.ping.StartInfo.FileName = "ping.exe";
		this.ping.StartInfo.Arguments = "www.google.com";
		this.ping.StartInfo.CreateNoWindow = true;
		this.ping.StartInfo.UseShellExecute = false;
		this.ping.StartInfo.RedirectStandardError = true;
		this.ping.StartInfo.RedirectStandardOutput = true;
		this.ping.StartInfo.StandardErrorEncoding = Encoding.ASCII;
		this.ping.StartInfo.StandardOutputEncoding = Encoding.ASCII;
 
		this.ping.Start();
		this.ping.BeginErrorReadLine();
		this.ping.BeginOutputReadLine();
		this.ping.WaitForExit();
 
		this.ping.ErrorDataReceived -= pingOutputOrErrorDataReceived;
		this.ping.OutputDataReceived -= pingOutputOrErrorDataReceived;
 
		MessageBox.Show(this.OutputOrErrorMessage);
	}
 
	private void pingOutputOrErrorDataReceived(object sender, DataReceivedEventArgs e)
	{
		this.OutputOrErrorMessage += e.Data + Environment.NewLine;
	}
}

[Nuage31]

Merci, ça me donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Dim ping As System.Diagnostics.Process = New System.Diagnostics.Process()
    Dim OutputMessage As String = New String("")
 
    'Bouton qui permet l'envoie d'un ping vers www.google.com
    Private Sub BT_PING_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BT_PING.Click
        ping = New Process()
        ping.OutputDataReceived += pingOutputDataReceived
        ping.StartInfo.FileName = "ping.exe"
        ping.StartInfo.Arguments = "www.google.com"
        ping.StartInfo.CreateNoWindow = True
        ping.StartInfo.UseShellExecute = False
        ping.StartInfo.RedirectStandardError = True
        ping.StartInfo.RedirectStandardOutput = True
        ping.StartInfo.StandardErrorEncoding = System.Text.Encoding.ASCII
        ping.StartInfo.StandardOutputEncoding = System.Text.Encoding.ASCII
        ping.Start()
        ping.BeginOutputReadLine()
        ping.WaitForExit()
        ping.OutputDataReceived -= pingOutputDataReceived
        MessageBox.Show(OutputMessage)
    End Sub
 
    Private Sub pingOutputDataReceived(ByVal sender As System.Object, ByVal e As DataReceivedEventArgs)
        OutputMessage += e.Data + Environment.NewLine
    End Sub

Mais j'ai des erreurs :

Public Event OutputDataReceived(sender As Object, e As System.Diagnostics.DataReceivedEventArgs)' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement.

Public Event OutputDataReceived(sender As Object, e As System.Diagnostics.DataReceivedEventArgs)' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement.

[Invité]

C'est que tu dois utiliser la méthode AddHandler en VB.Net et non le '+=' pour t'abonner aux évènements. Reste à confirmer !

[Nuage31]

J'ai rajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AddHandler ping.OutputDataReceived, pingOutputDataReceived()

A la place de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ping.OutputDataReceived += pingOutputDataReceived

Mais je ne vois pas quoi mettre en paramètre de pingOutputDataReceived

[Invité]

Code en VB.Net (Tu viens de déclencher mon allergie en début de journée et c'est pas top) :

Code VB.Net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim ping As System.Diagnostics.Process = New System.Diagnostics.Process()
    Dim OutputMessage As String = New String("")
 
    'Bouton qui permet l'envoie d'un ping vers www.google.com
    Private Sub BT_PING_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles BT_PING.Click
        ping = New Process()
        AddHandler ping.OutputDataReceived, AddressOf pingOutputDataReceived
        ping.StartInfo.FileName = "ping.exe"
        ping.StartInfo.Arguments = "www.google.com"
        ping.StartInfo.CreateNoWindow = True
        ping.StartInfo.UseShellExecute = False
        ping.StartInfo.RedirectStandardError = True
        ping.StartInfo.RedirectStandardOutput = True
        ping.StartInfo.StandardErrorEncoding = System.Text.Encoding.ASCII
        ping.StartInfo.StandardOutputEncoding = System.Text.Encoding.ASCII
        ping.Start()
        ping.BeginOutputReadLine()
        ping.WaitForExit()
        RemoveHandler ping.OutputDataReceived, AddressOf pingOutputDataReceived
        MessageBox.Show(OutputMessage)
    End Sub
 
    Private Sub pingOutputDataReceived(ByVal sender As System.Object, ByVal e As DataReceivedEventArgs)
        OutputMessage += e.Data + Environment.NewLine
    End Sub

Conseil : un petit tour sur developpez.com ou sur le net pour lire les cours sur VB.Net serait un plus tu trouves pas ?

[Nuage31]

Le pire c'est que c'était dans l'exemple du lien que tu m'avais donné sur l'évènement... Je dois être aveugle désolé

Merci cela fonctionne (y a juste les "é" qui sont remplacés par des "?")

[Invité]

Pour cela tu dois jouer sur les valeurs de ces lignes en changeant les encodages et essayer autre chose que ASCII :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ping.StartInfo.StandardErrorEncoding = System.Text.Encoding.ASCII
ping.StartInfo.StandardOutputEncoding = System.Text.Encoding.ASCII

[Bluedeep]

Merci cela fonctionne (y a juste les "é" qui sont remplacés par des "?")

Il serait peut être bien d'essayer de s'informer un minimum.

[Nuage31]

J'ai juste utilisé la fonction Replace.

[Invité]

J'ai juste utilisé la fonction Replace.

Je ne pense que ça soit top d'utiliser la fonction Replace vu que les points '?' peuvent bien représenter tout caractère autre que 'é'.

Mais bon fais comme tu veux.

[Nuage31]

Oui j'ai dû faire plusieurs replace vu que certains "?" étaient des espaces ou autres. Je me doute bien que c'est pas le mieux mais sur le coup j'avais pensé qu'à ça.

Je vais tester en changeant l'encodage.

Merci