TeamSpeak UDP Port prüfen

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von magerquark.

    TeamSpeak UDP Port prüfen

    Hallo,
    Ich versuche ein Programm zu basteln welches per Knopfdruck prüft ob bestimmte Server online sind. Nur ich komm damit nicht klar, in meinem Code sind wohl "mehrere Fehler".

    Kann man überhaupt einen UDP Port auf die verfügbarkeit prüfen? Ich habs mit nen Connect versucht aber anscheind klappt das nicht so wie es soll.

    Danke im vorraus!

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim client1 As New System.Net.Sockets.UdpClient
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. If My.Computer.Network.Ping("77.37.12.180") Then
    5. Label2.Text = "Online"
    6. RichTextBox1.Text = "(Es wurde erfolgreich eine Verbindung hergestellt!)"
    7. Else
    8. My.Computer.Audio.Play(My.Resources.Gewitter_2, AudioPlayMode.Background)
    9. Label2.Text = "Offline"
    10. RichTextBox1.Text = "(Es konnte keine Verbindung hergestellt werden!)"
    11. End If
    14. Dim p1 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 8767)
    15. Try
    16. client1.Connect(p1)
    17. Label4.ForeColor = Color.Green
    18. Catch ex As Exception
    19. RichTextBox1.Text = "(Server 8767 ist offline!)"
    20. End Try
    23. Dim p2 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3001)
    24. Try
    25. client1.Connect(p2)
    26. Label5.ForeColor = Color.Green
    27. Catch ex As Exception
    28. RichTextBox1.Text = "(Server 3001 ist offline!)"
    29. End Try
    32. Dim p3 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3002)
    33. Try
    34. client1.Connect(p3)
    35. Label6.ForeColor = Color.Green
    36. Catch ex As Exception
    37. RichTextBox1.Text = "(Server 3002 ist offline!)"
    38. End Try
    41. Dim p4 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3003)
    42. Try
    43. client1.Connect(p4)
    44. Label7.ForeColor = Color.Green
    45. Catch ex As Exception
    46. RichTextBox1.Text = "(Server 3003 ist offline!)"
    47. End Try
    50. Dim p5 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3004)
    51. Try
    52. client1.Connect(p5)
    53. Label8.ForeColor = Color.Green
    54. Catch ex As Exception
    55. RichTextBox1.Text = "(Server 3004 ist offline!)"
    56. End Try
    59. Dim p6 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3005)
    60. Try
    61. client1.Connect(p6)
    62. Label9.ForeColor = Color.Green
    63. Catch ex As Exception
    64. RichTextBox1.Text = "(Server 3005 ist offline!)"
    65. End Try
    68. Dim p7 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3006)
    69. Try
    70. client1.Connect(p7)
    71. Label10.ForeColor = Color.Green
    72. Catch ex As Exception
    73. RichTextBox1.Text = "(Server 3006 ist offline!)"
    74. End Try
    77. Dim p8 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3007)
    78. Try
    79. client1.Connect(p8)
    80. Label11.ForeColor = Color.Green
    81. Catch ex As Exception
    82. RichTextBox1.Text = "(Server 3007 ist offline!)"
    83. End Try
    86. Dim p9 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3008)
    87. Try
    88. client1.Connect(p9)
    89. Label2.ForeColor = Color.Green
    90. Catch ex As Exception
    91. RichTextBox1.Text = "(Server 3008 ist offline!)"
    92. End Try
    95. Dim p10 As New System.Net.IPEndPoint(System.Net.IPAddress.Parse("77.37.12.180"), 3009)
    96. Try
    97. client1.Connect(p10)
    98. Label13.ForeColor = Color.Green
    99. Catch ex As Exception
    100. RichTextBox1.Text = "(Server 3009 ist offline!)"
    101. End Try
    104. client1.Close()
    106. End Sub
    107. End Class


    Der zeigt mir immer das selbe an, aber auch das selbe stimmt überhaupt nicht.

    Achso danke das wenigstens du mich auf eine Idee bringst!

    Der Fehler ist:
    Wenn ich auf den Button klick startet er und dann werden die Daten falsch angezeigt z.B.:
    8767 Online
    3001 Online
    3002 Online
    3003 Offline (Obwohl er Online ist)
    ...

    Ich will erreichen das der anzeigt welche Port erreichbar sind also auf welchen man Connecten kann aber da er auch bei einem Aktiven Server Offline sagt glaub ich kaum das da kein Fehler ist.
    Die Labels werden gefärbt wenn der entsprechende Server online ist (grün) und wenn er offline ist (rot),

    Fast geschafft

    Ich habs jetzt über CMD versucht also mit Telnet, das klappte. Jetzt frag ich mich noch wie ich den Telnet Inhalt in einer RichtTextBox angezeigt bekommen kann?
    Oder ist es vielleicht sogar möglich den Inhalt auf bestimmte Inhalte zu durchsuchen und je nachdem ein Label färben?

    Kannst du das vielleicht auch noch etwas leichter formulieren? ?(

    EDIT:
    Jetzt schnall ich wie du das meintest..... :)

    Hier ist erstmal der Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. If My.Computer.Network.Ping("77.37.12.180") Then
    5. Label2.Text = "Online"
    6. RichTextBox1.Text = "(Es wurde erfolgreich eine Verbindung hergestellt!)"
    7. Else
    8. My.Computer.Audio.Play(My.Resources.Gewitter_2, AudioPlayMode.Background)
    9. Label2.Text = "Offline"
    10. RichTextBox1.Text = "(Es konnte keine Verbindung hergestellt werden!)"
    11. End If
    12. Try
    13. 'telnet Start und Verbindung zur IP
    14. Dim Prozess As New Process()
    16. Prozess.StartInfo.FileName = "telnet.exe"
    18. Prozess.Start()
    19. Timer1.Start()
    20. Catch ex As Exception
    21. Timer1.Stop()
    22. MsgBox("Fehler")
    23. End Try
    25. End Sub
    27. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    28. SendKeys.Send("o " & "{ENTER}")
    29. SendKeys.Send("77.37.12.180 " & "2648" & "{ENTER}")
    30. SendKeys.Send("sl" & "{ENTER}")
    31. Timer1.Stop()
    32. End Sub
    34. End Class


    Jetzt ist meine Frage ob man die Telnet Geschichte in eine RichTextBox kloppen kann, b.z.w. das Ergebniss. Geht das?

Facebook
Telefonspende