1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Imports System.Xml
Imports System.Net
Imports System.IO
Private Sub MeineXMLAbfrage()
Dim url As String = "http://DieXMLDomaene/1234.xml"
Dim wrq As WebRequest = WebRequest.Create(url)
wrq.Proxy = New WebProxy("http://proxy.domaene.com:8080")
wrq.Proxy.Credentials = New NetworkCredential("User", "Passwort", "Domaene")
Dim wrp As WebResponse = wrq.GetResponse()
Dim myStream As System.IO.Stream
myStream = wrp.GetResponseStream()
'Dim reader As XmlReader = XmlReader.Create(url)
Dim myXMLreader As XmlReader = XmlReader.Create(myStream)
'...
End Sub
|