non ci sono problemi..allora per collegarti(come Client) io ti consiglio di utilizzare le classi TcpClient(per la connessione) e networkstream(per lo scambio di dati)..quindi dichiara subito
codice:
Dim client as new tcpclient
dim netstream as networkstream
per connetterti ad un host(es mail.tin.it) usa la seguente linea di codice
codice:
tcpclient.Connect("mail.tin.it", 25)
netstream = tcpclient.GetStream()
in questo modo il tuo pc si è connesso a mail.tin.it alla rispettiva porta 25 e ha avviato la lettura di scambio di dati.
ora ci sono 2 strade.. per la ricezione di dati puoi usare sia i Thread sia un timer. Con i thread il soft dovrebbe essere più efficiente; tuttavia è un pò + complesso l'approccio soprattutto se sei alle prime armi e visto che stiamo realizzando un semplice client un timer va benissimo.
detto questo..aggiungi alle linee di codice di sopra la seguente stringa
codice:
If tcpclient.Connected = True Then
Timer1.Enabled = True
End If
e nel tick del timer
codice:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If netstream.DataAvailable = True Then
Dim stringar As String
Dim bytes(tcpclient.ReceiveBufferSize()) As Byte
netstream.Read(bytes, 0, bytes.Length)
stringar += System.Text.Encoding.ASCII.GetString(bytes)
Textbox1.Text += stringar & vbCrLf
End If
End Sub
in questo modo il nostro client riceverà soltanto quando ci saranno dati da ricevere(così da evitare eccezioni)
ora l'ultimo passo è l'invio di dati..niente di più semplice
codice:
Dim bytes As Byte() = System.Text.Encoding.ASCII.GetBytes(Invia.Text & vbCrLf)
netstream.Write(bytes, 0, bytes.Length)
netstream.Flush()
spero di esserti stato d'aiuto..con questo codice puoi realzzare un applicazione simile al telnet di windows..Ciao e a presto