منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكله في موضوع الاتصال بالانترنت

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

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

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

إقتباس :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

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

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

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

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

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

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

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

تم حل الموضوع

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dubai.eig

ابراهيم ايبو

dubai.eig

dubai.eig