Sample Code

Check out some code samples to see how the components can actually be used inside your applications and web site.

     Dim sURL As String
     Dim objXMLHTTP As New MSXML2.XMLHTTP
     Dim objWAPPush As ServiceIndicationMessage
     Dim objPDU As WAPPDU

     Set objWAPPush = New ServiceIndicationMessage
     objWAPPush.URI = "http://www.yoururl.com"
     objWAPPush.MessageText = "Your message"
     objWAPPush.GeneratePDU

     For Each objPDU In objWAPPush.PDUs
          sURL = "http://api.clickatell.com/http/sendmsg?"
          sURL = sURL & "api_id=APIID&user=uid&password=pwd&"
          sURL = sURL & "to=&"
          sURL = sURL & "udh=" & objPDU.UserDataHeader & "&"
          sURL = sURL & "text=" & objPDU.MessageData

          objXMLHTTP."POST", sURL, False

          objXMLHTTP.send

          If Left(objXMLHTTP.responseText, 2) = "ID" Then
                    MsgBox "WAP Push Sent"
          End If
     Next

%>