[英]Parsing XML in VB Generating Error
Visiting this url: " https://api.randomsite.com/api1/1/auth.asp?username=x&password=x " 访问此网址:“ https://api.randomsite.com/api1/1/auth.asp?username=x&password=x ”
Should generate this xml if the username and password are correct 如果用户名和密码正确,则应生成此xml
<?xml version="1.0" encoding="ISO-8859-1" ?>
<auth>
<authentication>successful</authentication>
<token>{3FE7472B-E43C-442A-BE6D-2643239F3204}</token>
<expires>20110307</expires>
</auth>
I am trying to access this in VB.Net with this code: 我正在尝试使用以下代码在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
But I am generating an error with this: 但是我正在生成一个错误:
Dim Login As XDocument = XDocument.Load("https://api.randomsite.com/api1/1/auth.asp?username=" + Username.Text + "&password=" + Password.Text)
The error says that XDocument.Load cannot be for external xml files. 该错误表明XDocument.Load不能用于外部xml文件。 Is there a workaround to use an xml file from the web? 是否有解决方法,可以使用Web上的xml文件?
Use a web client to download the stream to the document, then parse the stream into the XDocument class 使用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))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.