Originariamente inviato da Pirelli72
Come invii scusa il messaggio son WM ? (codice)
lo invio cosi:
codice:
Private Sub SocketConnect()
        Try
            'Controllare se l’indirizzo inserito è valido
            'Questa funzione accetta in ingresso byRef una variabile di tipo IPAddress la quale serve
            'Per creare l’IPEndPoint

            Dim mySock As Socket = Nothing
            Dim host As IPAddress = IPAddress.Parse(TextBox1.Text)
            Dim ep As IPEndPoint = New System.Net.IPEndPoint(host, Integer.Parse(tbPorta.Text))
            mySock = New System.Net.Sockets.Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            mySock.Connect(ep)
            If mySock.Connected Then
                mySock.Send(Encoding.ASCII.GetBytes(tbMessage.Text))
                MsgBox("messaggio inviato")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub