[سؤال] التحقق من توصيل الجهاز بالانترنت

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim Proxy As New System.Net.WebProxy(Host:="193.193.192.2", port:="8080")

            Dim UserName_Password As New System.Net.NetworkCredential("اسم المستخدم", "كلمة السر")

            Proxy.Credentials = UserName_Password

            Dim req As System.Net.HttpWebRequest = System.Net.WebRequest.Create("http://www.facebook.com")

            req.Proxy = Proxy

            Dim res As System.Net.HttpWebResponse = req.GetResponse()

        Catch ex As Exception

            Select Case ex.Message

                Case "Unable to connect to the remote server"

                    'لا يوجد اتصال

                Case "The remote server returned an error: (407) Proxy Authentication Required."

                    'يحتاج إلى تصريح دخول إلى النت

                Case Else

            End Select

        End Try

End Sub

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If IsWebConnected() Then

            PictureBox1.BackgroundImage = My.Resources.Ok

            PictureBox1.BackgroundImageLayout = ImageLayout.Center

            Label1.Text = "You Are Connected To The Internet"

        Else

            PictureBox1.BackgroundImage = My.Resources.Delete

            PictureBox1.BackgroundImageLayout = ImageLayout.Center

            Label1.Text = "You Are Not Connected To The Internet"

        End

كود :

Module Module1

    Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

    Private Const CONNECT_LAN As Long = &H2

    Private Const CONNECT_MODEM As Long = &H1

    Private Const CONNECT_PROXY As Long = &H4

    Private Const CONNECT_OFFLINE As Long = &H20

    Private Const CONNECT_CONFIGURED As Long = &H40

    Private Const CONNECT_RAS As Long = &H10





    Public Function IsWebConnected(Optional ByRef ConnType As String = "") As Boolean

        Dim dwflags As Long

        Dim WebTest As Boolean

        WebTest = InternetGetConnectedState(dwflags, 0&)

        Select Case WebTest

            Case dwflags And CONNECT_LAN : ConnType = "LAN"

            Case dwflags And CONNECT_MODEM : ConnType = "Modem"

            Case dwflags And CONNECT_PROXY : ConnType = "Proxy"

            Case dwflags And CONNECT_OFFLINE : ConnType = "Offline"

            Case dwflags And CONNECT_CONFIGURED : ConnType = "Configured"

            Case dwflags And CONNECT_RAS : ConnType = "Remote"

        End Select

        IsWebConnected = WebTest



    End Function

End Module

PHP كود :

'- اريد شرح هذه الدالة بالتفصيل وكيف تم عملها فى سطر واحد
    Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
    '- ما هذه المتغيرات
    '- وما &H2 و &H1 و &H4 ووووو
    Private Const CONNECT_LAN As Long = &H2
    Private Const CONNECT_MODEM As Long = &H1
    Private Const CONNECT_PROXY As Long = &H4
    Private Const CONNECT_OFFLINE As Long = &H20
    Private Const CONNECT_CONFIGURED As Long = &H40
    Private Const CONNECT_RAS As Long = &H10


    Public Function IsWebConnected(Optional ByRef ConnType As String = "") As Boolean
        Dim dwflags As Long
        Dim WebTest As Boolean
        WebTest = InternetGetConnectedState(dwflags, 0&)
        Select Case WebTest
            '- dwflags هى من نوع لونج كيف يتم التحقق منها
            '- اريد شرح هذه الطريقة فى التحقق
            Case dwflags And CONNECT_LAN : ConnType = "LAN"
            Case dwflags And CONNECT_MODEM : ConnType = "Modem"
            Case dwflags And CONNECT_PROXY : ConnType = "Proxy"
            Case dwflags And CONNECT_OFFLINE : ConnType = "Offline"
            Case dwflags And CONNECT_CONFIGURED : ConnType = "Configured"
            Case dwflags And CONNECT_RAS : ConnType = "Remote"
        End Select
        IsWebConnected = WebTest

    End Function