用VB写一个独立的简单的程序能写入注册表信息如何实现

heatonc 2010-03-11 04:18:05

用VB写一个独立的简单的程序能写入注册表信息如何实现
求大大帮助

...全文

197 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

lovelbmmm00001 2010-03-25

打赏
举报

头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕头晕

chinaboyzyq 2010-03-12

打赏
举报

写注册表的API网上有不少。

贝隆 2010-03-11

打赏
举报

http://download.csdn.net/source/1709681

gukuang78 2010-03-11

打赏
举报

读完写，写完读，读完再读，写完再写……
有点头晕……

现在还是人类 2010-03-11

打赏
举报

不用呀，就一个一个的读或写不就完了，也可以读完写，写完读，读完再读，写完再写，为什么要用数组？

heatonc 2010-03-11

打赏
举报

[Quote=引用 5 楼 supermanking 的回复:]
VB codePrivateSub Command1_Click()Dim 注册表AsObject'定义对象变量Set 注册表=CreateObject("WScript.Shell.1")'创建对象'------------------ 写内容 ------------------'写入文本注册表.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值?-
[/Quote]

如果多条注册表信息是不是要使用数组?

现在还是人类 2010-03-11

打赏
举报



Private Sub Command1_Click()

   Dim 注册表 As Object                          '定义对象变量

   Set 注册表 = CreateObject("WScript.Shell.1")   '创建对象

   '------------------ 写内容 ------------------

   '写入文本

   注册表.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值", "写入的内容", "REG_SZ"

   '写入整数

   注册表.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值WORD", 100, "REG_DWORD"

   '------------------ 读取内容 ------------------

   Dim 读到的内容 As Variant

   读到的内容 = 注册表.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值")

   If IsNull(读到的内容) = True Then

      MsgBox "读不到注册表内容"

      Exit Sub

   End If

   MsgBox "取出来的内容：" & 读到的内容

End Sub

现在还是人类 2010-03-11

打赏
举报

把代码放到你要执行的事件里不就可以了吗

heatonc 2010-03-11

打赏
举报

[Quote=引用 1 楼 supermanking 的回复:]
VB codeDim 注册表AsObject'定义对象变量Set 注册表=CreateObject("WScript.Shell.1")'创建对象'------------------ 写内容 ------------------'写入文本注册表.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值","写入的内容","REG_SZ"'写入整数注?-
[/Quote]

大大你的这段内容最后如何实现执行的呢?
VB不是很了解要用C#的话公司环境装.NET组建又复杂
所以想用 VB解决一下!

bcrun 2010-03-11

打赏
举报

这个完整的类介绍你一下

http://www.vbaccelerator.com/home/VB/Code/Libraries/Registry_and_Ini_Files/Complete_Registry_Control/article.asp
Complete Registry control

另外再介绍个处理ini的
http://www.vbaccelerator.com/home/VB/Code/Libraries/Registry_and_Ini_Files/Easy_Ini_File_Access/article.asp
Easy INI File Access

现在还是人类 2010-03-11

打赏
举报



   Dim 注册表 As Object                          '定义对象变量

   Set 注册表 = CreateObject("WScript.Shell.1")   '创建对象

   '------------------ 写内容 ------------------

   '写入文本

   注册表.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值", "写入的内容", "REG_SZ"

   '写入整数

   注册表.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值", 100, "REG_DWORD"

   '------------------ 读取内容 ------------------

   Dim 读到的内容 As Variant

   读到的内容 = 注册表.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\你的项目\你的键值")

   if IsNull(读到的内容)=True Then

      Msgbox "读不到注册表内容"

   End If