端末のTcpポート番号で接続チェックするためには？

りき 2006-05-02 07:39:38 No: 131209

VB2005でリモートPCのTCPポートで接続可能であるかを確認するため、以下の
ように記述しましたが、Portが25/110時はサービスが提供されていないのに
接続ができたように動作してしまいます。（全てチェックはしていませんが
他のPortは問題ありません）
アナライザで見るとリモートPCからは"RST（リセット）"を出しているので例
外処理の記述が弱いのかと考えています。

ご教授方教えてください。

--------------------------------------------------------------
'===============================
'tcpConnect(server,port)
'    server=IP Address
'    port  =TCP Port
'===============================
    Private Sub tcpConnect(ByVal server As String, ByVal port As Integer)
        Dim tcpClient As New System.Net.Sockets.TcpClient()
        Try
            tcpClient.Connect(server, port)
            MessageBox.Show("OK", "結果")
            tcpClient.Close()
        Catch ex As SocketException
            MessageBox.Show("NG", "結果")
        End Try
    End Sub
--------------------------------------------------------------