[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

ولكن ما ضبط


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

[dubai.eig]

(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