在VB中解析XML产生错误

Question

访问此网址：“ https://api.randomsite.com/api1/1/auth.asp?username=x&password=x ”

如果用户名和密码正确，则应生成此xml

<?xml version="1.0" encoding="ISO-8859-1" ?> 
<auth>
    <authentication>successful</authentication> 
    <token>{3FE7472B-E43C-442A-BE6D-2643239F3204}</token> 
    <expires>20110307</expires> 
</auth>

我正在尝试使用以下代码在VB.Net中访问此文件：

Dim Login As XDocument = XDocument.Load("https://api.randomsite.com/api1/1/auth.asp?username=" + Username.Text + "&password=" + Password.Text)
    Dim ResultofAuth As XElement = Login...<authentication>
    If ResultofAuth = "successful" Then
        Look Happy
    Else
        Look Sad because password probably incorrect!
    End If

但是我正在生成一个错误：

 Dim Login As XDocument = XDocument.Load("https://api.randomsite.com/api1/1/auth.asp?username=" + Username.Text + "&password=" + Password.Text)

该错误表明XDocument.Load不能用于外部xml文件。 是否有解决方法，可以使用Web上的xml文件？

Answer 1

使用Web客户端将流下载到文档，然后将流解析为XDocument类

Dim client As New WebClient()
AddHandler client.OpenReadCompleted,
    Sub(s As Object, e As OpenReadCompletedEventArgs)
        If e.Error Is Nothing Then
            Dim doc = XDocument.Load(e.Result)
            ''TODO: Parse document
        End If
    End Sub
client.OpenReadAsync(New Uri("https://api.randomsite.com/api1/1/auth.asp?username=x&password=x", UriKind.Absolute))