[비베] 서버분석

1

2

3

4

5

6

7

8

9

10

11

12

Imports System.Net.Sockets

    Public Function ServerCheck(Byval IP As String, Byval Port As Integer) As Boolean

        Dim Client As TcpClient

        Try

            Client = New TcpClient(IP, Port)

            Return True

        Catch

            Return False

        End Try

    End Function

1

2

3

4

5

If ServerCheck("localhost", 25565) Then

    lb_Server.Text = "서버가 열려있어요!"

Else

    lb_Server.Text = "서버가 닫혀있어요!"

End If