GetUnsubscribedNumbers

From CDYNE Wiki
Revision as of 17:39, 19 October 2017 by imported>Bdriggers (PHP with cURL)
Jump to navigation Jump to search

JSON

http://messaging.cdyne.com/Messaging.svc/GetUnsubscribedNumbers?LicenseKey=f01d89fd-5155-5455-5585-e84ab8de8591

C#

/*http://messaging.cdyne.com/Messaging.svc?wsdl was added as Service Reference and given the name WSDL*/

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; using GetUnsubscribedNumbers.WSDL;

namespace GetUnsubscribedNumbers {

   class Program
   {
       static void Main(string[] args)
       {
           MessagingClient client = new MessagingClient("mms2wsHttpBinding");
           UnsubscribedNumber[] resp = client.GetUnsubscribedNumbers(new Guid("f01d89fd-5155-5455-5585-e84ab8de8591"));
           foreach (var item in resp)
           {
               Console.WriteLine("Phone Number: " + item.PhoneNumber + Environment.NewLine + 
                                 "Entry Date: "+ item.EntryDate + Environment.NewLine + Environment.NewLine);
           }
               Console.ReadLine();
       }
   }

}

VB.Net

'http://messaging.cdyne.com/Messaging.svc?wsdl was added as Service Reference and given the name WSDL

Imports GetUnsubscribedNumbers.WSDL

Module Module1

   Sub Main()
       Dim client As WSDL.MessagingClient = New MessagingClient("mms2wsHttpBinding")
       Dim resp As GetUnsubscribedNumbers.WSDL.UnsubscribedNumber() = client.GetUnsubscribedNumbers(New Guid("f01d89fd-5155-5455-5585-e84ab8de8591"))
       For Each item In resp
           Console.WriteLine("Phone Number: " + item.PhoneNumber + Environment.NewLine +
                             "UTC Entry Date: " + item.EntryDate + Environment.NewLine)
       Next
       Console.ReadLine()
       client.Close()
   End Sub

End Module

PHP with cURL

<?php

$url='http://messaging.cdyne.com/Messaging.svc/GetUnsubscribedNumbers?LicenseKey=f01d89fd-5155-5455-5585-e84ab8de8591';

$ch = curl_init();

curl_setopt($ch,CURLOPT_URL,$url); curl_setopt($ch,CURLOPT_HTTPGET,true); curl_setopt($ch,CURLOPT_RETURNTRANSFER, true); curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: application/json','Accept: application/json'));

$response = curl_exec($ch); curl_close($ch);

$array = json_decode($response, true);

print_r($array);

?>

VBScript

Dim oXMLHTTP Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP") Set oDoc = CreateObject("MSXML2.DOMDocument")

Call oXMLHttp.Open("GET", "http://messaging.cdyne.com/Messaging.svc/GetUnsubscribedNumbers?LicenseKey=f01d89fd-5155-5455-5585-e84ab8de8591", False) Call oXMLHttp.setRequestHeader("Content-Type", "text/xml") Call oXMLHttp.send

MsgBox oXMLHTTP.responseText

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso, MyFile, FileName, TextLine Set fso = CreateObject("Scripting.FileSystemObject") FileName = "c:\Users\bdriggers\Desktop\MMS.txt" Set MyFile = fso.OpenTextFile(FileName, ForWriting, True) MyFile.WriteLine oXMLHttp.responseText MyFile.Close Set MyFile = fso.OpenTextFile(FileName, ForReading) Do While MyFile.AtEndOfStream <> True TextLine = MyFile.ReadLine Loop

MyFile.Close

set request = nothing