[ali.alfoly]

السلام عليكم ورحمة الله
جزاكم الله خيرا وجعله فى موازين حسناتكم
اخى الحبيب
لا ادرى لما الخطاء دائما يعود
Unable to connect to the remote server
هههه sooriaty03
حتى مع توصيل الانرنت وصحة البنات ( الاسم وكلمة السر )

اخى الكريم اسامة جزاك الله خيرا
رجاء خاص منك او من اى احد من الاخوة جزاكم الله خيرا شرح هذا الكود لان فيه اشياء اول مرة اراها

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