[VB.NET] fare dialogare due pc

[RiminiRimini]

Ciao a tutti, apro un nuovo tread per chiedervi, come posso inviare un messaggio visibile tramite msgbox ad un'altro pc?
Sono riuscitto ad ascoltare, ed a ricevere la comunicazione con quindi con tcplistered ho aperto una comunicazione ed accettata, ma non so mandare un mex visuale all'altro pc.
Ora non sono al mio PC, ma se vi serve per capire meglio, posto il codice.
Thanks

[xam85reBanned]

linguaggio?

[RiminiRimini]

Già piccolo dettaglio trascurabile...
Vb.Net versione 2002
Thanks

[xam85reBanned]

dovresti avere anke un evento dataIncoming o dataArrival. sai dirmi esattamente il componente che usi?

[LeleFT]

Originariamente inviato da RiminiRimini
Già piccolo dettaglio trascurabile...

Non proprio trascurabile...


Ciao.

[RiminiRimini]

Dunque io uso il codice sotto riportato, (TcpListener), si collega, tutto ok, ma poi non so come andare avanti, anche spedire un semplice messaggio di testo al pc che si è collegato.

AscoltaTCP.Start()
LStato.Text = "STATO: IN ATTESA"
Timer2.Enabled = True

if AscoltaTCP.Pending
Timer2.Stop()
Voice.Speed = 150
Voice.Speak("YOUR CONNECT IS OK!")
AscoltaTCP.AcceptTcpClient()
AscoltaTCP.AcceptSocket()
LStato.Text = "CONNESSO!"

end if

Ho guardato in giro, ma non sono proprio esperto e guardando i codici non si capisce molto

[cassano]

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic


Class MyTcpListener

    Public Shared Sub Main()

    Dim server As TcpListener
    server=nothing
        Try
            ' Set the TcpListener on port 13000.
         Dim port As Int32 = 13000
         Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")

         server = New TcpListener(localAddr, port)
         
         ' Start listening for client requests.
         server.Start()
         
         ' Buffer for reading data
            Dim bytes(1024) As Byte
            Dim data As String = Nothing
         
         ' Enter the listening loop.
         While True
            Console.Write("Waiting for a connection... ")
            
            ' Perform a blocking call to accept requests.
            ' You could also user server.AcceptSocket() here.
            Dim client As TcpClient = server.AcceptTcpClient()
            Console.WriteLine("Connected!")
            
            data = Nothing
            
            ' Get a stream object for reading and writing
            Dim stream As NetworkStream = client.GetStream()
            
            Dim i As Int32
            
            ' Loop to receive all the data sent by the client.
            i = stream.Read(bytes, 0, bytes.Length)
            While (i <> 0) 
               ' Translate data bytes to a ASCII string.
               data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
                    Console.WriteLine("Received: {0}", data)
               
               ' Process the data sent by the client.
               data = data.ToUpper()
                    Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
               
               ' Send back a response.
               stream.Write(msg, 0, msg.Length)
                    Console.WriteLine("Sent: {0}", data)
              
               i = stream.Read(bytes, 0, bytes.Length)

            End While
            
            ' Shutdown and end connection
            client.Close()
         End While
      Catch e As SocketException
         Console.WriteLine("SocketException: {0}", e)
      Finally
         server.Stop()
      End Try
      
      Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")
      Console.Read()
   End Sub 'Main

End Class 'MyTcpListener 

[RiminiRimini]

Grazie ora provo, volevo semplicemente chiederti, visto che non so molta teoria, così a prima vista, se metto il Ciclo While che si ripete sino a quando non è Vero (quindi qualcuno ha richiesto una connessione), se è falso, può fare altro codice oppure si ferma solo al while?
Se riesco poi metto il codice se può essere d'aiuto

[cassano]

una volta accettata la connessione,come si vede dal codice ,il server recupera il messaggio che è stato mandato dal client,per poi uscire dalla routine.