21-05-19, 08:25 PM
(21-05-19, 03:42 AM)ابراهيم ايبو كتب :السلام عليكم ورحمة الله وبركاته اخي خالد
اليك هذا الرابط يشرح لك معالجة التهنيج واستخدام BackgroundWorkerستستفيد منه ان شاء الله
تسلم استاذي على الرد
انا حصلت طريقه اضافه ال BackgroundWorker
في module
بس ما ضبط معاي
هذا الكود
كود :
Imports System.ComponentModel
Module Module1
Private WithEvents _myBackgroundWorker As BackgroundWorker
Private Sub MyBackgroundWorker_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles _myBackgroundWorker.DoWork
Dim objPing As New Net.NetworkInformation.Ping
Try
Return If(objPing.Send("www.google.com").Status = Net.NetworkInformation.IPStatus.Success, True, False)
Catch
Return False
End Try
End Sub
Public Function CheckInternetConnection() As Boolean
_myBackgroundWorker.RunWorkerAsync()
End Function
End Moduleافيدوني بارك الله فيكم

