ياسر خليل أبو البراء قام بنشر مارس 18, 2015 قام بنشر مارس 18, 2015 (معدل) السلام عليكم ورحمة الله وبركاته إخواني الكرام .. بناءً على طلب الأخ الحبيب إبراهيم أبو ليلة هل هناك كود يخبرنا بان الجهاز متصل بالانترنت ام لا أقدم لكم هذا الملف والذي يحتوي على دالتين معرفتين UDFs ، تقوم كلتا الدالتين بإرجاع القيمة True إذا كنت متصلاً بالانترنت ، وإرجاع القيمة False إذا كنت غير متصل بالانترنت . كما يوجد داخل المرفق كود يظهر رسالة تفيد إتصالك بالانترنت من عدمه ... لتحديث الدالة يرجى الضغط على Ctrl + ALT + F9 في حالة أردت تجربة الدوال .. تقبلوا تحيات أخوكم أبو البراء :fff: Check Internet Connection.rar تم تعديل مارس 18, 2015 بواسطه YasserKhalil 1
إبراهيم ابوليله قام بنشر مارس 18, 2015 قام بنشر مارس 18, 2015 اخى ياسر اشكرك على الاهتمام بارك الله فيك بقالى فتره ابحث على الانترنت ولكن بالفعل اليوم حصلت على كودين وليس كود واحد كما كنت اطمع اليك الكود الذى حصلت عليه 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 تقبل تحياتى 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.