VB.NET SocketPermission.ConnectList属性代码示例

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› VB.NET›VB.NET教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

本文整理汇总了VB.NET中System.Net.SocketPermission.ConnectList属性的典型用法代码示例。如果您正苦于以下问题：VB.NET SocketPermission.ConnectList属性的具体用法？VB.NET SocketPermission.ConnectList怎么用？VB.NET SocketPermission.ConnectList使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Net.SocketPermission的用法示例。

在下文中一共展示了SocketPermission.ConnectList属性的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于我们的系统推荐出更棒的VB.NET代码示例。

示例1: SocketPermission

Dim socketPermission1 As New SocketPermission(PermissionState.Unrestricted)

    'Create a 'SocketPermission' object for two ip addresses.
    Dim socketPermission2 As New SocketPermission(PermissionState.None)
    Dim securityElement4 As SecurityElement = socketPermission2.ToXml()
    ''SocketPermission' object for 'Connect' permission
    Dim securityElement1 As New SecurityElement("ConnectAccess")
    'Format to specify ip address are <ip-address>#<port>#<transport-type>
    'First 'SocketPermission' ip-address is '192.168.144.238' for 'All' transport types and for 'All' ports for the ip-address.
    Dim securityElement2 As New SecurityElement("URI", "192.168.144.238#-1#3")
    'Second 'SocketPermission' ip-address is '192.168.144.240' for 'All' transport types and for 'All' ports for the ip-address.
    Dim securityElement3 As New SecurityElement("URI", "192.168.144.240#-1#3")
    securityElement1.AddChild(securityElement2)
    securityElement1.AddChild(securityElement3)
    securityElement4.AddChild(securityElement1)
    
    'Obtain a 'SocketPermission' object using 'FromXml' method.	
    socketPermission2.FromXml(securityElement4)
    
    'Create another 'SocketPermission' object with two ip addresses.
    'First 'SocketPermission' ip-address is '192.168.144.238' for 'All' transport types and for 'All' ports for the ip-address.
    Dim socketPermission3 As New SocketPermission(NetworkAccess.Connect, TransportType.All, "192.168.144.238", SocketPermission.AllPorts)
    
    'Second 'SocketPermission' ip-address is '192.168.144.239' for 'All' transport types and for 'All' ports for the ip-address.
    socketPermission3.AddPermission(NetworkAccess.Connect, TransportType.All, "192.168.144.239", SocketPermission.AllPorts)

    Console.WriteLine(ControlChars.Cr + "Checks the Socket permissions using IsUnrestricted method : ")
    If socketPermission1.IsUnrestricted() Then
        Console.WriteLine("Socket permission is unrestricted")
    Else
        Console.WriteLine("Socket permission is restricted")
    End If 
    Console.WriteLine()
    
    Console.WriteLine("Display result of ConnectList property : " + ControlChars.Cr)
    Dim enumerator As IEnumerator = socketPermission3.ConnectList
    While enumerator.MoveNext()
        Console.WriteLine("The hostname is       : {0}", CType(enumerator.Current, EndpointPermission).Hostname)
        Console.WriteLine("The port is           : {0}", CType(enumerator.Current, EndpointPermission).Port)
        Console.WriteLine("The Transport type is : {0}", CType(enumerator.Current, EndpointPermission).Transport)
    End While
    
    Console.WriteLine("")
    
    Console.WriteLine("Display Security Elements :" + ControlChars.Cr + " ")
    PrintSecurityElement(socketPermission2.ToXml(), 0)
    
    'Get a 'SocketPermission' object which is a union of two other 'SocketPermission' objects.
    socketPermission1 = CType(socketPermission3.Union(socketPermission2), SocketPermission)
    
    'Demand that the calling method have the socket permission.
    socketPermission1.Demand()

开发者ID:VB.NET开发者，项目名称:System.Net，代码行数:52，代码来源:SocketPermission.ConnectList

注：本文中的System.Net.SocketPermission.ConnectList属性示例由纯净天空整理自Github/MSDocs等源码及文档管理平台，相关代码片段筛选自各路编程大神贡献的开源项目，源码版权归原作者所有，传播和使用请参考对应项目的License；未经允许，请勿转载。