منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - استفسار :- بخصوص The remote name could not be resolved

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

عندي استفسار بخصوص مسج ال The remote name could not be resolved

عندي كود يسحب داتا من موقع معين

بس في حالت ان في عطل في النت
[attachment=21020]

يطلع لي هذا المسج
The remote name could not be resolved

[attachment=21021]

بس في حالت عدم وجود انترنت الامر يمشي عادي لان يوجد كود فحص النت

كود :

   Public Function CheckInternetConnection() As Boolean

        Try

            'Return My.Computer.Network.Ping("www.google.com")

            Return True

        Catch

            Return False

        End Try

    End Function

انا اريد في حالت وجود نت في هناك عطل يتجاوز المشكله هذه
[attachment=21020]
The remote name could not be resolved

هذا الكود الخاص بي

كود :

       If CheckInternetConnection() = True Then

            Dim url As String = String.Format("http://xmldata.qrz.com/xml/current/?username={0};password={1};agent=B", username, password)

            Dim document As XmlReader = New XmlTextReader(url)

            While (document.Read())

                Dim type = document.NodeType

                If (type = XmlNodeType.Element) Then

                    If (document.Name = "Key") Then

                        LKey.Text = document.ReadInnerXml

                    End If

                End If

            End While

        End If

حاولت اغير واكتب

كود :

If document.Read() = "" Then

ولكن ما ضبط

ان شاءالله احصل الحل بارك الله فيكم وشكرا

(02-03-19, 02:15 PM)dubai.eig كتب : [ -> ]السلام عليكم ورحمة الله

عندي استفسار بخصوص مسج ال The remote name could not be resolved

عندي كود يسحب داتا من موقع معين

بس في حالت ان في عطل في النت

يطلع لي هذا المسج
The remote name could not be resolved

بس في حالت عدم وجود انترنت الامر يمشي عادي لان يوجد كود فحص النت

كود :

Public Function CheckInternetConnection() As Boolean Try 'Return My.Computer.Network.Ping("www.google.com") Return True Catch Return False End Try End Function

انا اريد في حالت وجود نت في هناك عطل يتجاوز المشكله هذه

The remote name could not be resolved

هذا الكود الخاص بي

كود :

If CheckInternetConnection() = True Then Dim url As String = String.Format("http://xmldata.qrz.com/xml/current/?username={0};password={1};agent=B", username, password) Dim document As XmlReader = New XmlTextReader(url) While (document.Read()) Dim type = document.NodeType If (type = XmlNodeType.Element) Then If (document.Name = "Key") Then LKey.Text = document.ReadInnerXml End If End If End While End If

حاولت اغير واكتب

كود :

If document.Read() = "" Then

ولكن ما ضبط

ان شاءالله احصل الحل بارك الله فيكم وشكرا

الحمدالله بعد بحث ضبط معاي

قمت باضافه هذا الكود في البدايه

كود :

    Dim document As XmlReader = New XmlTextReader(url)

                    If Not (document Is Nothing) Then

                        'The node is present, do nothing

                    Else