2 Serverstatuse Gleichzeitg Überprüfen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    2 Serverstatuse Gleichzeitg Überprüfen

    Hallo leute , ich möchte 2 serverstatuse gleichzeitig mit diesem code überprüfen :
    #Region "Check Server Status"
    Private Sub CheckServerStatus()
    Dim tryconnect As New TcpClient

    Try
    tryconnect.Connect("85.214.58.82", 4514)
    Label7.ForeColor = Color.Lime
    Label7.Text = "Online"



    Catch ex As Exception
    Label7.ForeColor = Color.Red
    Label7.Text = "Offline"

    End Try
    End Sub
    #End Region

    wie kann ich da nochma sowas einfügen dass er auch den 2ten server überprüftz (gleiche ip nur anderer port und anderes label^^)

    danke im vorraus


    edit: ich habs jetz , aber warum brauchz das so ewig zum öffnen ? :S

    edit 2 : es kann immer nur ein server auf online angezeigt werden -.- der andere is immer auf offline obwohl der online is^^

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „General_Schnitzel“ ()

    Stichwort: Multithreading.

    In einem Thread kannste nicht 2 Connections gleichzeitig prüfen, da ein gewisser Timeout bzw. gewartet wird bis der Server antwortet, das kann je nach Anbindung paar Sek dauern und erst danach kann der 2 Server angefragt werden.
    Auch eine 2 Form bringt logischerweise nichts, weil die gesamte GUI standardmäßig im selben Thread läuft.

    Bedenke aber das aus einem, Thread nicht direkt auf GUI Elemente zugreifen kannst, wenn z.B. das Label ändern möchtest, das musst du dann über Delegates lösen.

    for da fun:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports AsyncCtpExtensions
    2. Imports System.Net.Sockets
    3. Imports System.Threading.Tasks
    5. Public Class TCPResult
    6. Public url As String
    7. Public port As Integer
    8. Public success As Boolean
    9. End Class
    11. Public Class foo
    13. Private Async Function TestConnect(url As String, port As Integer) As Task(Of TCPResult)
    14. ' simulate some slow network:
    15. Await TaskEx.Delay(1000)
    16. Dim t As New TcpClient
    17. Dim r As New TCPResult With {.url = url, .port = port, .success = False}
    18. Try
    19. Await t.ConnectAsync(url, port)
    20. If t.Connected Then r.success = True
    21. Catch ex As Exception
    22. ' failed for any reason, we dont care here
    23. End Try
    24. Return r
    25. End Function
    27. Public Async Function bar() As Task(Of IEnumerable(Of TCPResult))
    29. Dim url() As Tuple(Of String, Integer) = {New Tuple(Of String, Integer)("google.de", 80),
    30. New Tuple(Of String, Integer)("microsoft.com", 80),
    31. New Tuple(Of String, Integer)("heise.de", 80),
    32. New Tuple(Of String, Integer)("bnggrtdfddddd.com", 1234)}
    34. Debug.Print("wait check")
    35. Dim i = Await TaskEx.WhenAll(From tp As Tuple(Of String, Integer) In url Select TestConnect(tp.Item1, tp.Item2))
    36. Debug.Print("done check")
    37. Return i
    39. End Function
    41. End Class


    VB.NET-Quellcode

    1. Private Async Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. Debug.Print("going out")
    4. Dim d As New foo
    5. For Each t As TCPResult In Await d.bar()
    6. Debug.Print(t.url & " : " & t.success)
    7. Next
    8. Debug.Print("coming home")
    10. End Sub



    Oder auch ganz simpel:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports AsyncCtpExtensions
    2. Imports System.Threading.Tasks
    3. Imports System.Net.Sockets
    5. Public Class Form1
    7. Private Async Function TestConnect(url As String, port As Integer) As Task(Of Boolean)
    8. ' simulate some slow network:
    9. Await TaskEx.Delay(1000)
    10. Dim t As New TcpClient
    11. Dim r As Boolean = False
    12. Try
    13. Await t.ConnectAsync(url, port)
    14. If t.Connected Then r = True
    15. Catch ex As Exception
    16. ' failed for any reason, we dont care here
    17. End Try
    18. Return r
    19. End Function
    21. Private Async Sub CheckOnlineStatus()
    23. Dim url() As Tuple(Of String, Integer) = {New Tuple(Of String, Integer)("google.de", 80),
    24. New Tuple(Of String, Integer)("microsoft.com", 80),
    25. New Tuple(Of String, Integer)("heise.de", 80),
    26. New Tuple(Of String, Integer)("bnggrtdfddddd.com", 1234)}
    28. For Each tp As Tuple(Of String, Integer) In url
    29. ListBox1.Items.Add("checking " & tp.Item1)
    30. Dim r As Boolean = Await TestConnect(tp.Item1, tp.Item2)
    31. Dim s As String = tp.Item1 & ": "
    32. ListBox1.Items.RemoveAt(ListBox1.Items.Count - 1)
    33. If r Then
    34. s &= "online"
    35. Else
    36. s &= "OFFLINE"
    37. End If
    38. ListBox1.Items.Add(s)
    39. Next
    41. End Sub
    43. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    45. Debug.Print("checking")
    46. CheckOnlineStatus()
    47. Debug.Print("checking done")
    49. End Sub
    51. End Class

    Man beachte, dass die Form weiterhin reagiert und das keine threadübergreifenden Zugriffe stattfinden!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „picoflop“ ()

    naja es geht jetz alles soweit aber gibts da auch nen code für dass sich dass immer aktualisiert ohne dass man den launcher (ja is für nen privat server ^^) neustarten muss ??? aber es soll halt immer direkt im launcher angezeigt werden nicht iwie im extra fenster. wenn möglich dann auch in rot (offline) grün (online) zb. Gameserver= Offline (In rot)

    edit : hm oke , danke , dann kann ich wohl nur einen server überprüfen entweder auth oder gameserver :S

Facebook
Telefonspende