bonjour
je me permet de m'en remettre à votre savoir étant donné que je tourne en rond depuis assez longtemps.
j'ai créer une application familial permettant un partage de fichier en faite je donne accès à une partie d un disque dure à ma famille situé loin de mon domicile.
mon application ftp est en mode fenêtré le même principe que de parcourir sur son propre pc (dédicace pour ma maman lol).
j'essaye au fur et à mesure de rajouter des petit plus comme l'envoie de mail (résolu), mais à ce jour je souhaite effectuer une possibilité de session chat avec netcat.
pour cela je n 'arrive pas à effectuer la redirection de la console dos de netcat vers ma form .
voici mon code actuel :

Imports System.Diagnostics
 
Public Class FrmNetcat
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
 
        Else
            ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)
        End If
    End Sub
 
    Private Sub ButtonQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonQuitter.Click
        End
    End Sub
 
    Private Sub ButtonConnexion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonConnexion.Click
        Dim Ip As String
        Ip = TextBoxIp.Text
        Dim Port As String
        Port = TextBoxPort.Text
        Dim Fichier
        Fichier = "start C:\netcat.exe"
        Dim FSys
        FSys = CreateObject("Scripting.FileSystemObject" )
        Dim Monfic
        Monfic = FSys.CreateTextFile("C:\test.bat" )
        'écris le résultat choix upload dans le fichier choixdUP
        With Monfic
            Monfic.writeLine("" & Fichier & " " & Ip & " " & Port & "" )
        End With
        Monfic.close()
 
        Dim Shell, com, Result
        Shell = CreateObject("WScript.Shell" )
        com = "cmd /c c:\test.bat"
        Result = Shell.Run(com, 2, True)
        MsgBox("ok" )
 
    End Sub
 
    Private Sub ButtonEnvoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnvoyer.Click
 
    End Sub
End Class
 
merci de votre aide et du temps apporter