Sub Execute() Dim request As HttpWebRequest = CType(WebRequest.Create("http://localhost:9996/Services2/svcTickets.asmx"), HttpWebRequest) request.Method = "POST" request.Host = "localhost:9996" request.ContentType = "text/xml; charset=utf-8" request.Headers.Add("SOAPAction", "http://localhost:9996/Services2/svcTickets.asmx?op=CreateTicket") request.Method = "POST" Dim soapEnvelopeXml As New XmlDocument() soapEnvelopeXml.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?>" & ControlChars.CrLf & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & ControlChars.CrLf & "<soap:Body>" & ControlChars.CrLf & "<CreateTicket xmlns=""http://localhost:9996/Services2/svcTickets.asmx"">" & ControlChars.CrLf & "<authUserName>admin</authUserName>" & ControlChars.CrLf & "<authPassword>teste123</authPassword>" & ControlChars.CrLf & "<departmentID>3</departmentID>" & ControlChars.CrLf & "<groupId>3</groupId>" & ControlChars.CrLf & "<userIdOfAgent>2</userIdOfAgent>" & ControlChars.CrLf & "<toAddress>teste@teste.pt</toAddress>" & ControlChars.CrLf & "<subject>test</subject>" & ControlChars.CrLf & "<body>teste</body>" & ControlChars.CrLf & "<isHtml>True</isHtml>" & ControlChars.CrLf & "<setWaiting>True</setWaiting>" & ControlChars.CrLf & "<sendEmail>True</sendEmail>" & ControlChars.CrLf & "</CreateTicket>" & ControlChars.CrLf & "</soap:Body>" & ControlChars.CrLf & "</soap:Envelope>") Using stream As Stream = request.GetRequestStream() soapEnvelopeXml.Save(stream) End Using Using response As WebResponse = request.GetResponse() Using rd As New StreamReader(response.GetResponseStream()) Dim soapResult As String = rd.ReadToEnd() Console.WriteLine(soapResult) End Using End Using End Sub
http://localhost:9996/Services2/svcTickets.asmx/CreateTicket
Trouble logging in? Simply enter your email address OR username in order to reset your password.
For faster and more reliable delivery, add noreply@smartertools.com to your trusted senders list in your email software.