当前位置: 首页>>代码示例>>VB.NET>>正文


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

本文整理汇总了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;未经允许,请勿转载。