اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

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

  • Like 2
رابط هذا التعليق
شارك

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

الكود صحيح 100%

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

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

check internet.rar

استاذي الحبيب 
القي نظرتا الى الصورة
MyShiv_2017-09-14_230721.png.c609c7cc637946673f7656dcc1b0a227.png

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

رابط هذا التعليق
شارك

السلام عليكم

....

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

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

تم تعديل بواسطه أبو نادر
  • Like 1
رابط هذا التعليق
شارك

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

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

 

 

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

 

233333333.png.c2a59aa3402ea1734667374212700be5.png

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

تحياتي

رابط هذا التعليق
شارك

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

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

pJkMz.jpg

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

420ea46e-5b8d-4123-8f25-a2fd37c08fc3.png

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

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

 

رابط هذا التعليق
شارك

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

 

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

 

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

  • Haha 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

اخيكم / ALcasir

  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information