[سعود]

PHP كود :

Public Shared Function CheckForInternetConnection() As Boolean
    Try
        Using client = New WebClient()
            Using stream = client.OpenRead("http://www.google.com")
                Return True
            End Using
        End Using
    Catch
        Return False
    End Try
End Function 


اخي الكريم ضع الدالة باي مكان بالفورم ضمن كلاس الفورم وضمن حدث النقر لزر الامر اكتب

PHP كود :

if CheckForInternetConnection=false then
msgbox("no connection to internet")

end if