VB6.0下面对注册表进行写入、读取操作

昨天应经理要求写一个关于注册表的小程序，由于博主不怎么会编程，于是去百度上找教程，发现关于修改注册表的VB代码基本上都是一大串一大串的，结果在某站上找的了关于VB修改注册表的简单方法，非常实用。

注册表读取

Dim wss As Variant '定义调用脚本所需的变量wss
Set wss = CreateObject("WScript.Shell") '调用WS
zcb = wss.RegRead("HKEY_CURRENT_CONFIG\Software\123") '读取注册表H.._C..._C...\S...\下面的123这个项的值
Text1.Text = zcb '把123这个值输出到文本框

注册表写入

Dim wss As Variant '定义调用脚本所需的变量wss
Set wss = CreateObject("WScript.Shell") '调用WS
zcb = wss.Regwrite("HKEY_CURRENT_CONFIG\Software\1234", "123", "REG_SZ") '把注册表H.._C..._C...\S...\下面的1234这个项修改成123并设置为字符型数据

是不是非常简单，博主实际测试过，有效！