ok ich hab das geschaft abba jetz hab di nexte proiblem
Code
Private Sub ClConnect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ClConnect.Click If ClCheck.Enabled = True Then Dim IpLis As IPAddress = IPAddress.Parse(ClIp.Text) Dim PortLis As Int32 PortLis = ClPort.Text Dim TcpListener As New System.Net.Sockets.TcpListener(IpLis, PortLis) TcpListener.Start() TcpListener.AcceptSocket() End If If ClCheck.Enabled = False Then Dim TcpClient As New System.Net.Sockets.TcpClient Dim Ip As IPAddress = IPAddress.Parse(ClIp.Text) Dim Port As Int32 Port = ClPort.Text ClIp.Text = AccessibleRole.IpAddress TcpClient.Connect(Ip, Port) End If
so in dise code client solte if ein check box aktiviert ist er solte listnen auf connections und if dise checkbox ist nicht aktiviert er solte connect normal to (Ip,Port) und eigentlich to krige ich problem in dise linie