VB.net

From CDYNE Wiki
Jump to navigation Jump to search

Back to Phone Notify!

Notify Phone Basic

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports NotifyPhoneBasic.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10 
11         NR = PN.NotifyPhoneBasic("17575449510", "Hello, this is a test message.", "18009843710", "Test Call", "1", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
14                          "Response Code: " & NR.ResponseCode & vbLf &
15                          "Response Text: " & NR.ResponseText & vbLf)
16 
17         Console.ReadLine()
18 
19     End Sub
20 
21 End Module

Notify Phone Advanced

 1         
 2 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 3 
 4 Imports NotifyPhoneAdvanced.WSDL
 5 Module Module1
 6 
 7     Sub Main()
 8 
 9         Dim PN As New WSDL.PhoneNotify
10         Dim ANR As New WSDL.AdvancedNotifyRequest
11         Dim NR As WSDL.NotifyReturn
12 
13         ANR.CallerIDName = "CDYNE"
14         ANR.CallerIDNumber = "18009843710"
15         ANR.PhoneNumberToDial = "17575449510x3132"
16         ANR.TextToSay = "Hello.  This is a test call."
17         ANR.VoiceID = 1
18         ANR.StatusChangePostUrl = "http://www.yourpostbackurl.com" 'Optional
19         ANR.UTCScheduledDateTime = DateTime.UtcNow
20         'ANR.UTCScheduledDateTime = new DateTime(2012, 12, 18, 11, 36, 0).ToUniversalTime()
21         'If scheduling calls, the local time will automatically be converted to UTC time when using the line of code above.
22         ANR.LicenseKey = "YOUR LICENSE KEY"
23 
24         NR = PN.NotifyPhoneAdvanced(ANR)
25 
26         Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
27                          "Response Code: " & NR.ResponseCode & vbLf &
28                          "Response Text: " & NR.ResponseText & vbLf)
29 
30         Console.ReadLine()
31 
32     End Sub
33 
34 End Module
35 
36 'Additional parameters you may include within your request.
37 
38 'ANR.TransferNumber
39 'ANR.TryCount
40 'ANR.NextTryInSeconds
41 'ANR.TTSrate
42 'ANR.TTSvolume
43 'ANR.MaxCallLength
44 'ANR.ReferenceID

Assign Incoming Number

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports AssignIncomingNumber.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim IncomingNumber As Boolean
10 
11         IncomingNumber = PN.AssignIncomingNumber("15551234567", "YOUR LICENSE KEY")
12         Console.WriteLine("Incoming Number Assigned: " & IncomingNumber)
13 
14         Console.ReadLine()
15 
16     End Sub
17 
18 End Module

Cancel Conference

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports CancelConference.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9 
10         PN.CancelConference("CONFERENCE KEY")
11 
12     End Sub
13 
14 End Module

Cancel Notify

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports CancelNotify.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Cancelled As Boolean
10 
11         Cancelled = PN.CancelNotify(012345678, "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Notification Cancelled: " & Cancelled)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Cancel Notify By Reference ID

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports CancelNotifyByReferenceID.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Cancelled As Integer
10 
11         Cancelled = PN.CancelNotifyByReferenceID("123", "YOUR LICENSE KEY")
12 
13         If (Cancelled = 0) Then
14 
15             Console.WriteLine("Notifification Cancelled: False")
16 
17         Else : Console.WriteLine("Notification Cancelled: True")
18 
19         End If
20 
21         Console.ReadLine()
22 
23     End Sub
24 
25 End Module

Get Assigned Numbers

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetAssignedNumbers.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Assigned As Array
10 
11         Assigned = PN.GetAssignedNumbers("YOUR LICENSE KEY")
12 
13         If (Assigned.Length > 0) Then
14 
15             Console.WriteLine("Numbers Assigned: " & vbLf)
16 
17             For Each Numbers As String In Assigned
18 
19                 Console.WriteLine(Numbers)
20 
21             Next
22 
23         Else : Console.WriteLine("No numbers assigned.")
24 
25         End If
26 
27         Console.ReadLine()
28 
29     End Sub
30 
31 End Module

Get Available Area Codes

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetAvailableAreaCodes.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Incoming As Array
10 
11         Incoming = PN.GetAvailableAreaCodes()
12 
13         If (Incoming.Length > 0) Then
14 
15             Console.WriteLine("Available Area Codes:" & vbLf)
16 
17             For Each Area As WSDL.AreaCode In Incoming
18 
19                 Console.WriteLine(Area.AreaCodeNumber & " " & Area.Location)
20 
21             Next
22 
23         Else : Console.WriteLine("No area codes available.")
24 
25         End If
26 
27         Console.ReadLine()
28 
29     End Sub
30 
31 End Module

Get Available Incoming Numbers

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetAvailableIncomingNumbers.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Incoming As Array
10 
11         Incoming = PN.GetAvailableIncomingNumbers("888")
12 
13         If (Incoming.Length > 0) Then
14 
15             Console.WriteLine("Available Incoming Numbers:" & vbLf)
16 
17             For Each Number In Incoming
18 
19                 Console.WriteLine(Number)
20 
21             Next
22 
23         Else : Console.WriteLine("No incoming numbers available.")
24 
25         End If
26 
27         Console.ReadLine()
28 
29     End Sub
30 
31 End Module

Get Incoming Call Script

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetIncomingCallScript.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New NotifyReturn
10         Dim Script As String
11 
12         Script = PN.GetIncomingCallScript("15551234567", "YOUR LICENSE KEY")
13 
14         Console.WriteLine(Script)
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Get Multiple Queue ID Status

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetMultipleQueueIdStatus.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Status As Array
10 
11         Status = PN.GetMultipleQueueIdStatus("012345678; 876543210", "YOUR LICENSE KEY")
12 
13         If (Status.Length > 0) Then
14 
15             For Each Info As WSDL.NotifyReturn In Status
16 
17                 Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
18                                 "Response Code: " & Info.ResponseCode & vbLf &
19                                 "Response Text: " & Info.ResponseText & vbLf &
20                                 "Call Answered: " & Info.CallAnswered & vbLf &
21                                 "Try Count: " & Info.TryCount & vbLf &
22                                 "Demo: " & Info.Demo & vbLf &
23                                 "Digits Pressed: " & Info.DigitsPressed & vbLf &
24                                 "Machine Detection: " & Info.MachineDetection & vbLf &
25                                 "Duration: " & Info.Duration & vbLf &
26                                 "Start Time: " & Info.StartTime & vbLf &
27                                 "End Time: " & Info.EndTime & vbLf &
28                                 "Minute Rate: " & Info.MinuteRate & vbLf &
29                                 "Call Complete: " & Info.CallComplete & vbLf)
30             Next
31 
32         Else : Console.WriteLine("No information found.")
33 
34         End If
35 
36         Console.ReadLine()
37 
38     End Sub
39 
40 End Module

Get Queue ID Status

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetQueueIDStatus.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10 
11         NR = PN.GetQueueIDStatus(012345678)
12 
13         Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
14                          "Response Code: " & NR.ResponseCode & vbLf &
15                          "Response Text: " & NR.ResponseText & vbLf &
16                          "Call Answered: " & NR.CallAnswered & vbLf &
17                          "Try Count: " & NR.TryCount & vbLf &
18                          "Demo: " & NR.Demo & vbLf &
19                          "Digits Pressed: " & NR.DigitsPressed & vbLf &
20                          "Machine Detection: " & NR.MachineDetection & vbLf &
21                          "Duration: " & NR.Duration & vbLf &
22                          "Start Time: " & NR.StartTime & vbLf &
23                          "End Time: " & NR.EndTime & vbLf &
24                          "Minute Rate: " & NR.MinuteRate & vbLf &
25                          "Call Complete: " & NR.CallComplete & vbLf)
26 
27         Console.ReadLine()
28 
29     End Sub
30 
31 End Module

Get Queue ID Statuses By Phone Number

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetQueueIDStatusesByPhoneNumber.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Status As Array
10 
11         Status = PN.GetQueueIDStatusesByPhoneNumber("17575449510", "YOUR LICENSE KEY")
12 
13         If (Status.Length > 0) Then
14 
15             For Each Info As WSDL.NotifyReturn In Status
16 
17                 Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
18                                 "Response Code: " & Info.ResponseCode & vbLf &
19                                 "Response Text: " & Info.ResponseText & vbLf &
20                                 "Call Answered: " & Info.CallAnswered & vbLf &
21                                 "Try Count: " & Info.TryCount & vbLf &
22                                 "Demo: " & Info.Demo & vbLf &
23                                 "Digits Pressed: " & Info.DigitsPressed & vbLf &
24                                 "Machine Detection: " & Info.MachineDetection & vbLf &
25                                 "Duration: " & Info.Duration & vbLf &
26                                 "Start Time: " & Info.StartTime & vbLf &
27                                 "End Time: " & Info.EndTime & vbLf &
28                                 "Minute Rate: " & Info.MinuteRate & vbLf &
29                                 "Call Complete: " & Info.CallComplete & vbLf)
30 
31             Next
32 
33         Else : Console.WriteLine("No information found.")
34 
35         End If
36 
37         Console.ReadLine()
38 
39     End Sub
40 
41 End Module

Get Queue ID Statuses With Advanced Info

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetQueueIDStatusWithAdvancedInfo.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN = New WSDL.PhoneNotify
 9         Dim NR = New WSDL.NotifyReturn
10 
11         NR = PN.GetQueueIDStatusWithAdvancedInfo(012345678, "YOUR LICENSE KEY")
12 
13         Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
14                          "Response Code: " & NR.ResponseCode & vbLf &
15                          "Response Text: " & NR.ResponseText & vbLf &
16                          "Call Answered: " & NR.CallAnswered & vbLf &
17                          "Try Count: " & NR.TryCount & vbLf &
18                          "Demo: " & NR.Demo & vbLf &
19                          "Digits Pressed: " & NR.DigitsPressed & vbLf &
20                          "Machine Detection: " & NR.MachineDetection & vbLf &
21                          "Duration: " & NR.Duration & vbLf &
22                          "Start Time: " & NR.StartTime & vbLf &
23                          "End Time: " & NR.EndTime & vbLf &
24                          "Minute Rate: " & NR.MinuteRate & vbLf &
25                          "Call Complete: " & NR.CallComplete & vbLf &
26                          "Text to Say: " & NR.TextToSay)
27 
28         Console.ReadLine()
29 
30     End Sub
31 
32 End Module

Get Response Codes

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetResponseCodes.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Response As Array
10 
11         Response = PN.GetResponseCodes()
12 
13         For Each Codes As WSDL.Response In Response
14 
15             Console.WriteLine("Response Code: " & Codes.ResponseCode & vbLf &
16                               "Response Text: " & Codes.ResponseText & vbLf)
17 
18         Next
19 
20         Console.ReadLine()
21 
22     End Sub
23 
24 End Module

Get Sound File

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetSoundFile.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10         Dim File As Array
11         Dim Sound As String
12 
13         File = PN.GetSoundFile("testsoundfile_wav", "YOUR LICENSE KEY")
14 
15         Sound = Convert.ToBase64String(File)
16 
17         Console.WriteLine(Sound)
18 
19         Console.ReadLine()
20 
21     End Sub
22 
23 End Module

Get Sound File In MP3

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetSoundFileInMP3.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10         Dim MP3 As Array
11         Dim FS As System.IO.FileStream
12 
13         MP3 = PN.GetSoundFileInMP3("testsoundfile_wav", 128, "YOUR LICENSE KEY")
14 
15         FS = New System.IO.FileStream("C:\Users\Desktop\testsoundfile.mp3", System.IO.FileMode.Create, System.IO.FileAccess.Write)
16 
17         FS.Write(MP3, 0, MP3.Length)
18         FS.Close()
19 
20         Console.WriteLine("File saved to: " & "C:\Users\Desktop\testsoundfile.mp3")
21 
22         Console.ReadLine()
23 
24     End Sub
25 
26 End Module

Get Sound File In Ulaw

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetSoundFileInUlaw.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10         Dim ULAW As Array
11         Dim FS As System.IO.FileStream
12 
13         ULAW = PN.GetSoundFileInUlaw("testsoundfile_wav", "YOUR LICENSE KEY")
14 
15         FS = New System.IO.FileStream("C:\Users\Desktop\testsoundfile.ulaw", System.IO.FileMode.Create, System.IO.FileAccess.Write)
16 
17         FS.Write(ULAW, 0, ULAW.Length)
18         FS.Close()
19 
20         Console.WriteLine("File saved to: " & "C:\Users\Desktop\testsoundfile.ulaw")
21 
22         Console.ReadLine()
23     End Sub
24 
25 End Module

Get Sound File Length

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetSoundFileLength.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Length As Double
10 
11         Length = PN.GetSoundFileLength("testsoundfile_wav", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Sound File Length: " & Length.ToString() & " seconds")
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Get Sound File URL

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetSoundFileURL.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim URL As String
10 
11         URL = PN.GetSoundFileURL("testsoundfile_wav", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Sound File URL: " & URL)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Get TTS In MP3

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetTTSInMP3.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10         Dim MP3 As Array
11         Dim FS As System.IO.FileStream
12 
13         MP3 = PN.GetTTSInMP3("Hello this phone notify TTS to MP3 test.", 2, 128, 6, 100, "YOUR LICENSE KEY")
14 
15         FS = New System.IO.FileStream("C:\Users\Desktop\TTS-MP3.mp3", System.IO.FileMode.Create, System.IO.FileAccess.Write)
16 
17         FS.Write(MP3, 0, MP3.Length)
18         FS.Close()
19 
20         Console.WriteLine("File saved to: " & "C:\Users\Desktop\TTS-MP3.mp3")
21 
22         Console.ReadLine()
23 
24     End Sub
25 
26 End Module

Get TTS In ULAW

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetTTSInULAW.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10         Dim ULAW As Array
11         Dim FS As System.IO.FileStream
12 
13         ULAW = PN.GetTTSInULAW("Hello this phone notify TTS to ULAW test.", 2, 6, 2, "YOUR LICENSE KEY")
14 
15         FS = New System.IO.FileStream("C:\Users\Desktop\TTS-ULAW.ulaw", System.IO.FileMode.Create, System.IO.FileAccess.Write)
16 
17         FS.Write(ULAW, 0, ULAW.Length)
18         FS.Close()
19 
20         Console.WriteLine("File saved to: " & "C:\Users\Desktop\TTS-ULAW.ulaw")
21 
22         Console.ReadLine()
23 
24     End Sub
25 
26 End Module

Get Version

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports GetVersion.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim Version As String
10 
11         Version = PN.GetVersion()
12 
13         Console.WriteLine("Phone Notify! API Version: " & Version)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Get Voices

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports getVoices.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim List As Array
10 
11         List = PN.getVoices()
12 
13         For Each Voices As Voice In List
14 
15             Console.WriteLine("Voice ID: " & Voices.VoiceID & vbLf &
16                             "Voice Name: " & Voices.VoiceName & vbLf &
17                             "Voice Gender: " & Voices.VoiceGender & vbLf &
18                             "Voice Age: " & Voices.VoiceAge & vbLf &
19                             "Voice Language: " & Voices.VoiceLanguage & vbLf &
20                             "Voice Summary: " & Voices.VoiceSummary & vbLf)
21 
22         Next
23 
24         Console.ReadLine()
25 
26     End Sub
27 
28 End Module

License Key Variable Load

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LicenseKeyVariableLoad.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim Variable As String
10 
11         Variable = PN.LicenseKeyVariableLoad("Test Variable", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Value of Variable Loaded: " & Variable)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

License Key Variable Save

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LicenseKeyVariableSave.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim Variable As Boolean
10 
11         Variable = PN.LicenseKeyVariableSave("Test Variable", "123456789", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Variable Saved: " & Variable)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

LM Add List Member

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_AddListMember.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Member As Integer
10 
11         Member = PN.LM_AddListMember(12345, "YOUR LICENSE KEY", "17575449510", "1", "CDYNE", "Corporation")
12 
13         Console.WriteLine("Member ID: " & Member)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

LM Add New List

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_AddNewList.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim List As Integer
10 
11         List = PN.LM_AddNewList("Test List", 0, "YOUR LICENSE KEY")
12 
13         Console.WriteLine("List ID: " & List)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

LM Alter List ID

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_AlterListID.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim Altered As Boolean
10 
11         Altered = PN.LM_AlterListID(12345, 0, "New Test List", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("List ID Altered: " & Altered)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

LM Alter List Member

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_AlterListMember.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Member As Boolean
10 
11         Member = PN.LM_AlterListMember(98765, "YOUR LICENSE KEY", "1", "CDYNE", "Corp", "17575449510")
12 
13         Console.WriteLine("List Member Altered: " & Member)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

LM Delete List

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_DeleteList.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim Deleted As Boolean
10 
11         Deleted = PN.LM_DeleteList(12345, "YOUR LICENSE KEY")
12 
13         Console.WriteLine("List Deleted: " & Deleted)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

LM Delete List Member

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_DeleteListMember.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim Member As Boolean
10 
11         Member = PN.LM_DeleteListMember(98765, "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Member Deleted: " & Member)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

LM Get List IDs By License Key

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_GetListIDsByLicenseKey.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim List As Array
10 
11         List = PN.LM_GetListIDsByLicensekey("YOUR LICENSE KEY")
12 
13         If (List.Length > 0) Then
14 
15             For Each ListIDs As WSDL.LM_ListIDs In List
16 
17                 Console.WriteLine("List ID: " & ListIDs.ListID & vbLf &
18                                 "List Name: " & ListIDs.ListName & vbLf &
19                                 "Parent List ID: " & ListIDs.ParentListID & vbLf)
20             Next
21 
22         Else : Console.WriteLine("No List IDs found.")
23 
24         End If
25 
26         Console.ReadLine()
27 
28     End Sub
29 
30 End Module

LM Get List Members By List ID

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports LM_GetListMembersByListID.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New PhoneNotify
 9         Dim List As Array
10 
11         List = PN.LM_GetListMembersByListID(12345, "YOUR LICENSE KEY")
12 
13         If (List.Length > 0) Then
14 
15             For Each Members As WSDL.LM_ListMembers In List
16 
17                 Console.WriteLine("List Member ID: " & Members.ListMemberID & vbLf &
18                                     "Phone Number: " & Members.PhoneNumber & vbLf &
19                                     "Member Name: " & Members.FirstName & " " & Members.LastName  & vbLf)
20             Next
21 
22         Else : Console.WriteLine("No members in list.")
23 
24         End If
25 
26         Console.ReadLine()
27 
28     End Sub
29 
30 End Module

Notify Multiple Phone Basic

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports NotifyMultiplePhoneBasic.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Notifications As Array
10 
11         Notifications = PN.NotifyMultiplePhoneBasic("17575449510;18009843710", "Hello, this is a test.", "17575551234", "CDYNE", "0", "YOUR LICENSE KEY")
12 
13         For Each Info As WSDL.NotifyReturn In Notifications
14 
15             Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
16                             "Response Code: " & Info.ResponseCode & vbLf &
17                             "Response Text: " & Info.ResponseText & vbLf)
18 
19         Next
20 
21         Console.ReadLine()
22 
23     End Sub
24 
25 End Module


Notify Multiple Phone Basic With CPM

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports NotifyMultiplePhoneBasicWithCPM.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Notifications As Array
10 
11         Notifications = PN.NotifyMultiplePhoneBasicWithCPM("17575449510;18009843710", "Hello, this is a test.", "17575551234", "CDYNE", "0", 1, "YOUR LICENSE KEY")
12 
13         For Each Info As WSDL.NotifyReturn In Notifications
14 
15             Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
16                             "Response Code: " & Info.ResponseCode & vbLf &
17                             "Response Text: " & Info.ResponseText & vbLf)
18 
19         Next
20 
21         Console.ReadLine()
22 
23     End Sub
24 
25 End Module

Notify Multiple Phone Basic With CPM and Reference ID

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports NotifyMultiplePhoneBasicWithCPMandRefD.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Notifications As Array
10 
11         Notifications = PN.NotifyMultiplePhoneBasicWithCPMandReferenceID("17575449510;18009843710", "Hello, this is a test.", "17575551234", "CDYNE", "0", 1, "123", "YOUR LICENSE KEY")
12 
13         For Each Info As WSDL.NotifyReturn In Notifications
14 
15             Console.WriteLine("QueueID: " & Info.QueueID & vbLf &
16                             "Response Code: " & Info.ResponseCode & vbLf &
17                             "Response Text: " & Info.ResponseText & vbLf)
18 
19         Next
20 
21         Console.ReadLine()
22 
23     End Sub
24 
25 End Module

Notify Phone Basic With Transfer

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports NotifyPhoneBasicWithTransfer.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10 
11         NR = PN.NotifyPhoneBasicWithTransfer("17575449510", "18009843710", "Hello, this is a test.", "17575551234", "CDYNE Test", "0", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
14                          "Response Code: " & NR.ResponseCode & vbLf &
15                          "Response Text: " & NR.ResponseText & vbLf)
16 
17         Console.ReadLine()
18     End Sub
19 
20 End Module

Notify Phone Basic With Try Count

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports NotifyPhoneBasicWithTryCount.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10 
11         NR = PN.NotifyPhoneBasicWithTryCount(3, "17575449510", "Hello this is a test.", "18009843710", "CDYNE Test", "0", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
14                         "Response Code: " & NR.ResponseCode & vbLf &
15                         "Response Text: " & NR.ResponseText & vbLf)
16 
17         Console.ReadLine()
18 
19     End Sub
20 
21 End Module

Notify Phone English Basic

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports NotifyPhoneEnglishBasic.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim NR As New WSDL.NotifyReturn
10 
11         NR = PN.NotifyPhoneEnglishBasic("17575449510", "Hello, this is a test message.", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("QueueID: " & NR.QueueID & vbLf &
14                         "Response Code: " & NR.ResponseCode & vbLf &
15                         "Response Text: " & NR.ResponseText & vbLf)
16 
17         Console.ReadLine()
18 
19     End Sub
20 
21 End Module

Record Sound File Via Phone Call

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports RecordSoundViaPhoneCall.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Recorded As Boolean
10 
11         Recorded = PN.RecordSoundViaPhoneCall("17575449510", "testsoundfile", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Notification Sent to Record Sound File: " & Recorded)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Remove Sound File

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports RemoveSoundFile.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Removed As Boolean
10 
11         Removed = PN.RemoveSoundFile("soundfile1", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Sound file removed: " & Removed)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Rename Sound File

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports RenameSoundFile.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Rename As Boolean
10 
11         Rename = PN.RenameSoundFile("testsoundfile_wav", "soundfile1_wav", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Sound File Renamed: " & Rename)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Return Sound File IDs

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports ReturnSoundFileIDs.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim IDs As Array
10 
11         IDs = PN.ReturnSoundFileIDs("YOUR LICENSE KEY")
12 
13         If (IDs.Length > 0) Then
14 
15             Console.WriteLine("Sound File ID(s): " & vbLf)
16 
17             For Each Files In IDs
18 
19                 Console.WriteLine(Files)
20 
21             Next
22 
23         Else : Console.WriteLine("No sound files found.")
24 
25         End If
26 
27         Console.ReadLine()
28 
29     End Sub
30 
31 End Module

Script Delete

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports ScriptDelete.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Delete As Boolean
10 
11         Delete = PN.ScriptDelete("Test Script", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Script Deleted: " & Delete)
14 
15         Console.WriteLine()
16 
17     End Sub
18 
19 End Module

Script List

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports ScriptList.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Scripts As Array
10 
11         Scripts = PN.ScriptList(False, "YOUR LICENSE KEY")
12 
13         If (Scripts.Length > 0) Then
14 
15             Console.WriteLine("Script Name(s): " & vbLf)
16 
17             For Each List In Scripts
18 
19                 Console.WriteLine(List)
20 
21             Next
22 
23         Else : Console.WriteLine("No scripts found.")
24 
25         End If
26 
27         Console.ReadLine()
28 
29     End Sub
30 
31 End Module

Script Load

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports ScriptLoad.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Script As String
10 
11         Script = PN.ScriptLoad("Test Script", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Value of Script Loaded: " & Script)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Script Save

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports ScriptSave.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Save As Boolean
10 
11         Save = PN.ScriptSave("Test Script", "Hello, this is a test.", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Script Saved: " & Save)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Set Incoming Call Script

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports SetIncomingCallScript.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Script As Boolean
10 
11         Script = PN.SetIncomingCallScript("18885551234", "Hello, this is a test. ~\EndCall()~ ~\Label(AMD)~ Hello, this is a test. ~\EndCall()", "YOUR LICENSE KEY")
12 
13         Console.WriteLine("Incoming Call Script Set: " & Script)
14 
15         Console.ReadLine()
16 
17     End Sub
18 
19 End Module

Upload Sound File

 1 'http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl was added as a Web Reference and given the name WSDL
 2 
 3 Imports UploadSoundFile.WSDL
 4 Module Module1
 5 
 6     Sub Main()
 7 
 8         Dim PN As New WSDL.PhoneNotify
 9         Dim Response As New WSDL.UploadFileResponse
10         Dim FileName As String
11         Dim BA As Byte()
12 
13         FileName = "C:\Users\Desktop\Hello.wav"
14 
15         BA = System.IO.File.ReadAllBytes(FileName)
16 
17         Response = PN.UploadSoundFile(BA, FileName.Substring(FileName.LastIndexOf("\")), "YOUR LICENSE KEY")
18 
19         Console.WriteLine("Sound File Uploaded: " & Response.UploadSuccessful & vbLf &
20                           "Sound File Length: " & Response.UploadedLengthInSeconds & " seconds")
21         Console.ReadLine()
22     End Sub
23 
24 End Module