'Constructors set with different security modes
Dim defaultNoSecurityPDBinding As New PollingDuplexHttpBinding()
Dim transportSecurityPDBinding As New PollingDuplexHttpBinding(BasicHttpSecurityMode.Transport)
Dim transportOnlySecurityPDBinding As New PollingDuplexHttpBinding(BasicHttpSecurityMode.TransportCredentialOnly)
'Output txtSecurityMode for binding with transport security: Transport
Dim txtSecurityMode As String = transportSecurityPDBinding.Security.Mode.ToString()
'Inactivity timeout
Dim binding As New PollingDuplexHttpBinding()
'Get default inactivity timeout
Dim defaultInactivityTimeOut As TimeSpan = binding.InactivityTimeout
'Returns default timeout in minutes: 10
Dim txtDefaultInactivityTimeOut As String = defaultInactivityTimeOut.Minutes.ToString()
'Set new inactivity timeout
Dim newInactivityTimeOut As New TimeSpan(0, 5, 0)
binding.InactivityTimeout = newInactivityTimeOut
'Returns new timeout in minutes: 5
Dim txtNewInactivityTimeOut As String = binding.InactivityTimeout.Minutes.ToString()
Dim pollingDuplexBinding As New PollingDuplexHttpBinding()
Dim bindingEC As BindingElementCollection = pollingDuplexBinding.CreateBindingElements()
'Check on binding elements contained in the collection
Dim boolHTBE As Boolean = bindingEC.Contains(GetType(HttpTransportBindingElement))
'Returns true
Dim txtboolHTBE As String = boolHTBE.ToString()
Dim boolHSTBE As Boolean = bindingEC.Contains(GetType(HttpsTransportBindingElement))
'Returns false
Dim txtboolHSTBE As String = boolHSTBE.ToString()