Imports System.Net.Sockets
Imports System.Text.UTF8Encoding
Public Class Form1
Dim cliente As TcpClient
Dim flusso As NetworkStream
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim indirizzo As Net.IPAddress
Net.IPAddress.TryParse(TextBox3.Text, indirizzo)
cliente = New TcpClient
cliente.Connect(indirizzo, 8888)
If cliente.Connected Then
RichTextBox1.Text = RichTextBox1.Text & "Connessione avvenuta" & vbCrLf
flusso = cliente.GetStream()
Timer1.Start()
Else
RichTextBox1.Text = RichTextBox1.Text & "Connessione fallita" & vbCrLf
MsgBox("Connessione fallita", MsgBoxStyle.Critical, "ERRORE!")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If cliente.Available > 0 Then
Dim temporaneo(cliente.Available - 1) As Byte
flusso.Read(temporaneo, 0, temporaneo.Length)
Dim testo As String = UTF8.GetString(temporaneo)
RichTextBox1.Text = RichTextBox1.Text & testo & vbCrLf
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim temporaneo() As Byte = UTF8.GetBytes(TextBox1.Text)
flusso.Write(temporaneo, 0, temporaneo.Length)
TextBox1.Text = ""
End Sub
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
Me.AcceptButton = Button1
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.AcceptButton = Button1
End Sub
Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus
Me.AcceptButton = Button2
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
Me.AcceptButton = Button2
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
RichTextBox1.SelectionStart = RichTextBox1.TextLength
RichTextBox1.ScrollToCaret()
End Sub
End Class
grazie in anticipo!