منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] وجود شبكة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] وجود شبكة (/showthread.php?tid=42771)

وجود شبكة - عماد سلمان منذر - 10-10-22

لو سمحتم كيف استطيع على الفورم ان اعرف وجود شبكة او. لا على الكمبيوتر 
يعني وجود مؤشر على الفورم من وجود شبكة متصلة او غير متصلة على جهاز الكمبيوتر

RE: وجود شبكة - الماجيك مسعد - 10-10-22

كود :
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

طريقة الاستدعاء
CheckForInternetConnection()

True = النت شغال
False = لا يوجد نت