Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    ' Just create a simple form button n click, you can use this method anywhere as well.
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' Create a request using a URL that can receive a post. 
        Dim request As WebRequest = WebRequest.Create("https://www.commzgate.net/gateway/SendMsg?")
        ' Set the Method property of the request to POST.
        request.Method = "POST"
        ' Enter your valid COMMZGATE ID / Password / Mobile Number
        Dim postData As String = "ID=xxxx&Password=xxxx&Mobile=6512345678&Message=Test&Type=A"
        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. Read the respond from console
        Console.WriteLine(responseFromServer)
        ' Clean up the streams.
        reader.Close()
        dataStream.Close()
        response.Close()
    End Sub
End Class