[مالكـ]

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

التحقق من الاتصال بالانترنت

الادوات المستخدمة :
Label + BackgroundWorker

بالبداية : نقوم باستدعاء المكتبة

PHP كود :

Imports Microsoft.Win32 


نعمل متغير منطقي

PHP كود :

Dim internet As Boolean 


دبل كلك على اداة BackgroundWorker

PHP كود :

If My.Computer.Network.IsAvailable Then
            internet = True
        Else
            internet = False
        End If 


وفي حدث الاداة BackgroundWorker =RunWorkerCompleted

PHP كود :

If internet = True Then
            Label1.Text = "متصل"
           Else
            Label1.Text = "غير متصل"
                  End If
        BackgroundWorker1.RunWorkerAsync() 


وفي حدث الفورم = Load

PHP كود :

BackgroundWorker1.RunWorkerAsync() 


المثال : vb.net2008

  internet_check.rar (الحجم : 37.98 ك ب / التحميلات : 867)

---

عند تجربة المثال ..... قم بقطع الاتصال بالانترنت .... وشاهد الفورم

[mohammed moh]

بارك الله فيك أخي
شكرا جزيلا على المثال

[sooriaty03]

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

بارك الله فيك
وجعله في ميزان حسناتك

[العزابي]

جميل جداً ومفيد لي شخصياً أشكرك شكرا جزيلا

تحياتي

[مالكـ]

مشكور على مروركم العطر

[عبقري العرب]

شكرا اخي الكريم
افادني جدا هذا الكود

[سعود]

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

[ali.alfoly]

للاسف بعض البرامج الكبيرة اعتمدت على هذا الاسلوب الفاشل جدا
انظر برنامج Nokia_Suite
انا مشترك فى شبكة وصاحب الشبكة يستخدم نظام شهير اسمه ميكروتك
وهذا النظام له اساليب غريبة
تخيل انا مسجل دخول اليه واتصفح الانرنت عادى جدا
وايقونة الانترنت التى بجوار الساعة عليها علامة صفراء مما يدل على انها تقول لايوجد اتصال ههههه
نرجع لبرنامج Nokia_Suite تخيل النت واصل وكله تمام وعند فتح البرنامج يقولى تحقق من اتصالك بالانرنت وحاول مرة اخرى
اقوله ايه ده ؟؟
وبرامج اخرى لا اتذكرها الان كنت امر معها بهذه المشكلة
انا بفكر اعمل برنامج يحقق من التوصيل بالانرنت عن طريق اتصال بسيرفر معين ويرجع منه بقيمة معينه اذا رنجع يبقى النت واصل واذا فشل يبقى النت فاصل
وممكن اخلى البرنامج يعلم نظام التشغيل ان النت واص لاكن ليس لى خبرة فى هذا هى حتى الان مجرد فكرة

[Phenomenon1]

جزاك الله خيرا على الخاصية الرائعة و الشرح

[saad_aone]

بارك الله فيك