SMS

SMS

VB. NET

VB.NET sample code to use Reson8 SMS API

Send an SMS message using Reson8 with VB. NET

Public Shared Function SendSMS(ByVal api_url As String, ByVal username As String, ByVal password As String, ByVal msg_body As String, ByVal msg_encoding As String, ByVal country_code As String, ByVal area_code As String, ByVal recipients As String, ByVal msg_header As String) As String

    Dim response As String = Nothing

    Dim request_data As New NameValueCollection()

    request_data.Add("SenderName", username)
    request_data.Add("Password", password)
    request_data.Add("MessageBody", msg_body)
    request_data.Add("Encoding", msg_encoding)
    request_data.Add("CountryCode", country_code)
    request_data.Add("AreaCode", area_code)
    request_data.Add("MessageRecipients", recipients)
    request_data.Add("MsgHeader", msg_header)
    request_data.Add("MCC", "")
    request_data.Add("MNC", "")

    Using wc As New WebClient()
        wc.Headers("Content-type") = "application/x-www-form-urlencoded"
        response = Encoding.ASCII.GetString(wc.UploadValues(api_url, "POST",
        request_data))
    End Using

    Return response
End Function