Socket Exception wurde nicht behandelt - was tun?

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Rinecamo.

    Socket Exception wurde nicht behandelt - was tun?

    Hallo zusammen,

    ich brauche dringend eure Hilfe. ;)

    Seit ein paar Woch entwickle ich ein TCP/IP-Tool in Visual Basic, mit dem man Remote-Zugriff auf einen anderen Rechner bekommt, wenn auf diesem Rechner die entsprechende Software installiert ist.

    Bis jetzt funktionierte alles auch ganz gut, aber seit heute bekomme ich folgende Fehlermeldung:


    Ich habe keine Ahnung, warum diese Meldung nun auf einmal erscheint. Ebenso habe ich keine AHnung, wie ich das Porblem beheben kann.

    Viele Grüße und Danke schonmal im Vorraus,
    anga

    Mono schrieb:

    Offensichtlich (ins Blaue geraten) startest du 2 TcpListener auf der selben IP und demselben Port.

    Danke für die schnelle Antwort.

    Das was du schreibst, habe ich bereits kontrolliert und finde keine Stelle, an der 2 Listener gestartet werden.

    Der Fehler tritt an dieser Stelle auf:

    VB.NET-Quellcode

    1. Private Sub listening()
    2. listener.Start()
    3. End Sub


    Manachmal klappt es, das notdürftig mit einer If-Abrage zu fixen, aber dann mekert er an einer anderen Stelle dies:


    Vieleicht hilft das weiter.
    anga

    Die Frage ist, wird diese Prozedur ggf. 2 mal aufgerufen? (unabsichtlich?)
    Mach dir einen Haltepunkt auf Sub listen.
    Und prüfe, wie oft diese Prozedur angesprochen wird.
    Das ist meine Signatur und sie wird wunderbar sein!

    Ich kenne mich mit den Haltepunkten nicht so aus und kann das so nicht reproduzieren. Aber vlt. hilft dir der Code weiter:


    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net.Dns
    3. Imports System.Threading
    4. Imports System.IO
    7. Public Class Form1
    8. Dim listener As New TcpListener(55555)
    9. Dim client As TcpClient
    10. Dim message As String = ""
    12. Public offen As Boolean = False
    15. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    16. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    17. listthread.Start()
    19. End Sub
    21. Private Sub listening()
    23. Try
    24. listener.Start()
    25. Catch ex As Exception
    27. End Try
    29. End Sub
    31. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    32. listener.Stop()
    33. End Sub
    35. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. If TextBox1.Text = "" Then
    39. MsgBox("Es wurde keine IP-Adresse übergeben!", MsgBoxStyle.Exclamation)
    40. Else
    42. If TextBox2.Text = "" Then
    44. MsgBox("Es wurde keine Anweisung übergeben!", MsgBoxStyle.Exclamation)
    46. Else
    48. Cursor = Cursors.WaitCursor
    49. Button1.Enabled = False
    51. Dim nachricht As String, authpw As String, senderip As String
    53. Try
    55. authpw = "123456789012345678"
    56. senderip = Label5.Text
    58. nachricht = authpw & ";" & senderip & ";"
    60. Select Case ListBox1.SelectedIndex
    61. Case 0
    62. nachricht += "00" & TextBox2.Text
    63. Case 1
    64. nachricht += "01" & TextBox2.Text
    65. Case 2
    66. nachricht += "02" & TextBox2.Text
    67. Case 3
    68. nachricht += "03" & TextBox2.Text
    69. Case 4
    70. nachricht += "04" & TextBox2.Text
    71. Case Else
    72. nachricht += ""
    73. End Select
    76. client = New TcpClient(TextBox1.Text, 55555)
    79. Dim writer As New StreamWriter(client.GetStream())
    81. writer.Write(nachricht)
    82. writer.Flush()
    83. TextBox2.Clear()
    85. Catch ex As Exception
    87. MsgBox("Die Verbindung zum Zielrechner konnte nicht hergestellt werden!" & vbCrLf & "Eventuell läuft de Software auf dem Zeilcomputer nicht.", MsgBoxStyle.Critical)
    90. End Try
    92. End If
    93. End If
    96. End Sub
    98. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    100. Try
    101. If listener.Pending = True Then
    102. message = ""
    103. client = listener.AcceptTcpClient()
    105. Dim reader As New StreamReader(client.GetStream())
    106. While reader.Peek > -1
    107. message = message + Convert.ToChar(reader.Read()).ToString
    108. End While
    110. empfangsmodul(message)
    113. Else : End If
    115. Catch ex As Exception
    117. End Try
    119. End Sub
    121. Private Sub empfangsmodul(ByVal message As String)
    122. Dim befehl As String, parameter As String, authpw As String
    123. Dim senderpw As String, senderIP As String, pos1 As Integer
    124. authpw = "123456789012345678"
    126. senderpw = Mid(message, 1, 18)
    127. pos1 = InStr(20, message, ";")
    128. senderIP = Mid(message, 20, pos1 - 20)
    130. befehl = Mid(message, pos1 + 1, 2)
    131. parameter = Mid(message, pos1 + 3)
    133. If senderpw = authpw Then
    134. Select Case befehl
    135. Case "00"
    136. Shell(parameter, AppWinStyle.MaximizedFocus)
    137. Case "01"
    138. Shell("taskkill /IM " & parameter)
    139. Case "02"
    140. MsgBox(parameter, MsgBoxStyle.Information, "Information")
    141. Case "03"
    142. MsgBox(parameter, MsgBoxStyle.Exclamation, "Hinweis")
    143. Case "04"
    144. MsgBox(parameter, MsgBoxStyle.Critical, "Fehler")
    145. Case Else
    147. End Select
    148. Else : End If
    151. End Sub
    154. End Class

    Uff, ich weiss gar nicht wo ich anfangen soll.
    Ich denke, du solltest das Ganze nochmal rein konzeptionell überdenken.

    Ich habe leider keine Zeit, dir alle Unschönheiten und Mängel jetzt aufzuzeigen.
    Eventuell kann ich es mir heute abend nochmal anschauen.

    Gruss mono
    Das ist meine Signatur und sie wird wunderbar sein!

    Mono schrieb:

    Uff, ich weiss gar nicht wo ich anfangen soll.
    Ich denke, du solltest das Ganze nochmal rein konzeptionell überdenken.

    Ich habe leider keine Zeit, dir alle Unschönheiten und Mängel jetzt aufzuzeigen.
    Eventuell kann ich es mir heute abend nochmal anschauen.

    Gruss mono
    War vielleicht eine blöde Ide, die den ganzen Code hinzuknallen. Und ich möchte auch nicht, dass du mir da irgendwie Nachhilfe gibst.
    Mit geht es wirklich nur um diesen einzigen Fehler - den Rest versuche ich dann selber gerade zubiegen.

    Trotzdem danke.
    anga

    Hallo anga,

    ich hatte ein ähnliches Problem vom Sempertutorial. Probier mal im Form Load Ereigniss den Timer auszuschalten
    Timer1.Enabled = False

    und dann wenn die Form geladen ist wieder zu aktivieren.

    Timer1.Enabled = true.

    Hat bei mir geholfen.

    Grüße

Facebook
Telefonspende