PARTE DI CODICE DEL SERVER:
//Client = TcpClient
//Stream = NetworkStream
If Client.Connected Then
Stream = Client.GetStream()
timer1.start
End If
Private Sub Timer1_Tick //Interval 1
Dim Temp1() As Byte = UTF8.GetBytes("#IP#IndirizzoIP")
Stream.Write(Temp1, 0, Temp1.Length)
Dim Temp2() As Byte = UTF8.GetBytes("#NU#NomeUtente")
Stream.Write(Temp2, 0, Temp2.Length)
Dim Temp3() As Byte = UTF8.GetBytes("#NC#NomeComputer")
Stream.Write(Temp3, 0, Temp3.Length)
Timer1.Stop()
End Sub
PARTE DI CODICE DEL CLIENT:
If Client.Available > 0 Then
Dim Temp(Client.Available - 1) As Byte
Stream.Read(Temp, 0, Temp.Length)
Dim TempString As String = UTF8.GetString(Temp)
If TempString.StartsWith ("#IP#")
Label1.Text = TempString
ElseIf TempString.StartsWith ("#NU#")
Label2.Text = TempString
ElseIf TempString.StartsWith ("#NC#")
Label3.Text = TempString
End If
|