文件名称：管理代码访问权限集合-sx127x中文数据手册cn
文件大小：57.77MB
文件格式：PDF
更新时间：2024-07-29 11:56:49
VisualBasic 2010 .NET4 高级编程 (第6版)
32.3 管理代码访问权限集合 本节介绍对权限的编程访问。本例扩展了前面讨论的白。VB_S饵urity 项目。这个例子将说明， 在方法失败时， 会生成一个包含结果的异常对象。注意在真正的应用程序中， 应为调用程序设置权 限。在许多情况下，我们都不希望调用程序能访问注册衰，或者读取内存变量但不修改它们。注意 只能根据用户的身份限制他们己有的权限。不自白匾过代码根据用户的身份，给他们授予他们本来不 能访问的部分操作系统的权限。 这个例子首先设置需要的权限， 再给代码授予适当的访问级别.接着，访问这个安全对象的代 码演示了这些新权限对代码的作用: J 百f从 wrox.com F载派代码 Private Sub TestFileIOPermission() Dim oFp = New FileIOPermission( f' i1el0PermissionAccess . Al1Access. "C: \Test") oFp . PermitOn~y () 'Try Oim strmWrire As New IO.streamWriter( Fi1e .Open ("C: \Test\Permission. txt ". 工O.FileMode.Open)) strmWrite .WriteLine ("Hi there! ") strmWrite . F1ush() strmWrite.Close() Dim objWri t er As New IO.StreamWriter( Fil e .Open ("C: \Test\NoPermission . txt ". 10. Fi1eMode.Open)) objWriter.W J:i teLine ("fli there ! " ) objWriter.F~ush() objWriter. Close() 'Uncomment 'the 1i .nes below (c。阳nent those above) to reverse the test. 'Oim oFp a New FileIOPermission(FileIOPermíssionAccess . Read, "C:\ ") ' oFp. Permi tOnly () ' Oim temp s oFp.Al1Files.ToString() 'Dim strmWrite a New IO .StreamWriter( File .Open ("C: \Test\Permission. t xt " , IO . Fi1eMode .Open)) 'strmWrite.WriteLine("Hi there! " ) 'strmWrite , Flush () 'strmWrite.Close () ' Oim objWriter ~ New IO . StreamWriter( Fìle .Open ("C: \Test\NoPermíssion. 巳xt" ， IO . FíleMode.Openl) ' objWriter . WriteLine ("Hi there! " 1 'objWriter.Flush() 'objWriter .Close() "Catch objA As System. Exception " MessageBox.Show(objA.Message) " End Try End Sub Forml.vb 中的代码段 1041