不用APL，VB也能随意操作注册表

IT商界

郑锴

　　在使用VB编写程序时,如需对注册表进行操作，通常需要调用API函数。但API函数较为复杂，VB自带的注册表操作语句只能对固定的注册表区域进行操作，有很大的局限性。现介绍一种不调用API函数也能任意操作注册表的方法：在VB中新建一个工程，在窗体上建三个命令按钮，分别取名为“write-reg”、“read-reg”、“del-reg”，程序代码如下：

　　Private Reg

　　Private Sub Form_Load()

　　set reg=NEW IWSHShell_class

　　End sub

　　Private Sub write-reg_Click()

　　reg.regwrite ("HKLM\software\应用程序名\键名","键值","REG_SZ")

　　'最后一个参数“REG_SZ”表示键的类型，为缺省值。如果在“\应用程序名”后要再加区段，则“.....\应用程序名\区段名\键名”即可。

　　End sub

　　Private sub read-reg_Click()

　　MsgBox (reg.regread("HKLM\software\应用程序名\键名"))

　　End sub

　　Private sub del-reg_Click()

　　reg.regdelete ("HKLM\software\应用程序名\键名")'如果要删除整个应用程序注册信息，则在参数中不输入“键名”。

　　End sub

　　备注：需引用“Windows Script Host Object Model”库

　　“HKLM”指：“HKEY_LOCAL_MACHINE”

　　“HKCU”指：“HKEY_CURRENT_USER”

　　其他几个注册表主键以此类推，但必须大写。