这篇文章主要介绍如何解决VB .网注册表权限问题，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！
本实例需要项目引用：
进出口公司.Win32 '用途：注册表操作导入系统。'安全访问控制'用途：访问权限控制首先，对VB .网注册表权限增加，细分起来共有11种可选的权限类型，它们对应的参数如下：
选择案例组合框1。"文本案例"完全控制ObjRegRight=RegistryRights .' FullControlCase '查询数值ObjRegRight=RegistryRights .' QueryValuesCase '设置数值ObjRegRight=RegistryRights .' SetValueCase '创建子项ObjRegRight=RegistryRights .'创建一个主键库'枚举子项ObjRegRight=RegistryRights .' EnumerateSubKeysCase '通知ObjRegRight=RegistryRights .' NotifyCase '创建链接ObjRegRight=RegistryRights .' CreateLinkCase '删除ObjRegRight=RegistryRights .'删除案例'写入DAC'ObjRegRight=RegistryRights ." WriteKeyCase "写入所有者ObjRegRight=RegistryRights .' TakeOwnershipCase '读取控制ObjRegRight=RegistryRights .readpermissionsendsselect而每个细分权限又分'允许'和'拒绝'两种访问控制类型
选择案例组合框2。"文本案例"允许objregaccesss=AccessControlType .' AllowCase '拒绝objregaccesss=AccessControlType .DenyEndSelect以下为增加VB .网注册表权限的函数
以下两函数中账户代表系统新约(新约的缩写)帐户权利和控制类型分别为上文提及的权限类型和访问控制类型
PrivateSubAddRegistrySecurity(ByValStr _ filenamstring，ByValAccountAsString，ByValRightsAsRegistryRights，byvalcontroltypesassaccesscontroltype)DimRegKeyAsRegistryRegistryKey=Registry .当前用户。CreateSubKey('此处填写具体键地址)dimregkeyaclassregisterssecurity=RegKey .GetAccessControl()dimaccessrules registry accessrule=new registry accessrule(帐户、权限、控件类型)RegkeyAcl .添加访问规则(访问规则)注册表项SetAccessControl(RegKeyl)RegKey .关闭()以下为移除注册表键权限的函数
private subremoveregistersecurity(ByValStr _ filenamstring，ByValAccountAsString，ByValRightsAsRegistryRights，byvalcontroltypesassaccesscontroltype)DimRegKeyAsRegistryRegistryKey=Registry .当前用户。CreateSubKey('此处填写具体键地址)dimregkeyaclassregisterssecurity=RegKey .GetAccessControl()dimaccessrules registry accessrule=new registry accessrule(帐户、权限、控件类型)RegkeyAcl .RemoveAccessRule(访问规则)注册表项SetAccessControl(RegKeyl)RegKey .关闭()以上是"如何解决VB .网注册表权限问题"这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注行业资讯频道！
内容来源网络，如有侵权，联系删除，本文地址：https://www.230890.com/zhan/130832.html