Advanced Services - SMS Connectivity
VB for ASP.NET Sample application using HTTP to send a picture message
|
Advanced Services - SMS Connectivity VB for ASP.NET Sample application using HTTP to send a picture message |
|
The following sample application written in VB for ASP.NET sends a picture message to a single mobile telephone. The application uses HTTP to communicate with HSL's systems. To send to more than one mobile telephone at a time, separate each mobile number in the destaddr field by a comma (e.g. "447968000111,447720000111,3378100100").
<%@ Import Namespace="System.Text" %>
<%@ Import Namespace="System.Security.Cryptography" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>
<%@ Page Language="VB" %>
<html>
<head>
<title>Simple VBScript (ASP.NET) example for access to the HSL HTTP interface</title>
</head>
<body>
<%
' These variables fill out the various parts described in the
' interface specification
Const host = "sms.haysystems.com"
Const port = "80"
Const action = "sendnok"
Const client_id = "<your client_id>"
Const destaddr = "<some fully-qualified MSISDN>"
Const type = "pg"
Dim content
content = "50340a232043726561746564206279205061696e742053686f702050726f20370" _
& "a37322032380a0000000000000000000003ffffffffffffff0000000000000000" _
& "0000e0000000000000000338000000000000000cee00000000000000131b01f81" _
& "f8fe7c0006c06c0600618630000f001e0600630230000e000e0600630030000e0" _
& "00e0600618030000e000e060061c030000e000e060060f030000e000e07ffe078" _
& "30000e000e0600601c30000e000e0600600e30000e000e0600600730000e000e0" _
& "600600730000e000e0600620730080f001e0600630e301807c07c1f81fbf87ff8" _
& "01f1f000000000000000ffe0000000000000003f80000000000000000e0000000" _
& "000000000000000000000000000003ffffffffffffff000000000000000000"
Const text = "this is a test message"
Const secret = "<your secret>"
' Compute the MD5 hash
Dim md5 As New MD5CryptoServiceProvider()
Dim encoding As Encoding = Encoding.ASCII
Dim hashInput = secret & type & content & text & "00000" & destaddr
Dim hashInputBytes As Byte() = encoding.GetBytes(hashInput.ToCharArray())
Dim rawHash() As Byte = md5.ComputeHash(hashInputBytes)
' Convert the raw bytes into a string
Dim hash = ""
Dim i As Integer
For i = 0 To rawHash.GetLength(0) - 1
Dim coded As String = Convert.ToString(rawHash(i), 16)
If coded.Length = 1 Then
coded = "0" & coded
End If
hash = hash & coded
Next
' Build and encode the URL.
' Note we are careful to URL-encode the message content as it is
' the only part of the URL likely to contain reserved characters.
Dim url = "http://" & host & ":" & port & "/" & action & "/?client_id=" _
& client_id & "&destaddr=" & destaddr & "&type=" & type & "&content=" _
& content & "&text=" & Server.UrlEncode(text) & "&key=" & hash
'Create an HTTP request
Dim httpRequest As WebRequest = WebRequest.Create(url)
Dim httpResponse As WebResponse = httpRequest.GetResponse()
Dim stream As Stream = httpResponse.GetResponseStream()
Dim reader As New StreamReader(stream)
' Make the request and print the result
Response.Write("<p>Submission result: ")
Response.Write(reader.ReadToEnd())
Response.Write("</p>")
reader.Close()
%>
</body>
</html>
picture_message_http_example_vb.aspx
Copyright © Hay Systems Ltd 2004
Owner: support@haysystems.com 20 September 2004