VBScript SMS Script

Code Sample:

Dim sUrl,
Dim sAPI_ID, sPassword, sUsername, sMobileNo, sText
Dim oXMLHTTP, sPostData, sResult
sUrl = "http://api.aussiesms.com.au/?sendsms"
sPassword = "xxxx"
sMobileID = "xxxx"
sMobileNo = "xxxx"
sText = "This is an example message"
sPostData = sPostData & "&mobileID=" & sMobileID
sPostData = sPostData & "&password=" & sPassword
sPostData = sPostData & "&to=" & sMobileNo
sPostData = sPostData & "&text=" & sText
Set oXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
oXMLHTTP.Open "POST", sUrl, false
oXMLHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oXMLHTTP.Send sPostData
sResult = oXMLHTTP.responseText
Set oXMLHTTP = nothing
Response.Write sResult


Home | Services | Your Account | Support | Contact Us | SMS Coverage

SMS Gateway | Email SMS | Email SMS Notification | 2 Way SMS | Web SMS | Bulk Text SMS

PHP SMS Script | VB .Net SMS Script | VBScript SMS | ColdFusion SMS Script | C# SMS Script | Perl SMS Script

Extras | Mobile Phone Ringtones | Mobile Phone Wallpapers | Mobile Phone Games | Text Messages

Privacy Policy | Terms Of Use | Email Marketing

AussieSMS © Copyright 2004-2010. All rights reserved.