VB.net

From CDYNE Wiki
Jump to: navigation, search

Back to Phone Notify!

Contents

Notify Phone Basic

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyPhoneBasic.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
 
NR = PN.NotifyPhoneBasic("17575449510", "Hello, this is a test message.", "18009843710", "Test Call", "1", "YOUR LICENSE KEY")
 
Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
"Response Code: " & NR.ResponseCode & vbLf &
"Response Text: " & NR.ResponseText & vbLf)
 
Console.ReadLine()
 
End Sub
 
End Module

Notify Phone Advanced

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyPhoneAdvanced.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim ANR As New WSDL.AdvancedNotifyRequest
Dim NR As WSDL.NotifyReturn
 
ANR.CallerIDName = "CDYNE"
ANR.CallerIDNumber = "18009843710"
ANR.PhoneNumberToDial = "17575449510x3132"
ANR.TextToSay = "Hello. This is a test call."
ANR.VoiceID = 1
ANR.StatusChangePostUrl = "http://www.yourpostbackurl.com" 'Optional
ANR.UTCScheduledDateTime = DateTime.UtcNow
'ANR.UTCScheduledDateTime = new DateTime(2012, 12, 18, 11, 36, 0).ToUniversalTime()
'If scheduling calls, the local time will automatically be converted to UTC time when using the line of code above.
ANR.LicenseKey = "YOUR LICENSE KEY"
 
NR = PN.NotifyPhoneAdvanced(ANR)
 
Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
"Response Code: " & NR.ResponseCode & vbLf &
"Response Text: " & NR.ResponseText & vbLf)
 
Console.ReadLine()
 
End Sub
 
End Module
 
'Additional parameters you may include within your request.
 
'ANR.TransferNumber
'ANR.TryCount
'ANR.NextTryInSeconds
'ANR.TTSrate
'ANR.TTSvolume
'ANR.MaxCallLength
'ANR.ReferenceID

Assign Incoming Number

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports AssignIncomingNumber.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim IncomingNumber As Boolean
 
IncomingNumber = PN.AssignIncomingNumber("15551234567", "YOUR LICENSE KEY")
Console.WriteLine("Incoming Number Assigned: " & IncomingNumber)
 
Console.ReadLine()
 
End Sub
 
End Module

Cancel Conference

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports CancelConference.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
 
PN.CancelConference("CONFERENCE KEY")
 
End Sub
 
End Module

Cancel Notify

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports CancelNotify.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Cancelled As Boolean
 
Cancelled = PN.CancelNotify(012345678, "YOUR LICENSE KEY")
 
Console.WriteLine("Notification Cancelled: " & Cancelled)
 
Console.ReadLine()
 
End Sub
 
End Module

Cancel Notify By Reference ID

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports CancelNotifyByReferenceID.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Cancelled As Integer
 
Cancelled = PN.CancelNotifyByReferenceID("123", "YOUR LICENSE KEY")
 
If (Cancelled = 0) Then
 
Console.WriteLine("Notifification Cancelled: False")
 
Else : Console.WriteLine("Notification Cancelled: True")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Get Assigned Numbers

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetAssignedNumbers.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Assigned As Array
 
Assigned = PN.GetAssignedNumbers("YOUR LICENSE KEY")
 
If (Assigned.Length > 0) Then
 
Console.WriteLine("Numbers Assigned: " & vbLf)
 
For Each Numbers As String In Assigned
 
Console.WriteLine(Numbers)
 
Next
 
Else : Console.WriteLine("No numbers assigned.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Get Available Area Codes

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetAvailableAreaCodes.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Incoming As Array
 
Incoming = PN.GetAvailableAreaCodes()
 
If (Incoming.Length > 0) Then
 
Console.WriteLine("Available Area Codes:" & vbLf)
 
For Each Area As WSDL.AreaCode In Incoming
 
Console.WriteLine(Area.AreaCodeNumber & " " & Area.Location)
 
Next
 
Else : Console.WriteLine("No area codes available.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Get Available Incoming Numbers

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetAvailableIncomingNumbers.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Incoming As Array
 
Incoming = PN.GetAvailableIncomingNumbers("888")
 
If (Incoming.Length > 0) Then
 
Console.WriteLine("Available Incoming Numbers:" & vbLf)
 
For Each Number In Incoming
 
Console.WriteLine(Number)
 
Next
 
Else : Console.WriteLine("No incoming numbers available.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Get Incoming Call Script

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetIncomingCallScript.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New NotifyReturn
Dim Script As String
 
Script = PN.GetIncomingCallScript("15551234567", "YOUR LICENSE KEY")
 
Console.WriteLine(Script)
Console.ReadLine()
 
End Sub
 
End Module

Get Multiple Queue ID Status

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetMultipleQueueIdStatus.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Status As Array
 
Status = PN.GetMultipleQueueIdStatus("012345678; 876543210", "YOUR LICENSE KEY")
 
If (Status.Length > 0) Then
 
For Each Info As WSDL.NotifyReturn In Status
 
Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
"Response Code: " & Info.ResponseCode & vbLf &
"Response Text: " & Info.ResponseText & vbLf &
"Call Answered: " & Info.CallAnswered & vbLf &
"Try Count: " & Info.TryCount & vbLf &
"Demo: " & Info.Demo & vbLf &
"Digits Pressed: " & Info.DigitsPressed & vbLf &
"Machine Detection: " & Info.MachineDetection & vbLf &
"Duration: " & Info.Duration & vbLf &
"Start Time: " & Info.StartTime & vbLf &
"End Time: " & Info.EndTime & vbLf &
"Minute Rate: " & Info.MinuteRate & vbLf &
"Call Complete: " & Info.CallComplete & vbLf)
Next
 
Else : Console.WriteLine("No information found.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Get Queue ID Status

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetQueueIDStatus.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
 
NR = PN.GetQueueIDStatus(012345678)
 
Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
"Response Code: " & NR.ResponseCode & vbLf &
"Response Text: " & NR.ResponseText & vbLf &
"Call Answered: " & NR.CallAnswered & vbLf &
"Try Count: " & NR.TryCount & vbLf &
"Demo: " & NR.Demo & vbLf &
"Digits Pressed: " & NR.DigitsPressed & vbLf &
"Machine Detection: " & NR.MachineDetection & vbLf &
"Duration: " & NR.Duration & vbLf &
"Start Time: " & NR.StartTime & vbLf &
"End Time: " & NR.EndTime & vbLf &
"Minute Rate: " & NR.MinuteRate & vbLf &
"Call Complete: " & NR.CallComplete & vbLf)
 
Console.ReadLine()
 
End Sub
 
End Module

Get Queue ID Statuses By Phone Number

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetQueueIDStatusesByPhoneNumber.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Status As Array
 
Status = PN.GetQueueIDStatusesByPhoneNumber("17575449510", "YOUR LICENSE KEY")
 
If (Status.Length > 0) Then
 
For Each Info As WSDL.NotifyReturn In Status
 
Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
"Response Code: " & Info.ResponseCode & vbLf &
"Response Text: " & Info.ResponseText & vbLf &
"Call Answered: " & Info.CallAnswered & vbLf &
"Try Count: " & Info.TryCount & vbLf &
"Demo: " & Info.Demo & vbLf &
"Digits Pressed: " & Info.DigitsPressed & vbLf &
"Machine Detection: " & Info.MachineDetection & vbLf &
"Duration: " & Info.Duration & vbLf &
"Start Time: " & Info.StartTime & vbLf &
"End Time: " & Info.EndTime & vbLf &
"Minute Rate: " & Info.MinuteRate & vbLf &
"Call Complete: " & Info.CallComplete & vbLf)
 
Next
 
Else : Console.WriteLine("No information found.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Get Queue ID Statuses With Advanced Info

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetQueueIDStatusWithAdvancedInfo.WSDL
Module Module1
 
Sub Main()
 
Dim PN = New WSDL.PhoneNotify
Dim NR = New WSDL.NotifyReturn
 
NR = PN.GetQueueIDStatusWithAdvancedInfo(012345678, "YOUR LICENSE KEY")
 
Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
"Response Code: " & NR.ResponseCode & vbLf &
"Response Text: " & NR.ResponseText & vbLf &
"Call Answered: " & NR.CallAnswered & vbLf &
"Try Count: " & NR.TryCount & vbLf &
"Demo: " & NR.Demo & vbLf &
"Digits Pressed: " & NR.DigitsPressed & vbLf &
"Machine Detection: " & NR.MachineDetection & vbLf &
"Duration: " & NR.Duration & vbLf &
"Start Time: " & NR.StartTime & vbLf &
"End Time: " & NR.EndTime & vbLf &
"Minute Rate: " & NR.MinuteRate & vbLf &
"Call Complete: " & NR.CallComplete & vbLf &
"Text to Say: " & NR.TextToSay)
 
Console.ReadLine()
 
End Sub
 
End Module

Get Response Codes

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetResponseCodes.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Response As Array
 
Response = PN.GetResponseCodes()
 
For Each Codes As WSDL.Response In Response
 
Console.WriteLine("Response Code: " & Codes.ResponseCode & vbLf &
"Response Text: " & Codes.ResponseText & vbLf)
 
Next
 
Console.ReadLine()
 
End Sub
 
End Module

Get Sound File

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetSoundFile.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
Dim File As Array
Dim Sound As String
 
File = PN.GetSoundFile("testsoundfile_wav", "YOUR LICENSE KEY")
 
Sound = Convert.ToBase64String(File)
 
Console.WriteLine(Sound)
 
Console.ReadLine()
 
End Sub
 
End Module

Get Sound File In MP3

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetSoundFileInMP3.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
Dim MP3 As Array
Dim FS As System.IO.FileStream
 
MP3 = PN.GetSoundFileInMP3("testsoundfile_wav", 128, "YOUR LICENSE KEY")
 
FS = New System.IO.FileStream("C:\Users\Desktop\testsoundfile.mp3", System.IO.FileMode.Create, System.IO.FileAccess.Write)
 
FS.Write(MP3, 0, MP3.Length)
FS.Close()
 
Console.WriteLine("File saved to: " & "C:\Users\Desktop\testsoundfile.mp3")
 
Console.ReadLine()
 
End Sub
 
End Module

Get Sound File In Ulaw

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetSoundFileInUlaw.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
Dim ULAW As Array
Dim FS As System.IO.FileStream
 
ULAW = PN.GetSoundFileInUlaw("testsoundfile_wav", "YOUR LICENSE KEY")
 
FS = New System.IO.FileStream("C:\Users\Desktop\testsoundfile.ulaw", System.IO.FileMode.Create, System.IO.FileAccess.Write)
 
FS.Write(ULAW, 0, ULAW.Length)
FS.Close()
 
Console.WriteLine("File saved to: " & "C:\Users\Desktop\testsoundfile.ulaw")
 
Console.ReadLine()
End Sub
 
End Module

Get Sound File Length

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetSoundFileLength.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Length As Double
 
Length = PN.GetSoundFileLength("testsoundfile_wav", "YOUR LICENSE KEY")
 
Console.WriteLine("Sound File Length: " & Length.ToString() & " seconds")
 
Console.ReadLine()
 
End Sub
 
End Module

Get Sound File URL

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetSoundFileURL.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim URL As String
 
URL = PN.GetSoundFileURL("testsoundfile_wav", "YOUR LICENSE KEY")
 
Console.WriteLine("Sound File URL: " & URL)
 
Console.ReadLine()
 
End Sub
 
End Module

Get TTS In MP3

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetTTSInMP3.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
Dim MP3 As Array
Dim FS As System.IO.FileStream
 
MP3 = PN.GetTTSInMP3("Hello this phone notify TTS to MP3 test.", 2, 128, 6, 100, "YOUR LICENSE KEY")
 
FS = New System.IO.FileStream("C:\Users\Desktop\TTS-MP3.mp3", System.IO.FileMode.Create, System.IO.FileAccess.Write)
 
FS.Write(MP3, 0, MP3.Length)
FS.Close()
 
Console.WriteLine("File saved to: " & "C:\Users\Desktop\TTS-MP3.mp3")
 
Console.ReadLine()
 
End Sub
 
End Module

Get TTS In ULAW

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetTTSInULAW.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
Dim ULAW As Array
Dim FS As System.IO.FileStream
 
ULAW = PN.GetTTSInULAW("Hello this phone notify TTS to ULAW test.", 2, 6, 2, "YOUR LICENSE KEY")
 
FS = New System.IO.FileStream("C:\Users\Desktop\TTS-ULAW.ulaw", System.IO.FileMode.Create, System.IO.FileAccess.Write)
 
FS.Write(ULAW, 0, ULAW.Length)
FS.Close()
 
Console.WriteLine("File saved to: " & "C:\Users\Desktop\TTS-ULAW.ulaw")
 
Console.ReadLine()
 
End Sub
 
End Module

Get Version

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetVersion.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim Version As String
 
Version = PN.GetVersion()
 
Console.WriteLine("Phone Notify! API Version: " & Version)
 
Console.ReadLine()
 
End Sub
 
End Module

Get Voices

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports getVoices.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim List As Array
 
List = PN.getVoices()
 
For Each Voices As Voice In List
 
Console.WriteLine("Voice ID: " & Voices.VoiceID & vbLf &
"Voice Name: " & Voices.VoiceName & vbLf &
"Voice Gender: " & Voices.VoiceGender & vbLf &
"Voice Age: " & Voices.VoiceAge & vbLf &
"Voice Language: " & Voices.VoiceLanguage & vbLf &
"Voice Summary: " & Voices.VoiceSummary & vbLf)
 
Next
 
Console.ReadLine()
 
End Sub
 
End Module

License Key Variable Load

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LicenseKeyVariableLoad.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim Variable As String
 
Variable = PN.LicenseKeyVariableLoad("Test Variable", "YOUR LICENSE KEY")
 
Console.WriteLine("Value of Variable Loaded: " & Variable)
 
Console.ReadLine()
 
End Sub
 
End Module

License Key Variable Save

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LicenseKeyVariableSave.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim Variable As Boolean
 
Variable = PN.LicenseKeyVariableSave("Test Variable", "123456789", "YOUR LICENSE KEY")
 
Console.WriteLine("Variable Saved: " & Variable)
 
Console.ReadLine()
 
End Sub
 
End Module

LM Add List Member

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_AddListMember.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Member As Integer
 
Member = PN.LM_AddListMember(12345, "YOUR LICENSE KEY", "17575449510", "1", "CDYNE", "Corporation")
 
Console.WriteLine("Member ID: " & Member)
 
Console.ReadLine()
 
End Sub
 
End Module

LM Add New List

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_AddNewList.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim List As Integer
 
List = PN.LM_AddNewList("Test List", 0, "YOUR LICENSE KEY")
 
Console.WriteLine("List ID: " & List)
 
Console.ReadLine()
 
End Sub
 
End Module

LM Alter List ID

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_AlterListID.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim Altered As Boolean
 
Altered = PN.LM_AlterListID(12345, 0, "New Test List", "YOUR LICENSE KEY")
 
Console.WriteLine("List ID Altered: " & Altered)
 
Console.ReadLine()
 
End Sub
 
End Module

LM Alter List Member

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_AlterListMember.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Member As Boolean
 
Member = PN.LM_AlterListMember(98765, "YOUR LICENSE KEY", "1", "CDYNE", "Corp", "17575449510")
 
Console.WriteLine("List Member Altered: " & Member)
 
Console.ReadLine()
 
End Sub
 
End Module

LM Delete List

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_DeleteList.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim Deleted As Boolean
 
Deleted = PN.LM_DeleteList(12345, "YOUR LICENSE KEY")
 
Console.WriteLine("List Deleted: " & Deleted)
 
Console.ReadLine()
 
End Sub
 
End Module

LM Delete List Member

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_DeleteListMember.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim Member As Boolean
 
Member = PN.LM_DeleteListMember(98765, "YOUR LICENSE KEY")
 
Console.WriteLine("Member Deleted: " & Member)
 
Console.ReadLine()
 
End Sub
 
End Module

LM Get List IDs By License Key

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_GetListIDsByLicenseKey.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim List As Array
 
List = PN.LM_GetListIDsByLicensekey("YOUR LICENSE KEY")
 
If (List.Length > 0) Then
 
For Each ListIDs As WSDL.LM_ListIDs In List
 
Console.WriteLine("List ID: " & ListIDs.ListID & vbLf &
"List Name: " & ListIDs.ListName & vbLf &
"Parent List ID: " & ListIDs.ParentListID & vbLf)
Next
 
Else : Console.WriteLine("No List IDs found.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

LM Get List Members By List ID

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports LM_GetListMembersByListID.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New PhoneNotify
Dim List As Array
 
List = PN.LM_GetListMembersByListID(12345, "YOUR LICENSE KEY")
 
If (List.Length > 0) Then
 
For Each Members As WSDL.LM_ListMembers In List
 
Console.WriteLine("List Member ID: " & Members.ListMemberID & vbLf &
"Phone Number: " & Members.PhoneNumber & vbLf &
"Member Name: " & Members.FirstName & " " & Members.LastName & vbLf)
Next
 
Else : Console.WriteLine("No members in list.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Notify Multiple Phone Basic

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyMultiplePhoneBasic.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Notifications As Array
 
Notifications = PN.NotifyMultiplePhoneBasic("17575449510;18009843710", "Hello, this is a test.", "17575551234", "CDYNE", "0", "YOUR LICENSE KEY")
 
For Each Info As WSDL.NotifyReturn In Notifications
 
Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
"Response Code: " & Info.ResponseCode & vbLf &
"Response Text: " & Info.ResponseText & vbLf)
 
Next
 
Console.ReadLine()
 
End Sub
 
End Module


Notify Multiple Phone Basic With CPM

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyMultiplePhoneBasicWithCPM.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Notifications As Array
 
Notifications = PN.NotifyMultiplePhoneBasicWithCPM("17575449510;18009843710", "Hello, this is a test.", "17575551234", "CDYNE", "0", 1, "YOUR LICENSE KEY")
 
For Each Info As WSDL.NotifyReturn In Notifications
 
Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
"Response Code: " & Info.ResponseCode & vbLf &
"Response Text: " & Info.ResponseText & vbLf)
 
Next
 
Console.ReadLine()
 
End Sub
 
End Module

Notify Multiple Phone Basic With CPM and Reference ID

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyMultiplePhoneBasicWithCPMandRefD.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Notifications As Array
 
Notifications = PN.NotifyMultiplePhoneBasicWithCPMandReferenceID("17575449510;18009843710", "Hello, this is a test.", "17575551234", "CDYNE", "0", 1, "123", "YOUR LICENSE KEY")
 
For Each Info As WSDL.NotifyReturn In Notifications
 
Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
"Response Code: " & Info.ResponseCode & vbLf &
"Response Text: " & Info.ResponseText & vbLf)
 
Next
 
Console.ReadLine()
 
End Sub
 
End Module

Notify Phone Basic With Transfer

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyPhoneBasicWithTransfer.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
 
NR = PN.NotifyPhoneBasicWithTransfer("17575449510", "18009843710", "Hello, this is a test.", "17575551234", "CDYNE Test", "0", "YOUR LICENSE KEY")
 
Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
"Response Code: " & NR.ResponseCode & vbLf &
"Response Text: " & NR.ResponseText & vbLf)
 
Console.ReadLine()
End Sub
 
End Module

Notify Phone Basic With Try Count

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyPhoneBasicWithTryCount.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
 
NR = PN.NotifyPhoneBasicWithTryCount(3, "17575449510", "Hello this is a test.", "18009843710", "CDYNE Test", "0", "YOUR LICENSE KEY")
 
Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
"Response Code: " & NR.ResponseCode & vbLf &
"Response Text: " & NR.ResponseText & vbLf)
 
Console.ReadLine()
 
End Sub
 
End Module

Notify Phone English Basic

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports NotifyPhoneEnglishBasic.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim NR As New WSDL.NotifyReturn
 
NR = PN.NotifyPhoneEnglishBasic("17575449510", "Hello, this is a test message.", "YOUR LICENSE KEY")
 
Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
"Response Code: " & NR.ResponseCode & vbLf &
"Response Text: " & NR.ResponseText & vbLf)
 
Console.ReadLine()
 
End Sub
 
End Module

Record Sound File Via Phone Call

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports RecordSoundViaPhoneCall.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Recorded As Boolean
 
Recorded = PN.RecordSoundViaPhoneCall("17575449510", "testsoundfile", "YOUR LICENSE KEY")
 
Console.WriteLine("Notification Sent to Record Sound File: " & Recorded)
 
Console.ReadLine()
 
End Sub
 
End Module

Remove Sound File

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports RemoveSoundFile.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Removed As Boolean
 
Removed = PN.RemoveSoundFile("soundfile1", "YOUR LICENSE KEY")
 
Console.WriteLine("Sound file removed: " & Removed)
 
Console.ReadLine()
 
End Sub
 
End Module

Rename Sound File

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports RenameSoundFile.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Rename As Boolean
 
Rename = PN.RenameSoundFile("testsoundfile_wav", "soundfile1_wav", "YOUR LICENSE KEY")
 
Console.WriteLine("Sound File Renamed: " & Rename)
 
Console.ReadLine()
 
End Sub
 
End Module

Return Sound File IDs

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports ReturnSoundFileIDs.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim IDs As Array
 
IDs = PN.ReturnSoundFileIDs("YOUR LICENSE KEY")
 
If (IDs.Length > 0) Then
 
Console.WriteLine("Sound File ID(s): " & vbLf)
 
For Each Files In IDs
 
Console.WriteLine(Files)
 
Next
 
Else : Console.WriteLine("No sound files found.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Script Delete

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports ScriptDelete.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Delete As Boolean
 
Delete = PN.ScriptDelete("Test Script", "YOUR LICENSE KEY")
 
Console.WriteLine("Script Deleted: " & Delete)
 
Console.WriteLine()
 
End Sub
 
End Module

Script List

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports ScriptList.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Scripts As Array
 
Scripts = PN.ScriptList(False, "YOUR LICENSE KEY")
 
If (Scripts.Length > 0) Then
 
Console.WriteLine("Script Name(s): " & vbLf)
 
For Each List In Scripts
 
Console.WriteLine(List)
 
Next
 
Else : Console.WriteLine("No scripts found.")
 
End If
 
Console.ReadLine()
 
End Sub
 
End Module

Script Load

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports ScriptLoad.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Script As String
 
Script = PN.ScriptLoad("Test Script", "YOUR LICENSE KEY")
 
Console.WriteLine("Value of Script Loaded: " & Script)
 
Console.ReadLine()
 
End Sub
 
End Module

Script Save

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports ScriptSave.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Save As Boolean
 
Save = PN.ScriptSave("Test Script", "Hello, this is a test.", "YOUR LICENSE KEY")
 
Console.WriteLine("Script Saved: " & Save)
 
Console.ReadLine()
 
End Sub
 
End Module

Set Incoming Call Script

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports SetIncomingCallScript.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Script As Boolean
 
Script = PN.SetIncomingCallScript("18885551234", "Hello, this is a test. ~\EndCall()~ ~\Label(AMD)~ Hello, this is a test. ~\EndCall()", "YOUR LICENSE KEY")
 
Console.WriteLine("Incoming Call Script Set: " & Script)
 
Console.ReadLine()
 
End Sub
 
End Module

Upload Sound File

'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports UploadSoundFile.WSDL
Module Module1
 
Sub Main()
 
Dim PN As New WSDL.PhoneNotify
Dim Response As New WSDL.UploadFileResponse
Dim FileName As String
Dim BA As Byte()
 
FileName = "C:\Users\Desktop\Hello.wav"
 
BA = System.IO.File.ReadAllBytes(FileName)
 
Response = PN.UploadSoundFile(BA, FileName.Substring(FileName.LastIndexOf("\")), "YOUR LICENSE KEY")
 
Console.WriteLine("Sound File Uploaded: " & Response.UploadSuccessful & vbLf &
"Sound File Length: " & Response.UploadedLengthInSeconds & " seconds")
Console.ReadLine()
End Sub
 
End Module
Personal tools
Namespaces

Variants
Actions
Navigation
Tools

Trial Key