Imports System
Imports System.Net
Imports System.IO
Imports System.Text
 
Public Class Test
	Public Shared Sub Main()
		' Create a request using a URL that can receive a post.   
        Dim request As WebRequest = WebRequest.Create("http://w...content-available-to-author-only...h.in:8205/restPromo")
        ' Set the Method property of the request to POST.  
        request.Method = "POST"
        ' Create POST data and convert it to a byte array.  
        Dim postData As String = "username=nitco&password=nitco01&campaign-name=Nitco&to=9622205624&from=9622205624&text=Hello&unicode=True&dlr-url=202.177.175.171/fast-track"
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
        ' Set the ContentType property of the WebRequest.  
        request.ContentType = "application/x-www-form-urlencoded"
        ' Set the ContentLength property of the WebRequest.  
        request.ContentLength = byteArray.Length
        ' Get the request stream.  
        Dim dataStream As Stream = request.GetRequestStream()
        ' Write the data to the request stream.  
        dataStream.Write(byteArray, 0, byteArray.Length)
        ' Close the Stream object.  
        dataStream.Close()
        ' Get the response.  
        Dim response As WebResponse = request.GetResponse()
        ' Display the status.  
        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
        ' Get the stream containing content returned by the server.  
        dataStream = response.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.  
        Dim reader As New StreamReader(dataStream)
        ' Read the content.  
        Dim responseFromServer As String = reader.ReadToEnd()
        ' Display the content.  
        Console.WriteLine(responseFromServer)
        ' Clean up the streams.  
        reader.Close()
        dataStream.Close()
        response.Close()
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uTmV0CkltcG9ydHMgU3lzdGVtLklPCkltcG9ydHMgU3lzdGVtLlRleHQKClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQknIENyZWF0ZSBhIHJlcXVlc3QgdXNpbmcgYSBVUkwgdGhhdCBjYW4gcmVjZWl2ZSBhIHBvc3QuICAgCiAgICAgICAgRGltIHJlcXVlc3QgQXMgV2ViUmVxdWVzdCA9IFdlYlJlcXVlc3QuQ3JlYXRlKCJodHRwOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uaC5pbjo4MjA1L3Jlc3RQcm9tbyIpCiAgICAgICAgJyBTZXQgdGhlIE1ldGhvZCBwcm9wZXJ0eSBvZiB0aGUgcmVxdWVzdCB0byBQT1NULiAgCiAgICAgICAgcmVxdWVzdC5NZXRob2QgPSAiUE9TVCIKICAgICAgICAnIENyZWF0ZSBQT1NUIGRhdGEgYW5kIGNvbnZlcnQgaXQgdG8gYSBieXRlIGFycmF5LiAgCiAgICAgICAgRGltIHBvc3REYXRhIEFzIFN0cmluZyA9ICJ1c2VybmFtZT1uaXRjbyZwYXNzd29yZD1uaXRjbzAxJmNhbXBhaWduLW5hbWU9Tml0Y28mdG89OTYyMjIwNTYyNCZmcm9tPTk2MjIyMDU2MjQmdGV4dD1IZWxsbyZ1bmljb2RlPVRydWUmZGxyLXVybD0yMDIuMTc3LjE3NS4xNzEvZmFzdC10cmFjayIKICAgICAgICBEaW0gYnl0ZUFycmF5IEFzIEJ5dGUoKSA9IEVuY29kaW5nLlVURjguR2V0Qnl0ZXMocG9zdERhdGEpCiAgICAgICAgJyBTZXQgdGhlIENvbnRlbnRUeXBlIHByb3BlcnR5IG9mIHRoZSBXZWJSZXF1ZXN0LiAgCiAgICAgICAgcmVxdWVzdC5Db250ZW50VHlwZSA9ICJhcHBsaWNhdGlvbi94LXd3dy1mb3JtLXVybGVuY29kZWQiCiAgICAgICAgJyBTZXQgdGhlIENvbnRlbnRMZW5ndGggcHJvcGVydHkgb2YgdGhlIFdlYlJlcXVlc3QuICAKICAgICAgICByZXF1ZXN0LkNvbnRlbnRMZW5ndGggPSBieXRlQXJyYXkuTGVuZ3RoCiAgICAgICAgJyBHZXQgdGhlIHJlcXVlc3Qgc3RyZWFtLiAgCiAgICAgICAgRGltIGRhdGFTdHJlYW0gQXMgU3RyZWFtID0gcmVxdWVzdC5HZXRSZXF1ZXN0U3RyZWFtKCkKICAgICAgICAnIFdyaXRlIHRoZSBkYXRhIHRvIHRoZSByZXF1ZXN0IHN0cmVhbS4gIAogICAgICAgIGRhdGFTdHJlYW0uV3JpdGUoYnl0ZUFycmF5LCAwLCBieXRlQXJyYXkuTGVuZ3RoKQogICAgICAgICcgQ2xvc2UgdGhlIFN0cmVhbSBvYmplY3QuICAKICAgICAgICBkYXRhU3RyZWFtLkNsb3NlKCkKICAgICAgICAnIEdldCB0aGUgcmVzcG9uc2UuICAKICAgICAgICBEaW0gcmVzcG9uc2UgQXMgV2ViUmVzcG9uc2UgPSByZXF1ZXN0LkdldFJlc3BvbnNlKCkKICAgICAgICAnIERpc3BsYXkgdGhlIHN0YXR1cy4gIAogICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKENUeXBlKHJlc3BvbnNlLCBIdHRwV2ViUmVzcG9uc2UpLlN0YXR1c0Rlc2NyaXB0aW9uKQogICAgICAgICcgR2V0IHRoZSBzdHJlYW0gY29udGFpbmluZyBjb250ZW50IHJldHVybmVkIGJ5IHRoZSBzZXJ2ZXIuICAKICAgICAgICBkYXRhU3RyZWFtID0gcmVzcG9uc2UuR2V0UmVzcG9uc2VTdHJlYW0oKQogICAgICAgICcgT3BlbiB0aGUgc3RyZWFtIHVzaW5nIGEgU3RyZWFtUmVhZGVyIGZvciBlYXN5IGFjY2Vzcy4gIAogICAgICAgIERpbSByZWFkZXIgQXMgTmV3IFN0cmVhbVJlYWRlcihkYXRhU3RyZWFtKQogICAgICAgICcgUmVhZCB0aGUgY29udGVudC4gIAogICAgICAgIERpbSByZXNwb25zZUZyb21TZXJ2ZXIgQXMgU3RyaW5nID0gcmVhZGVyLlJlYWRUb0VuZCgpCiAgICAgICAgJyBEaXNwbGF5IHRoZSBjb250ZW50LiAgCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUocmVzcG9uc2VGcm9tU2VydmVyKQogICAgICAgICcgQ2xlYW4gdXAgdGhlIHN0cmVhbXMuICAKICAgICAgICByZWFkZXIuQ2xvc2UoKQogICAgICAgIGRhdGFTdHJlYW0uQ2xvc2UoKQogICAgICAgIHJlc3BvbnNlLkNsb3NlKCkKCUVuZCBTdWIKRW5kIENsYXNz