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 ?
edit 2 : es kann immer nur ein server auf online angezeigt werden -.- der andere is immer auf offline obwohl der online is^^
#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 ?
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“ ()