PDA

View Full Version : سوال: چگونگی تشخیص سیستم به اینترنت



parviz dadpanah
پنج شنبه 09 آبان 1387, 09:25 صبح
با سلام خدمت برنامه نویسا گرام!!!!
خواهشمند است اینجانب را در جهت سوالی مبنی بر"چگونگی تشخیص سیستم به اینترنت"راهنمایی کرده؟؟؟ ممنون!

rezapassword
پنج شنبه 09 آبان 1387, 09:43 صبح
بفرمائید :

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
پنج شنبه 09 آبان 1387, 10:22 صبح
البته این روشی رو که آقا رضا گفتن فقط 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