[dubai.eig]

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

اواجه مشكله في حالت تعطل النت البررنامج عندي يعلق كثير

وتطلع لي رساله

إقتباس :Exception thrown: 'System.Net.NetworkInformation.PingException' in System.dll

لان عندي في البررنامج كم كود يشتغلون مع النت

وانا حاط هذا الكود في Module1.vb

كود :

   Public Function CheckInternetConnection() As Boolean

       Dim objPing As New System.Net.NetworkInformation.Ping

       Try
           Return If(objPing.Send("www.google.com").Status = Net.NetworkInformation.IPStatus.Success, True, False)
       Catch
           Return False
       End Try

   End Function

فكرة اعمل 
رBackgroundWorker
بس ما اعررف هل يضبط في Module1
المشكله يعلق كثير البرنامج
هل من حل
بارك الله فيكم

[ابراهيم ايبو]

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

اليك هذا الرابط يشرح لك معالجة التهنيج واستخدام BackgroundWorker

ستستفيد منه ان شاء الله 

https://www.youtube.com/watch?v=e8pK-XWf...&index=133

[dubai.eig]

(21-05-19, 03:42 AM)ابراهيم ايبو كتب :

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

اليك هذا الرابط يشرح لك معالجة التهنيج واستخدام BackgroundWorker

ستستفيد منه ان شاء الله 

https://www.youtube.com/watch?v=e8pK-XWf...&index=133

تسلم استاذي على الرد


انا حصلت طريقه اضافه ال 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

افيدوني بارك الله فيكم

[dubai.eig]

تم حل الموضوع

حصلت كود اشتغل معاي بدون تهنيق

كود :

Public Function CheckInternetConnection() As Boolean
       Try
           Using client = New WebClient()
               Using stream = client.OpenRead("http://www.google.com")
                   Return True
               End Using
           End Using
       Catch
           Return False
       End Try
   End Function