VBS(VB) 서버 포트 체크하기

Private Function IsPortOpen(ByVal Host As String, ByVal PortNumber As Integer) As Boolean

Dim Client As TcpClient = Nothing

Try

Client = New TcpClient(Host, PortNumber)

Return True

Catch ex As SocketException

Return False

Finally

If Not Client Is Nothing Then

Client.Close()

End If

End Try

End Function

' 사용법

Dim Port As Integer    = 55061

Dim Hostname As String = "222.122.85.123"

Dim PortOpen As Boolean = IsPortOpen(Hostname, Port)

MessageBox.Show(PortOpen)