[مالكـ]

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

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

الادوات المستخدمة :
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)

---

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