Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub Main() SndXML("http://dgpys.teias.gov.tr:80/dgpys/services/EVDServis", "lgn.xml") Console.Read() End Sub Sub SndXML(ByVal URL As String, ByVal fn As String) Dim strURL As String = URL Dim xmlDoc As XmlDocument = New XmlDocument() xmlDoc.Load(fn) Dim request As HttpWebRequest = WebRequest.Create(strURL) request.Method = "POST" request.ContentType = "text/xml" request.Timeout = 30 * 1000 Dim request_stream As Stream = request.GetRequestStream() xmlDoc.Save(request_stream) request_stream.Close() Dim response As HttpWebResponse = request.GetResponse() Dim r_stream As Stream = response.GetResponseStream() Dim response_stream As New StreamReader(r_stream, System.Text.Encoding.GetEncoding("utf-8")) Dim sOutput As String = response_stream.ReadToEnd() Console.Write(sOutput) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.