Discussion :

[RICO_85]

Bonjour a tous,

Je souhaiterais exécuter une commande telnet, avec récupération du retour fait de la machine distante.
Sous dos la comme telnet, fonctionne correctement, pour cela je fais telnet xxxxx , puis controle A puis ma commande.

j'ai trouvé ce code, qui a priori doit fonctionner, mais dans ma texte box je n'ai aucun retour.
je pense que mon CTRL A ne fonctionne pas. J'ai essayé plusieurs méthodes pour effectuer mon CTRL A, mais sans succès.

Ci dessous le code, si vous avez une solution, je suis preneur. merci

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Private oTCPStream As Net.Sockets.NetworkStream
 
    Private oTCP As New Net.Sockets.TcpClient()
 
    Private bytWriting As [Byte]()
 
    Private bytReading As Byte()
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Try
            TextBox3.Text = ""
            TextBox3.Text = "DEMMARRAGE ... "
            System.Threading.Thread.Sleep(5)
            oTCP.SendTimeout = 1500
            System.Threading.Thread.Sleep(50)
            oTCP.Connect("192.168.1.81", "23")
            TextBox3.Text = "connexion ... en cours "
            oTCPStream = oTCP.GetStream
 
            'TextBox1.Text = TextBox1.Text & ReadData() & vbCrLf 'Reads data from switch/server and displays it in a textbox
            WriteData("☺A20" & vbCrLf) 'This line can repeated as many times as you like. You just need to adjust the time the application waits before starting the next line of code.
 
            TextBox3.Text = "commande envoyé "
 
            System.Threading.Thread.Sleep(500) 'Pauses the application before starting the next line of code.
 
            TextBox1.Text = TextBox1.Text & ReadData() & vbCrLf
            oTCPStream.Close() 'Closed the NetworkStream
 
            oTCP.Close() 'Closed the TcpClient/Socket
 
            MsgBox("connection CLOSE")
 
        Catch Err As Exception
 
            MsgBox(Err.ToString)
 
        End Try
 
    End Sub
 
 
    Private Function ReadData() As String
 
        Dim sData As String
 
        ReDim bytReading(oTCP.ReceiveBufferSize)
 
        oTCPStream.Read(bytReading, 0, oTCP.ReceiveBufferSize)
 
        sData = Trim(System.Text.Encoding.ASCII.GetString(bytReading))
 
        ReadData = sData
 
    End Function
 
    Private Sub WriteData(ByVal sData As String)
 
        bytWriting = System.Text.Encoding.ASCII.GetBytes(sData)
 
        oTCPStream.Write(bytWriting, 0, bytWriting.Length)
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        TextBox3.Text = " ... "
 
    End Sub
End Class

[Pol63]

tu as essayé de mettre un point d'arret dans la méthode qui lit ?
tu as regardé la doc de ce à avec quoi tu essayes de communiquer ? c'est bien ca qu'il attend pour répondre ?

[RICO_85]

Bonjour Pol63,

Je viens d'essayer ce code sur un autre équipement, il fonctionne correctement. c'est a dire que j'arrive a me connecter, avec user et mdp, avec un retour de mon matériel dans ma textbox.
sur le matériel que je souhait connecter, j'arrive a faire ce que je veux sous dos en telnet, connexion, interrogation ...
Je pense donc que mon pb c'est le CTRL + A, que je fais manuellement sous dos, et que je n'arrive pas a intégrer dans le code.

Si tu as une idée, je suis preneur.
c'est frustrant de rester bloqué sur un CTRL A

[Pol63]

il faut que tu trouves ce que fais ctrl A sur telnet pour faire la même chose en octets envoyés
un des moyens simples c'est d'écouter sur un port en .net, de lancer telnet pour qu'il se connecte à ton programme, et tu fais ce que tu fais d'habitude, comme ca tu auras tous les octets réellement et tu pourras ensuite faire pareil dans ton programme qui doit réellement communiquer avec le truc

[umfred]

si tu regardes le code, tu verras que la commande de ligne 30 est prise comme du texte, donc envoie la chaine "☺A20" avec retour chariot (Cr) et un retour à la ligne (Lf).
A priori Ctrl+A (SOH) envoie l'octet 0x01 (https://en.wikipedia.org/wiki/Contro...acter#In_ASCII : Ctrl+G envoyant l'octet 0x07 dans le wiki)
donc il faudrait ici envoiyer directement cet octet

Code :

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

oTCPStream.WriteByte(1)

Edit: oups en effet, 1 dans le code, petite erreur de ma part

[RICO_85]

Merci pour votre aide, je viens de faire un essai, mais sans succès. ci dessous le code modifié.

Est'ce comme ca qu'il fallait faire ...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
oTCPStream = oTCP.GetStream
            System.Threading.Thread.Sleep(500) 'Pauses the application before starting the next line of code.
 
            oTCPStream.WriteByte(7)
 
            System.Threading.Thread.Sleep(500)
            WriteData("A20" & vbCrLf) 'This line can repeated as many times as you like. You just need to adjust the time the application waits before starting the next line of code.
            TextBox1.Text = TextBox1.Text & ReadData() & vbCrLf
            System.Threading.Thread.Sleep(500) 'Pauses the application before starting the next line of code.

Je viens aussi de capturer les traces via wirshark, est ce que ca pourrait aider?