Hab da ein echt gemeines Problem !
Ich entwickle zur zeit eine art Fernbedienung für meinen Desktop PC mit der ich mit meinem Notebook via WLAN meinen Desktop PC steueren kann, bis jetzt funktioniert alles Perfekt, bis auf das wenn ich auf meinem Notebook den client via Taskmanager schließe um einen WLAN verbindungsabbruch zu simulieren der server dann keine eingehende verbindung mehr zulässt da er in der Zeile i = stream.Read(bytes, 0, bytes.Length) hängen bleibt. Das ist blöd da ja ein Server immer zu verfügung stehen muss und ich nicht immer hin laufen kann um ihn neu zu starten !

Ich würde mich sehr über Lösungsvorschläge freuen !

Hier der Server Code:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Imports System Imports System.IO Imports System.Net Imports System.Net.Sockets Imports System.Text Imports Microsoft.VisualBasic   Module Server       Sub Main()           server_start()         '  Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")         ' Console.Read()       End Sub       Sub server_start()         Dim server As TcpListener         server = Nothing         Try             ' Set the TcpListener on port 13000.             Dim port As Int32 = 5000             REM Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")             Dim localAddr As IPAddress = Dns.GetHostEntry(Dns.GetHostName()).AddressList(0)             server = New TcpListener(localAddr, port)               ' Start listening for client requests.               server.Start()             ' Buffer for reading data             Dim bytes(1024) As Byte             Dim data As String = Nothing               ' Enter the listening loop.             While True                 Console.Write("Waiting for a connection... ")                   ' Perform a blocking call to accept requests.                 ' You could also user server.AcceptSocket() here.                 Dim client As TcpClient = server.AcceptTcpClient()                 Console.WriteLine("Connected!")                   data = Nothing                   ' Get a stream object for reading and writing                 Dim stream As NetworkStream = client.GetStream()                       Dim i As Int32                   ' Loop to receive all the data sent by the client.                 i = stream.Read(bytes, 0, bytes.Length)                   ' stream.ReadTimeout = 10000                 'stream.WriteTimeout = 10000                   While (i <> 0)                     ' Translate data bytes to a ASCII string.                     data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)                     Worker(data)                     Console.WriteLine("Received: {0}", data)                       ' Process the data sent by the client.                     data = data.ToUpper()                     Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)                       ' Send back a response.                     stream.Write(msg, 0, msg.Length)                     Console.WriteLine("Sent: {0}", data)                       i = stream.Read(bytes, 0, bytes.Length)                         End While                   ' Shutdown and end connection                   client.Close()             End While         Catch e As SocketException               Console.WriteLine("SocketException: {0}", e)           Catch ex As IOException               Console.WriteLine(ex.Message)             server.Stop()             server_start()           Finally             server.Stop()           End Try     End Sub   End Module

Wenn der Fall auftritt eventuell den Socket schließen und neu öffnen. Damit sollte sich das Problem lösen lassen.