Products
INTEGRATED
STANDALONE
OTHER
Use this API to send text messages from Visual Basic.
Simple HTTP request
Encrypted communication over SSL
Long SMS (up to 765 characters)
Delivery status via function return code
Email replies
Public Shared Function SendSms(ByVal AccountID As String, ByVal Email As String, ByVal Password As String,
ByVal Recipient As String, ByVal Message As String) As Integer
Dim Client As WebClient = New WebClient
Dim URL As String
URL = ("http://www.redoxygen.net/sms.dll?Action=SendSMS" _
+ "&AccountId=" + AccountID _
+ "&Email=" + Email _
+ "&Password=" + Password _
+ "&Recipient=" + Recipient _
+ "&Message=" + Message)
Dim Response() As Byte = Client.DownloadData(URL)
Dim Result As String = Encoding.ASCII.GetString(Response)
Dim ResultCode As Integer = System.Convert.ToInt32(Result.Substring(0, 4))
Return ResultCode
End Function