چگونگی تشخیص سیستم به اینترنت

[parviz dadpanah]

با سلام خدمت برنامه نویسا گرام!!!!
خواهشمند است اینجانب را در جهت سوالی مبنی بر"چگونگی تشخیص سیستم به اینترنت"راهنمایی کرده؟؟؟ ممنون!

[rezapassword]

بفرمائید :

Select Case My.Computer.Network.IsAvailable

            Case True

                MessageBox.Show("connect to internet", "message", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Case False

                MessageBox.Show("disconnect", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Select

[mostafaaa]

البته این روشی رو که آقا رضا گفتن فقط Availablity کارت شبکه رو چک میکنه . شما میتونید همراه این کار یکی از Dns های معروف رو هم Ping کنید تا از اتصالتون به اینترنت مطمعن بشید.
البته این روشی که به فکر من رسید . شاید راه بهتری هم باشه.!!
با اجازه آقا رضا یه خورده تو کدشون دست بردم.

        Select Case My.Computer.Network.IsAvailable

            Case True

                If My.Computer.Network.Ping("4.2.2.4") Then

                    MessageBox.Show("connect to internet", "message", MessageBoxButtons.OK, MessageBoxIcon.Information)

                End If

            Case False

                MessageBox.Show("disconnect", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End Select