ارغب بكود يتحقق بالاتصال بالانترنت

[alcasir]

السلام عليكم

باختصار ارغب في وضع كود عند فتح النموذج يتحقق بان الكومبيوتر متصل بالانترنت

اذا لم يكن متصل تظهر رسالة تفيد بان هذا الجهاز غيرمتصل بالانترنت و يخرج تلقائيا من قاعدة البيانات

ارجو ان يكوم سؤالي واضح ولا اعتقد يحتاج الى مرفق

تحياتي

Alcasir

[أ / محمد صالح]

يمكنك استعمال هذا الكود

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
If InternetGetConnectedState(0&, 0&) Then
'code if conected
Else
MsgBox "تأكد من اتصالك بالانترنت"
End If

مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول

وكود الشرط يمكن تضمينه في أي إجراء أو حدث

وفقنا الله وإياكم لكل خير

[Shivan Rekany]

13 ساعات مضت, أ / محمد صالح said:

يمكنك استعمال هذا الكود

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
If InternetGetConnectedState(0&, 0&) Then
'code if conected
Else
MsgBox "تأكد من اتصالك بالانترنت"
End If

مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول

وكود الشرط يمكن تضمينه في أي إجراء أو حدث

وفقنا الله وإياكم لكل خير

انا جربت الكود وعطيت مسج اذه هناك متصل بيقول متصل
لكن انا قطعت النيت من الجهاز وبعد في كلا الحالتين بيقول متصل 
لذا ارجوا من حضرتك ان تصحح الكود لان هذا الكود صغيرة وبدل ان استخدم موديول راح استخدم هذا الكود اذا صححته

تقبل تحياتي

[أ / محمد صالح]

الكود صحيح 100%

ويعمل بكفاءة عالية ومجرب في أكثر من موضع

وهذا ملف بسيط للتجربة وموافاتي بالنتيجة حتى نتوصل لأسباب عدم عمل البرنامج مع الأستاذ شيفان كما هو مطلوب

check internet.rar

[Shivan Rekany]

11 ساعات مضت, أ / محمد صالح said:

الكود صحيح 100%

ويعمل بكفاءة عالية ومجرب في أكثر من موضع

وهذا ملف بسيط للتجربة وموافاتي بالنتيجة حتى نتوصل لأسباب عدم عمل البرنامج مع الأستاذ شيفان كما هو مطلوب

check internet.rar

استاذي الحبيب 
القي نظرتا الى الصورة

فی کلا الحالتین ای قطعت الاتصال من لابتوب و بعد بيقول لي انت متصل  
اي في حالة عدم النيت بيقول انت مصتل بالنيت

[أبو نادر]

السلام عليكم

....

ملف الأستاذ محمد عمل معي بكفائه

جميل لو كان يعمل باستمرار كالعين الساهره ... وعند (الاتصال) بعد قطع الاتصال اثناء عمل البرنامج يرتبط اتوماتيكيا بالقاعدة ..

تم تعديل سبتمبر 15, 2017 بواسطه أبو نادر

[أبو نادر]

اخ شيفان علامة الاتصال لديك ان هناك اتصال ولكن توجد مشكله فيه

 

 

جرب تعطيل الاتصال نهائيا

 

[Shivan Rekany]

21 دقائق مضت, أبو نادر said:

اخ شيفان علامة الاتصال لديك ان هناك اتصال ولكن توجد مشكله فيه

 

 

جرب تعطيل الاتصال نهائيا

 

اخي .. انا عم استعمل واي فاي 
و انا عند اضغط على زر ايف12 ( لا يظهر اي شبكات ) اي يقطع الاتصال 
انا عند استخدام موديول بيعطيني ان الاتصال مقطوع لكن باستخدام هذا الكود لا يقول لي ان الاتصال مقطوع

تحياتي

[أ / محمد صالح]

فعلا رمز الاتصال لديك أخي الكريم لا يدل على أن الاتصال مقطوع

فهذا رمز قطع الاتصال في اللان

وهذا رمز قطع الاتصال في الوايرلس

.............

الغريب أننا لم نتلق أي رد من صاحب السؤال!!

 

[ابوخليل]

11 ساعات مضت, أ / محمد صالح said:

 

الغريب أننا لم نتلق أي رد من صاحب السؤال!!

 

ازيدك من الشعر بيت  @alcasir  كتب موضوعا جديدا منذ ساعة او ساعتين

[alcasir]

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

اعذروني على عدم الرد وقد انشغلت بموضع اخر..

 في الحقيقة اخجلتوني في سرعة الردود والتجاوب  من بعض الاخوه

نعم بالفعل هذا هو عين الملطوب والامثله المطروحه كانت بالفعل رائعه ومفيده

والكود بالفعل رائع ويعمل بامتياز 

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

شاكر لكم جميعا

واكرر اعتذاري مره اخرى

اخيكم / ALcasir