利用VB.net2008创建注册表编辑器实例

运维 系统运维
本文主要利用微软的最新.net开发工具为大家展示创建注册表编辑器的例子,很适合.net开发工具的初学者,具有一定的实用价值。

.NET为使用与开发人员提供了功能强大、种类丰富的管理与开发工具,同时它们也是.NET框架提供的服务。本文主要利用微软的最新.net开发工具为大家展示创建注册表编辑器的例子,很适合.net开发工具的初学者,具有一定的实用价值。

本篇文章的主要开发环境是VisualStudio2008,VisualStudio系列产品一直以来都提供了强大的控件功能,然而我们利用这些控件可以编写出功能强大的应用程序,VisualStudio2008在一些特性上也做出了许多的改进。

打开VisualStudio2008在文件(File)菜单上,单击新建项目(NewProject)。在新建项目(NewProject)对话框的模板(Templates)窗格中,单击Windows应用程序(WindowsApplication)。单击确定(OK)如图1。

利用VB.net2008创建注册表编辑器实例

选择Form1窗体,在Form1窗体中添加如下控件:

分别添加Label、Button、ComboBox、TextBox、ListBox类型的控件

控件详细属性设置如下:

 

利用VB.net2008创建注册表编辑器实例

 

适当的调整控件在界面的布局,最终界面效果如图2

利用VB.net2008创建注册表编辑器实例

#p#

接下来我们需要输入代码了,进入代码编辑器

首先需要进行声明:

  1. ImportsMicrosoft.Win32.Registry  
  2.  
  3. PublicClassForm1  
  4.  
  5. InheritsSystem.Windows.Forms.Form  
  6.  
  7. DimMyRegistry  
  8.  
  9. 进入HKey_SelectedIndexChanged事件  
  10.  
  11. PrivateSubHKey_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesHKey.SelectedIndexChanged  
  12.  
  13. SelectCaseHKey.Text  
  14.  
  15. Case"ClassesRoot"  
  16.  
  17. MyRegistry=Microsoft.Win32.Registry.ClassesRoot  
  18.  
  19. Case"CurrentConfig"  
  20.  
  21. MyRegistry=Microsoft.Win32.Registry.CurrentConfig  
  22.  
  23. Case"CurrentUser"  
  24.  
  25. MyRegistry=Microsoft.Win32.Registry.CurrentUser  
  26.  
  27. Case"DynData"  
  28.  
  29. MyRegistry=Microsoft.Win32.Registry.DynData  
  30.  
  31. Case"LocalMachine"  
  32.  
  33. MyRegistry=Microsoft.Win32.Registry.LocalMachine  
  34.  
  35. Case"PerformanceData"  
  36.  
  37. MyRegistry=Microsoft.Win32.Registry.PerformanceData  
  38.  
  39. Case"Users"  
  40.  
  41. MyRegistry=Microsoft.Win32.Registry.Users  
  42.  
  43. EndSelect  
  44.  
  45. EndSub  
  46.  
  47. 进入Button1_Click事件  
  48.  
  49. PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click  
  50.  
  51. MyRegistry.CreateSubKey(SubKey.Text)'创建新键  
  52.  
  53. Results.Items.Add("CreateKey"&HKey.Text&"\"&SubKey.Text)  
  54.  
  55. EndSub  
  56.  
  57. 进入Button2_Click事件  
  58.  
  59. PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click  
  60.  
  61. MyRegistry.DeleteSubKey(SubKey.Text)'删除键  
  62.  
  63. Results.Items.Add("DeleteKey"&HKey.Text&"\"&SubKey.Text)  
  64.  
  65. EndSub  
  66.  
  67. 进入Button3_Click事件  
  68.  
  69. PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click  
  70.  
  71. MyRegistry.DeleteSubKeyTree(SubKey.Text)'删除树  
  72.  
  73. Results.Items.Add("DeleteTree"&HKey.Text&"\"&SubKey.Text)  
  74.  
  75. EndSub  
  76.  
  77. 声明一个功能  
  78.  
  79. PrivateFunctionGKEYString(ByValKeyStringAsString)  
  80.  
  81. DimsLoc  
  82.  
  83. sLoc=InStrRev(KeyString,"\")  
  84.  
  85. IfsLoc=0Then 
  86.  
  87. GKEYString=KeyString 
  88.  
  89. Else  
  90.  
  91. GKEYString=Microsoft.VisualBasic.Left(KeyString,sLoc-1)  
  92.  
  93. EndIf  
  94.  
  95. EndFunction  
  96.  
  97. 进入Button4_Click事件  
  98.  
  99. PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click  
  100.  
  101. DimTempReg'设置键  
  102.  
  103. TempReg=MyRegistry.OpenSubKey(GKEYString(SubKey.Text),-1)  
  104.  
  105. TempReg.SetValue(GKEYString(SubKey.Text),KeyValue.Text)  
  106.  
  107. TempReg.Close()  
  108.  
  109. Results.Items.Add("SetValue"&HKey.Text&"\"&SubKey.Text&"="&KeyValue.Text)  
  110.  
  111. EndSub  
  112.  
  113. 进入Button5_Click事件  
  114.  
  115. PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click  
  116.  
  117. DimTTReg  
  118.  
  119. TTReg=MyRegistry.OpenSubKey(GKEYString(SubKey.Text),-1)  
  120.  
  121. TTReg.DeleteValue(GKEYString(SubKey.Text))  
  122.  
  123. TTReg.Close()  
  124.  
  125. Results.Items.Add("DeleteValue"&HKey.Text&"\"&SubKey.Text)'删除键值  
  126.  
  127. EndSub  
  128.  
  129. 进入Button6_Click事件  
  130.  
  131. PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click  
  132.  
  133. DimTdTReg  
  134.  
  135. TdTReg=MyRegistry.OpenSubKey(GKEYString(SubKey.Text),0)'读取键  
  136.  
  137. KeyValue.Text=TdTReg.GetValue(GKEYString(SubKey.Text),"")  
  138.  
  139. TdTReg.Close()  
  140.  
  141. Results.Items.Add("ReadValue"&HKey.Text&"\"&SubKey.Text)  
  142.  
  143. EndSub  
  144.  

 

代码输入完毕后,我们运行程序进行测试,输入子键与键值。运行界面如图3所示

利用VB.net2008创建注册表编辑器实例

好了程序运行成功。

总结:

注册表编辑器应用是我们编程中常要用到的,希望本程序利用VB.net2008创建注册表编辑器的实例能够带给大家帮助,同时希望大家能够多去了解有关这方面的知识,有兴趣的朋友可以举一反三,利用这种思路可以编写出功能更强大的注册表编辑器程序。

【编辑推荐】

  1. 如何时打开多个注册表编辑器?
  2. 两种方法禁止使用注册表编辑器
  3. 用注册表编辑器改变IE收藏夹的位置
  4. 通过注册表编辑器修复IE浏览器的假死问题
  5. 如何给windows2000注册表编辑器装个地址栏?
责任编辑:韩亚珊 来源: 新客网
相关推荐

2011-08-04 16:37:09

注册表编辑器注册表

2011-08-03 15:30:29

注册表注册表编辑器

2009-10-12 16:08:14

VB.NET访问注册表

2011-08-04 16:26:20

注册表编辑器

2011-08-04 10:09:36

注册表编辑器

2011-08-04 18:49:50

注册表注册表编辑器

2011-08-19 13:36:13

windows7注册表编辑器

2011-08-04 14:08:52

Reghance注册表编辑器

2011-08-05 15:39:39

注册表系统策略编辑器

2011-08-04 18:39:54

注册表注册表编辑器

2009-10-16 09:40:54

VB.NET访问注册表

2011-08-08 17:51:14

注册表编辑器注册表

2011-08-03 15:40:09

注册表注册表编辑器

2011-08-03 15:21:45

注册表编辑器

2010-01-11 18:40:03

VB.NET操作注册表

2010-01-08 10:09:50

VB.NET注册表操作

2011-08-03 17:23:31

注册表编辑器注册表组策略

2009-11-10 17:31:38

VB.NET注册表

2011-08-03 17:53:03

注册表编辑器

2011-08-04 10:44:54

注册表编辑器IE收藏夹
点赞
收藏

51CTO技术栈公众号