منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكله في موضوع الاتصال بالانترنت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكله في موضوع الاتصال بالانترنت (/showthread.php?tid=29655)

مشكله في موضوع الاتصال بالانترنت - dubai.eig - 20-05-19

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

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

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

إقتباس :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
المشكله يعلق كثير البرنامج
هل من حل
بارك الله فيكم

RE: مشكله في موضوع الاتصال بالانترنت - ابراهيم ايبو - 21-05-19

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

اليك هذا الرابط يشرح لك معالجة التهنيج واستخدام BackgroundWorker
ستستفيد منه ان شاء الله 
https://www.youtube.com/watch?v=e8pK-XWfx88&list=PLHIfW1KZRIfmLGhFsQ1G5cPv1xokzBsbT&index=133


RE: مشكله في موضوع الاتصال بالانترنت - dubai.eig - 21-05-19

(21-05-19, 03:42 AM)ابراهيم ايبو كتب :
السلام عليكم ورحمة الله وبركاته اخي خالد

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

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


انا حصلت طريقه اضافه ال BackgroundWorker

في module

بس ما ضبط معاي
[attachment=21532]


هذا الكود

كود :
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


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

RE: مشكله في موضوع الاتصال بالانترنت - dubai.eig - 22-05-19

تم حل الموضوع

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

كود :
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