Hi, mein vorhaben ist es eine server client kommunikation herzustellen, sodass ich nun ein programm habe dass auf einem button die listening funktion aktiviert und mit dem anderem button eine message an den gegenüber senden kann (in diesem fall "ey yo") .
Das problem ist, dass mein program auf 2 gleiche sockets listen muss . Wenn ich dies probiere dann kommen nachrichten im direktfenster wie " eine ausnahme des typs "system.invalidoperationexception" ist in system.dll aufgetreten oder das gleiche mit " system.net.sockets.socketexception" .
Ich vermute dass es daran liegt dass man keine verbindung für 2 sockets aufbauen kann von einem rechner(IP) . Nur wie löse ich jetz das problem, jemand ein trick oder sonstiges?
Der code :
Das problem ist, dass mein program auf 2 gleiche sockets listen muss . Wenn ich dies probiere dann kommen nachrichten im direktfenster wie " eine ausnahme des typs "system.invalidoperationexception" ist in system.dll aufgetreten oder das gleiche mit " system.net.sockets.socketexception" .
Ich vermute dass es daran liegt dass man keine verbindung für 2 sockets aufbauen kann von einem rechner(IP) . Nur wie löse ich jetz das problem, jemand ein trick oder sonstiges?
Der code :
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Text
- Public Class Form1
- Dim TcpListen As New TcpListener(8000) 'begin accept ausprobieren
- Dim TcpClient As TcpClient = TcpListen.AcceptTcpClient
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- TcpListen.Start()
- Dim NetworkStream As NetworkStream = TcpClient.GetStream
- Dim bytes(TcpClient.ReceiveBufferSize) As Byte
- NetworkStream.Read(bytes, 0, CInt(TcpClient.ReceiveBufferSize))
- Dim ClientData As String = Encoding.ASCII.GetString(bytes)
- txtListen.Text = ClientData
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim NetworkStream As NetworkStream = TcpClient.GetStream
- Dim Message As String = "Ey Yo"
- Dim sendbytes As Byte() = Encoding.ASCII.GetBytes(Message)
- NetworkStream.Write(sendbytes, 0, sendbytes.Length)
- End Sub
- End Class