[源码]VB6.0操作注册表

逃离我推掉我的手 2023-01-23 04:00 259阅读 0赞

# VB6.0操作注册表 #

本文将介绍用CreateObject(“wscript.shell”)对象操作注册表

本文操作的注册表目录是**HKEY\_CLASSES\_ROOT\\Directory\\Background\\shell**  
也就是桌面菜单右键

下面看一下效果图：  
![在这里插入图片描述][20210713104324418.png_pic_center]

其中python 注册表 重载文件资源管理器都是我自己添加的，在桌面右键菜单就可以直接打开，十分方便

下面我们来看一下自己动手怎么实现：

![在这里插入图片描述][20210713104727841.png_pic_center]  
**在注册表里面是这个样子，这里显示的是名字。**

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzI4NDA2NTI3_size_16_color_FFFFFF_t_70_pic_center]  
**这里看到是ico文件的设置，也就是图标**

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzI4NDA2NTI3_size_16_color_FFFFFF_t_70_pic_center 1]  
**这里看到的就是点击的时候执行的命令，可以是一个路径，也可以是一条指令。**

接下来我们用Vb6.0实现添加注册表的功能

Dim WSH
    Set WSH = CreateObject("WSCRIPT.SHELL")
    WSH.RegWrite "HKEY_CLASSES_ROOT\Directory\Background\shell\test\test", "test"        '写入注册表

运行完后是这样的：

![在这里插入图片描述][20210713105751571.png_pic_center]  
下面这个代码可以加入python到右键菜单中

Dim WSH
    Set WSH = CreateObject("WSCRIPT.SHELL")
    WSH.RegWrite "D:\python\python.exe","D:\python\python.exe"

测试效果：

![在这里插入图片描述][20210713111014736.gif_pic_center]  
![在这里插入图片描述][20210713111138242.gif_pic_center]  
其实挺方便的。  
其实还可以做一个界面让用户自己输入自己想要运行的程序，代码如下：

Private Sub Command_openfile1_Click()
    CommonDialog_exe.FileName = ""
    CommonDialog_exe.Filter = "可执行应用程序(*.exe)|*.exe"
    CommonDialog_exe.FilterIndex = 2
    CommonDialog_exe.DialogTitle = "选择可执行应用程序(*.exe)"
    CommonDialog_exe.ShowOpen
    If CommonDialog_exe.FileName = "" Then
        a = "Nnothing"
    Else
        Text_command.Text = CommonDialog_exe.FileName
    End If
    End Sub
    
    
    Private Sub Command_openfile2_Click()
    CommonDialog_exe.FileName = ""
    CommonDialog_exe.Filter = "应用程序或图标文件(*.exe;*.ico)|*.exe;*.ico）"
    CommonDialog_exe.FilterIndex = 2
    CommonDialog_exe.DialogTitle = "选择图标(*.ico,*.exe)"
    CommonDialog_exe.ShowOpen
    If CommonDialog_exe.FileName = "" Then
        a = "Nnothing"
    Else
        Text_ico.Text = CommonDialog_exe.FileName
    End If
    End Sub
    
    Private Sub Command_run_Click()
    Set WSH = CreateObject("wscript.shell")
    reg_name_ico = "HKEY_CLASSES_ROOT\Directory\Background\shell\" + Text_name.Text + "\icon"
    If Text_ico.Text = "" Then
        
    WSH.RegWrite reg_name_ico, Text_ico.Text
    
    reg_name = "HKEY_CLASSES_ROOT\Directory\Background\shell\" + Text_name.Text + "\command\"
    reg_command = Text_command.Text
    WSH.RegWrite reg_name, reg_command
    MsgBox "添加成功"
    End Sub
    
    Private Sub Text_name_Change()
    Text1.Text = "HKEY_CLASSES_ROOT\Directory\Background\shell\" + Text_name.Text + "\command\"
    End Sub

下面是程序里各个控件名称：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzI4NDA2NTI3_size_16_color_FFFFFF_t_70_pic_center 2]  
测试：

![在这里插入图片描述][20210713112242637.gif_pic_center]  
十分的方便和快捷，点个赞吧，程序和源码如下：

**本程序在Windows7系统下测试，Windows10系统注册表好像有变化，但修改的代码不会有变，可自行设计。**

[https://download.csdn.net/download/qq\_28406527/20234916?spm=1001.2014.3001.5503][https_download.csdn.net_download_qq_28406527_20234916_spm_1001.2014.3001.5503]

[20210713104324418.png_pic_center]: /images/20221004/1678ac342aa544b8af03b8ecfa740e52.png
[20210713104727841.png_pic_center]: /images/20221004/599964b8785548b6972b6eac4f41ef08.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzI4NDA2NTI3_size_16_color_FFFFFF_t_70_pic_center]: /images/20221004/00f1c935442c4521a9d417d8d9024869.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzI4NDA2NTI3_size_16_color_FFFFFF_t_70_pic_center 1]: /images/20221004/e9169d22c8be4d43af9cec408663dcce.png
[20210713105751571.png_pic_center]: /images/20221004/0f606f01d5ee469d8fe6593fbe94ddb4.png
[20210713111014736.gif_pic_center]: /images/20221004/c05be819ba6040c494fedc2df15a26e5.png
[20210713111138242.gif_pic_center]: /images/20221004/e9b173929e964dc3b7fece60cd69d501.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzI4NDA2NTI3_size_16_color_FFFFFF_t_70_pic_center 2]: /images/20221004/759824ee9d9148fd8117988dbf224f8c.png
[20210713112242637.gif_pic_center]: /images/20221004/cc3b272768c048cea53204fa1d38513d.png
[https_download.csdn.net_download_qq_28406527_20234916_spm_1001.2014.3001.5503]: https://download.csdn.net/download/qq_28406527/20234916?spm=1001.2014.3001.5503