Back to Phone Notify!
'<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
'<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`](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
'<http://ws.cdyne.com/notifyws/phonenotify.asmx?wsdl> was added as a Web Reference and given the name WSD
Imports AssignIncomingNumber.WSDL
Module Module
Sub Main
Dim PN As New WSDL.PhoneNotify
Dim IncomingNumber As Boole
IncomingNumber = PN.AssignIncomingNumber("15551234567", "YOUR LICENSE KEY")
Console.WriteLine("Incoming Number Assigned: " & IncomingNumber
Console.ReadLine()
End Sub
End Module
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'<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
'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