Send SMS Gateway API for VB.NET

This command can be used to send text messages to either
individual numbers or entire contact groups.

	

Imports System.Net

Partial Class SendSMSHttpVB
   Inherits System.Web.UI.Page

   Protected Sub BtnSend_Click(sender As Object, e As System.EventArgs) Handles BtnSend.Click
       Dim myReq As HttpWebRequest = CType(WebRequest.Create("https://msg.msgclub.net/rest/services/sendSMS/sendGroupSms?AUTH_KEY=yourauthkey&message=" + txtmsg.Text + "&senderId=DEMOOS&routeId=1&mobileNos=" + txtMobile.Text + "&smsContentType=English"), System.Net.HttpWebRequest)
       Dim myResp As HttpWebResponse = CType(myReq.GetResponse(), HttpWebResponse)
       Dim respStreamReader As System.IO.StreamReader = New System.IO.StreamReader(myResp.GetResponseStream())

       Dim responseString As String = respStreamReader.ReadToEnd()
       respStreamReader.Close()
       myResp.Close()
   End Sub
End Class


	 

	

Imports System.Net
Imports System.IO

Partial Class SendSMSXMLVB
    Inherits System.Web.UI.Page

    Protected Sub BtnSend_Click(sender As Object, e As System.EventArgs) Handles BtnSend.Click
        Dim api_url As String = "https://msg.msgclub.net/rest/services/sendSMS/sendGroupSmsXmlApi"
        Dim xmls As String = "<Sms>" +
                     "<AUTH_KEY>YourAuthkey</AUTH_KEY>" +
                     "<smsContent>" + txtmsg.Text + "</smsContent>" +
                     "<senderId>DEMOOS</senderId>" +
                     "<routeId>1</routeId>" +
                     "<mobileNumbers>" + txtMobile.Text + "</mobileNumbers>" +
                     "<smsContentType>english</smsContentType></Sms>"

        postXMLData(api_url, xmls)

        ' "<signature>signature</signature>" +

        ' "<scheduleddate>20/07/2017 08:45</scheduleddate>" +
        '"<groupName></groupName>"
    End Sub

    Public Function postXMLData(ByVal destinationUrl As String, ByVal requestXml As String) As String
        Dim request As HttpWebRequest = CType(WebRequest.Create(destinationUrl), HttpWebRequest)
        Dim bytes() As Byte
        bytes = System.Text.Encoding.ASCII.GetBytes(requestXml)
        request.ContentType = "application/xml; encoding='utf-8'"
        request.ContentLength = bytes.Length
        request.Method = "POST"
        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(bytes, 0, bytes.Length)
        requestStream.Close()
        Dim response As HttpWebResponse
        response = CType(request.GetResponse(), HttpWebResponse)
        If response.StatusCode = HttpStatusCode.OK Then
            Dim responseStream As Stream = response.GetResponseStream()
            Dim responseStr As String = New StreamReader(responseStream).ReadToEnd()
            Return responseStr
        End If

        Return Nothing
    End Function
End Class

	

Frequently asked questions