السلام عليكم ورحمة الله وبركاتة
التحقق من الاتصال بالانترنت
الادوات المستخدمة :التحقق من الاتصال بالانترنت
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 ك ب / التحميلات : 844)
عند تجربة المثال ..... قم بقطع الاتصال بالانترنت .... وشاهد الفورم