![]() |
![]() |
Protected Function getSession(ByVal Site As String) Dim req As WebRequest = WebRequest.Create(Site) Dim xmldom As New XmlDocument Dim request_xml As String Dim myWriter As StreamWriter xmldom.Load("~\XML\GetSessionTicket.xml") request_xml = xmldom.InnerXml req.Method = "POST" req.ContentLength = request_xml.Length req.ContentType = "application/x-qbmsxml" myWriter = New StreamWriter(req.GetRequestStream) myWriter.Write(request_xml) myWriter.Close() Dim resp As WebResponse = req.GetResponse() Dim s As Stream = resp.GetResponseStream() Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII) Dim doc As String = sr.ReadToEnd() Return doc End Function