تشخیص وصل بودن اینترنت

[star_star]

سلام سورسی رو میخواستم که بتونه تشخیص بده اینترنت وصله و مشکلی نداره

(اقا نمی خوام بگه که دستگاه متصل به اینترنت هست یا نه ، میخوام اینترنت رو چک کنه که اگه درست بود و مشکلی نداشت بگه مشکلی نیست مثلا ایپی یه سایت رو چک کنه که اگه TTL گرفت بگه ok e و اگه نگرفت بگه قعطه )

[hosein320]

سلام
Dim ping As New System.Net.NetworkInformation.Ping
Try
Dim result As System.Net.NetworkInformation.PingReply = ping.Send("google.com")
'متصل است
Catch ex As Exception
'متصل نیست
End Try

[ali.rk]

google فیلتر باشه یا شلوغ باشه چه کنیم ؟

[hosein320]

google فیلتر باشه یا شلوغ باشه چه کنیم ؟

میتونین به هر سایتی ک خواستین پینگ کنین

[Hossein Bazyan]

google فیلتر باشه یا شلوغ باشه چه کنیم ؟

سلام
ping کردن نمیخواد

If My.Computer.Network.IsAvailable = True Then
ret = True
Else
ret = False

End If

[maxvel]

Option Strict On
Imports System.Net
Imports System.IO
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ConnectedToInternet() = True Then
MsgBox("yes")
Else
MsgBox("no")

End If
End Sub


Function ConnectedToInternet() As Boolean
Dim TestValue As Byte() = {}
If My.Computer.Network.IsAvailable Then
Using w As New WebClient
TestValue = w.DownloadData("http://www.google.com")
End Using
End If
If TestValue.Length > 0 Then Return True
Return False
End Function

End Class


az tariqe web client