XML Posten - VB Code inside

BGrojer

Mitglied
... doch wie gehts in VB.NET ?

(ich möchte einen string (XML) an eine Page im Web schicken. In VB gings wie unten angeführt.

Danke!

VB / ASP Code:
Code:
Set obj_XmlDocRequest = CreateObject("MSXML2.DOMDocument")
Set obj_XmlHttp = CreateObject("MSXML2.XMLHTTP")
Set obj_XmlDocResponse = CreateObject("MSXML2.DOMDocument")

obj_XmlDocRequest.SetProperty "ServerHTTPRequest", False
obj_XmlDocRequest.Async = False
obj_XmlDocRequest.LoadXML(str_xml)

obj_XmlHttp.Open "POST", str_ServerUrl, False
obj_XmlHttp.Send obj_XmlDocRequest.xml
str_ResponseXml = obj_XmlHttp.ResponseXML.xml

obj_XmlDocResponse.setProperty "ServerHTTPRequest", True
obj_XmlDocResponse.async = False
obj_XmlDocResponse.LoadXML str_ResponseXml

int_status = CInt(obj_XmlDocResponse.getElementsByTagName("Code").item(0).text)
str_status_description = obj_XmlDocResponse.getElementsByTagName("CodeDescription").item(0).text

Set obj_XmlDocRequest = Nothing
Set obj_XmlHttp = Nothing
Set obj_XmlDocResponse  = Nothing
 
Zurück