C# と VB.NET の質問掲示板

初めましてこんにちは！

vb.net2010で社内用ツールを作成しておりますが、
サーバーの疎通確認で「応答なし」になります。
ならない方法なにかありましたらご教示のほどよろしくお願い致します。

    'ネットワークに接続されているか調べる
        If My.Computer.Network.IsAvailable Then   'ここで社内ネットワークでなく、外部の無線に接続してしまうと「応答なし」になってしまう
            ' Console.WriteLine("ネットワークに接続されています")

            Do Until IsInternetConnected()　’DBサーバー確認

                System.Threading.Thread.Sleep(5000)

                System.Windows.Forms.Application.DoEvents()

            Loop
           
            con_flg = True
        Else
            'Console.WriteLine("ネットワークに接続されていません")
      
 　　　　　　con_flg = false
        End If

追記---

vb.net2010参照設定にて「MSWinsockLib」を参照し
エラーなく、実行できるが、正しく結果が得られません。
どうしてでしょうか？ご教示のほどよろしくお願い致します。

 Public Function IsInternetConnected() As Boolean


        Const server = "192.168.0.1"
        Const Port = 1234

        Dim Winsock1 As New Winsock

        Winsock1.RemoteHost = server
        Winsock1.RemotePort = Port   
        Winsock1.Connect()

        If Winsock1.State = 7 Then　　’正しく接続されているにも拘らず、６（close）になる
            '接続完了
            IsInternetConnected = True

        Else
            '接続失敗
            IsInternetConnected = False

        End If
        Winsock1.Close()
    End Function

Azulean 様ご回答ありがとうございます。
ご指摘の通り、理解不足かつ安易に他人に答えを得ようとする自分がありました。
申し訳ありませんでした。

まだまだ、理解不足ではありますが、色々テストして、vb6の「mswinsck」ではスムーズに動きますが、
.netではスムーズに動かないです。

例えば：あきらかにネットワークが切断した場合では、両方ともスムーズに動きますが、
ネットワークが接続された状態（内部と外部）で接続した状態では、vb6[mswinsck]の方がスムーズに
戻り値が得られますが、＜.net＞下記のコードでは、戻り値が得られまで時間が掛かる。
もし、なにか解消方法ございましたら、ご教示のほどよろしくお願い致します。

＜vb.net2010+.net2.0＞

    Function CheckPortOpen(ByVal hostname As String, ByVal portnum As Integer) As Boolean

        Dim ipa As IPAddress = CType(Dns.GetHostAddresses(hostname)(0), IPAddress)

        Try
            Dim sock As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            'Console.WriteLine("Testing " & hostname & ":" & portnum)
            sock.Connect(ipa, portnum)  '(外部ネットワークに接続されている場合、時間が掛かる)
            If (sock.Connected = True) Then
                sock.Close()
                sock = Nothing
                Return True
            End If

        Catch sx As SocketException
            If sx.ErrorCode = 10061 Then
                Return False
            Else
                Return Nothing
            End If

        End Try

    End Function