#codice del server
Imports System.Net.Sockets
Imports System.Text
Public Class Server
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
#End Region
Const PORT_NUM As Integer = 10000
Const READ_BUFFER_SIZE As Integer = 255
Private client As TcpClient
Private server As TcpListener
Private server_dati As Threading.Thread
Private Sub avvia_server_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avvia_server.Click
server = New TcpListener(PORT_NUM)
server.Start()
comandi_box.Text = "Server Avviato"
End Sub
Private Sub Server_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
client = server.AcceptTcpClient()
comandi_box.Text = "Connessione accettata."
Catch ex As Exception
End Try
End Sub
Private Sub spegni_server_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spegni_server.Click
server.Stop()
comandi_box.Text = "Server Disattivato"
End Sub
End Class
#codice del client
Imports System.Net.Sockets
Imports System.Text
Public Class Client
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
#End Region
Const READ_BUFFER_SIZE As Integer = 255
Const PORT_NUM As Integer = 10000
Private client As TcpClient
Private readBuffer(READ_BUFFER_SIZE) As Byte
Private Sub SendData(ByVal data As String)
Dim writer As New IO.StreamWriter(client.GetStream)
writer.Write(data & vbCr)
writer.Flush()
End Sub
Private Sub connessione_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connessione.Click
client = New TcpClient("localhost", PORT_NUM)
End Sub
Private Sub invia_comando_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles invia_comando.Click
SendData(command_box.Text)
End Sub
Private Sub disconnessione_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles disconnessione.Click
client.Close()
End Sub
End Class
Allora il server funziona, si apre la porta 10000 e si mette in ascolto, il client si connette, riesce ad inviare il messaggio presente nella textbox.
Quello che non riesco a fare e ricevere il messaggio inviato dal client nella texbox del server.
Mi dite come si fà? :master:
Le ho provate tutte ma non ne vengo fuori.
Rispondi quotando
