VB.NET SecurityPermission构造函数代码示例

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

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

本文整理汇总了VB.NET中System.Security.Permissions.SecurityPermission.SecurityPermission构造函数的典型用法代码示例。如果您正苦于以下问题：VB.NET SecurityPermission构造函数的具体用法？VB.NET SecurityPermission怎么用？VB.NET SecurityPermission使用的例子？那么恭喜您, 这里精选的构造函数代码示例或许可以为您提供帮助。

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

示例1: DemandSecurityPermissions

Public Shared Sub DemandSecurityPermissions()
    Console.WriteLine(ControlChars.Lf & "Executing DemandSecurityPermissions." & ControlChars.Lf)
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.Assertion)
        Console.WriteLine("Demanding SecurityPermissionFlag.Assertion")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.Assertion succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.Assertion failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.ControlAppDomain)
        Console.WriteLine("Demanding SecurityPermissionFlag.ControlAppDomain")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.ControlAppDomain succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.ControlAppDomain failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.ControlDomainPolicy)
        Console.WriteLine("Demanding SecurityPermissionFlag.ControlDomainPolicy")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.ControlDomainPolicy succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.ControlDomainPolicy failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.ControlEvidence)
        Console.WriteLine("Demanding SecurityPermissionFlag.ControlEvidence")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.ControlEvidence succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.ControlEvidence failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.ControlPolicy)
        Console.WriteLine("Demanding SecurityPermissionFlag.ControlPolicy")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.ControlPolicy succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.ControlPolicy failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.ControlPrincipal)
        Console.WriteLine("Demanding SecurityPermissionFlag.ControlPrincipal")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.ControlPrincipal succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.ControlPrincipal failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.ControlThread)
        Console.WriteLine("Demanding SecurityPermissionFlag.ControlThread")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.ControlThread succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.ControlThread failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.Execution)
        Console.WriteLine("Demanding SecurityPermissionFlag.Execution")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.Execution succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.Execution failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.Infrastructure)
        Console.WriteLine("Demanding SecurityPermissionFlag.Infrastructure")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.Infrastructure succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.Infrastructure failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.RemotingConfiguration)
        Console.WriteLine("Demanding SecurityPermissionFlag.RemotingConfiguration")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.RemotingConfiguration succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.RemotingConfiguration failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.SerializationFormatter)
        Console.WriteLine("Demanding SecurityPermissionFlag.SerializationFormatter")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.SerializationFormatter succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.SerializationFormatter failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.SkipVerification)
        Console.WriteLine("Demanding SecurityPermissionFlag.SkipVerification")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.SkipVerification succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.SkipVerification failed: " & e.Message))
    End Try
    Try
        Dim sp As New SecurityPermission(SecurityPermissionFlag.UnmanagedCode)
        Console.WriteLine("Demanding SecurityPermissionFlag.UnmanagedCode")
        sp.Demand()
        Console.WriteLine("Demand for SecurityPermissionFlag.UnmanagedCode succeeded.")
    Catch e As Exception
        Console.WriteLine(("Demand for SecurityPermissionFlag.UnmanagedCode failed: " & e.Message))
    End Try
End Sub

开发者ID:VB.NET开发者，项目名称:System.Security.Permissions，代码行数:107，代码来源:SecurityPermission

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