'http://ws.cdyne.com/phoneverify/phoneverify.asmx?wsdl was added as Web Reference and given the name WSDL
Imports CheckPhoneNumber.WSDL
Module Module1
Sub Main()
Dim PV As New PhoneVerify()
Dim PR As New PhoneReturn()
PR = PV.CheckPhoneNumber("17575449510", "YOUR LICENSE KEY")
Console.WriteLine("Company: " & (If(String.IsNullOrEmpty(PR.Company), "No Information Found", PR.Company)))
Console.WriteLine("Valid: " & PR.Valid)
Console.WriteLine("Use: " & (If(String.IsNullOrEmpty(PR.Use), "No Information Found", PR.Use)))
Console.WriteLine("State: " & (If(String.IsNullOrEmpty(PR.State), "No Information Found", PR.State)))
Console.WriteLine("Switch: " & (If(String.IsNullOrEmpty(PR.Switch), "No Information Found", PR.Switch)))
Console.WriteLine("RC: " & (If(String.IsNullOrEmpty(PR.RC), "No Information Found", PR.RC)))
Console.WriteLine("OCN: " & (If(String.IsNullOrEmpty(PR.OCN), "No Information Found", PR.OCN)))
Console.WriteLine("Original Number: " & (If(String.IsNullOrEmpty(PR.OriginalNumber), "No Information Found", PR.OriginalNumber)))
Console.WriteLine("Clean Number: " & (If(String.IsNullOrEmpty(PR.CleanNumber), "No Information Found", PR.CleanNumber)))
Console.WriteLine("Switch Name: " & (If(String.IsNullOrEmpty(PR.SwitchName), "No Information Found", PR.SwitchName)))
Console.WriteLine("Switch Type: " & (If(String.IsNullOrEmpty(PR.SwitchType), "No Information Found", PR.SwitchType)))
Console.WriteLine("Country: " & (If(String.IsNullOrEmpty(PR.Country), "No Information Found", PR.Country)))
Console.WriteLine("CLLI: " & (If(String.IsNullOrEmpty(PR.CLLI), "No Information Found", PR.CLLI)))
Console.WriteLine("Prefix Type: " & (If(String.IsNullOrEmpty(PR.PrefixType), "No Information Found", PR.PrefixType)))
Console.WriteLine("LATA: " & (If(String.IsNullOrEmpty(PR.LATA), "No Information Found", PR.LATA)))
Console.WriteLine("SMS: " & (If(String.IsNullOrEmpty(PR.sms), "No Information Found", PR.sms)))
Console.WriteLine("Date Assigned: " & (If(String.IsNullOrEmpty(PR.AssignDate), "No Information Found", PR.AssignDate)))
Console.WriteLine("Telecom City: " & (If(String.IsNullOrEmpty(PR.TelecomCity), "No Information Found", PR.TelecomCity)))
Console.WriteLine("Telecom County: " & (If(String.IsNullOrEmpty(PR.TelecomCounty), "No Information Found", PR.TelecomCounty)))
Console.WriteLine("Telecom State: " & (If(String.IsNullOrEmpty(PR.TelecomState), "No Information Found", PR.TelecomState)))
Console.WriteLine("Telecom Zip: " & (If(String.IsNullOrEmpty(PR.TelecomZip), "No Information Found", PR.TelecomZip)))
Console.WriteLine("Time Zone: " & (If(String.IsNullOrEmpty(PR.TimeZone), "No Information Found", PR.TimeZone)))
Console.WriteLine("Latitude: " & (If(String.IsNullOrEmpty(PR.Lat), "No Information Found", PR.Lat)))
Console.WriteLine("Longitude: " & (If(String.IsNullOrEmpty(PR.Long), "No Information Found", PR.Long)))
Console.WriteLine("Wireless: " & PR.Wireless)
Console.ReadLine()
End Sub
End Module
'http://ws.cdyne.com/phoneverify/phoneverify.asmx?wsdl was added as Web Reference and given the name WSDL
Imports CheckPhoneNumbers.WSDL
Module Module1
Sub Main()
Dim PV As New PhoneVerify()
Dim Numbers As Array
Dim PhoneNumbers As String = "17575449510, 18009843710"
Dim PhoneNumbersArray() = PhoneNumbers.Split(",")
Const LicenseKey = "YOUR LICENSE KEY"
Numbers = PV.CheckPhoneNumbers(PhoneNumbersArray, LicenseKey)
For Each PR As WSDL.PhoneReturn In Numbers
Console.WriteLine("Company: " & (If(String.IsNullOrEmpty(PR.Company), "No Information Found", PR.Company)))
Console.WriteLine("Valid: " & PR.Valid)
Console.WriteLine("Use: " & (If(String.IsNullOrEmpty(PR.Use), "No Information Found", PR.Use)))
Console.WriteLine("State: " & (If(String.IsNullOrEmpty(PR.State), "No Information Found", PR.State)))
Console.WriteLine("Switch: " & (If(String.IsNullOrEmpty(PR.Switch), "No Information Found", PR.Switch)))
Console.WriteLine("RC: " & (If(String.IsNullOrEmpty(PR.RC), "No Information Found", PR.RC)))
Console.WriteLine("OCN: " & (If(String.IsNullOrEmpty(PR.OCN), "No Information Found", PR.OCN)))
Console.WriteLine("Original Number: " & (If(String.IsNullOrEmpty(PR.OriginalNumber), "No Information Found", PR.OriginalNumber)))
Console.WriteLine("Clean Number: " & (If(String.IsNullOrEmpty(PR.CleanNumber), "No Information Found", PR.CleanNumber)))
Console.WriteLine("Switch Name: " & (If(String.IsNullOrEmpty(PR.SwitchName), "No Information Found", PR.SwitchName)))
Console.WriteLine("Switch Type: " & (If(String.IsNullOrEmpty(PR.SwitchType), "No Information Found", PR.SwitchType)))
Console.WriteLine("Country: " & (If(String.IsNullOrEmpty(PR.Country), "No Information Found", PR.Country)))
Console.WriteLine("CLLI: " & (If(String.IsNullOrEmpty(PR.CLLI), "No Information Found", PR.CLLI)))
Console.WriteLine("Prefix Type: " & (If(String.IsNullOrEmpty(PR.PrefixType), "No Information Found", PR.PrefixType)))
Console.WriteLine("LATA: " & (If(String.IsNullOrEmpty(PR.LATA), "No Information Found", PR.LATA)))
Console.WriteLine("SMS: " & (If(String.IsNullOrEmpty(PR.sms), "No Information Found", PR.sms)))
Console.WriteLine("Date Assigned: " & (If(String.IsNullOrEmpty(PR.AssignDate), "No Information Found", PR.AssignDate)))
Console.WriteLine("Telecom City: " & (If(String.IsNullOrEmpty(PR.TelecomCity), "No Information Found", PR.TelecomCity)))
Console.WriteLine("Telecom County: " & (If(String.IsNullOrEmpty(PR.TelecomCounty), "No Information Found", PR.TelecomCounty)))
Console.WriteLine("Telecom State: " & (If(String.IsNullOrEmpty(PR.TelecomState), "No Information Found", PR.TelecomState)))
Console.WriteLine("Telecom Zip: " & (If(String.IsNullOrEmpty(PR.TelecomZip), "No Information Found", PR.TelecomZip)))
Console.WriteLine("Time Zone: " & (If(String.IsNullOrEmpty(PR.TimeZone), "No Information Found", PR.TimeZone)))
Console.WriteLine("Latitude: " & (If(String.IsNullOrEmpty(PR.Lat), "No Information Found", PR.Lat)))
Console.WriteLine("Longitude: " & (If(String.IsNullOrEmpty(PR.Long), "No Information Found", PR.Long)))
Console.WriteLine("Wireless: " & PR.Wireless & Environment.NewLine & Environment.NewLine)
Next
Console.ReadLine()
End Sub
End Module