فحص الاتصال بالانترنت عن طريق الأكواد

[ياسر خليل أبو البراء]

السلام عليكم ورحمة الله وبركاته

إخواني الكرام ..

بناءً على طلب الأخ الحبيب إبراهيم أبو ليلة

 

هل هناك كود يخبرنا بان

الجهاز متصل بالانترنت ام لا

أقدم لكم هذا الملف والذي يحتوي على دالتين معرفتين UDFs ، تقوم كلتا الدالتين بإرجاع القيمة True إذا كنت متصلاً بالانترنت ، وإرجاع القيمة False إذا كنت غير متصل بالانترنت .

كما يوجد داخل المرفق كود يظهر رسالة تفيد إتصالك بالانترنت من عدمه ...

لتحديث الدالة يرجى الضغط على Ctrl + ALT + F9  في حالة أردت تجربة الدوال ..

تقبلوا تحيات أخوكم أبو البراء

:fff:

Check Internet Connection.rar

تم تعديل مارس 18, 2015 بواسطه YasserKhalil

[إبراهيم ابوليله]

اخى ياسر

اشكرك على الاهتمام

بارك الله فيك

بقالى فتره ابحث على الانترنت

ولكن بالفعل اليوم حصلت على كودين وليس كود واحد كما كنت اطمع

اليك الكود الذى حصلت عليه

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

Private Const INTERNET_CONNECTION_MODEM As Long = &H1
Private Const INTERNET_CONNECTION_LAN As Long = &H2
Private Const INTERNET_CONNECTION_PROXY As Long = &H4
Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20

Function IsInternetConnected() As Boolean
    Dim L As Long
    Dim R As Long
    R = InternetGetConnectedState(L, 0&)
    If R = 0 Then
        IsInternetConnected = False
    Else
        If R <= 4 Then
            IsInternetConnected = True
        Else
            IsInternetConnected = False
        End If
    End If
End Function
'You would call this in your code with something like
Sub AAA()
    If IsInternetConnected() = False Then
        MsgBox "PC DOES NOT connect TO INTERNET " ' connected
  End If
   If IsInternetConnected() = True Then
        MsgBox "PC HAS connect TO INTERNET" ' no connected
    End If
End Sub

تقبل تحياتى