سلام
این امکانم هست که از Ping استفاده کنید ، برای مثال این Function رو ببینید
Private Function PingTest(ByVal DestinationAddress As String) As Boolean
Dim PingSender As New Ping
Dim FReturn As Boolean
Try
Dim PingReply As PingReply = PingSender.Send(DestinationAddress, 2000)
If PingReply.Status = IPStatus.Success Then
FReturn = True
Else
FReturn = False
End If
Catch ex As Exception
FReturn = False
End Try
Return FReturn
End Function
آی پی مقصد یا اسم دامنه رو بعنوان پارامتر به تابع بدید و خروجی تابع میتونه مبنای کار شما باشه برای توقف برنامه یا ادامه کار.
البته فضای نام زیر رو باید Import کنید
Imports System.Net.NetworkInformation
موفق باشید