Button1.Enabled = False 'Disable send button
Else
Client = Listener.AcceptTcpClient() 'Connect with client
Text1.Enabled = True
Text3.Enabled = True
Button1.Enabled = True 'Enable send button
End If
Else
'Receive data
Try
Dim Stream As NetworkStream = Client.GetStream
If Stream.DataAvailable Then
End If
Catch ex As Exception
'Disconnect
Client = Nothing
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error,
MessageBoxDefaultButton.Button1)
End Try
End If
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error,
MessageBoxDefaultButton.Button1)
End Try
End Sub
End Class
'Enable IP address edit
'Enable send text edit
Dim bytes(1000) As Byte
Dim strReceivedData As String = ""
Dim datalength = Stream.Read(bytes, 0, bytes.Length)
strReceivedData = System.Text.Encoding.Default.GetString(bytes).Substring(0, datalength)
Text4.AppendText(strReceivedData)
Text4.AppendText(System.Environment.NewLine)
4 Appendix
4-13