不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

写注册表的代码怎么我找不到啊?

楼主lang11zi（微软菜虫）2006-02-22 15:37:45 在 VB / 基础类提问

下载页:
http://www.vbaccelerator.com/home/VB/Code/Controls/Command_Bar/QuickStart_-_Creating_an_IE_Toolbar/VB6_QuickStart_Sample.asp

代码在这里

帮我看看啊,兄弟们问题点数：100、回复次数：16Top

1 楼yinweihong（）回复于 2006-02-22 15:46:02 得分 2

http://dev.csdn.net/article/77/77451.shtm

http://www.baidu.com/s?wd=vb+%D7%A2%B2%E1%B1%ED+%C0%E0%C4%A3%BF%E9&lm=0&si=&rn=10&ie=gb2312&ct=0&cl=3&f=1&rsp=0Top

2 楼myredit（狐狸）回复于 2006-02-22 15:49:22 得分 2

'模块如下
'--------------

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_DYN_DATA = &H80000006
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_USERS = &H80000003

Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
'Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
'Public Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, ByVal lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long
Public Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

'--------------
'按钮事件
Private Sub Command1_Click()

Dim Ret As Long
Dim hKey As Long
Dim StrBuf As String
Dim Num As String
Dim lpType As Long
Dim lpcbData As Long

Ret = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\xx", hKey) '创建子键
If Ret = 0 Then
Ret = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\xx", hKey) '打开子键
If Ret = 0 Then
Ret = RegSetValueEx(hKey, "a", 0, REG_SZ, ByVal "123456", 6) '写键值a="123456"
Ret = RegSetValueEx(hKey, "a", 0, REG_SZ, "123456", 6) '写键值a="123456"
End If
End If

End Sub
Top

3 楼lang11zi（微软菜虫）回复于 2006-02-22 15:53:22 得分 0

我说的是这个代码里写注册表的句子.

我想把Klemid's &Sample Bar找出来Top

4 楼faysky2（出来混，迟早是要还嘀）回复于 2006-02-22 15:58:01 得分 2

注册表读写操作（模块）

http://blog.csdn.net/yefanqiu/archive/2004/07/13/40379.aspx

Top

5 楼faysky2（出来混，迟早是要还嘀）回复于 2006-02-22 16:02:05 得分 2

没看到有 Klemid's &Sample Bar 呀

只有 VB6 QuickStart Sample.zip (72K)Top

6 楼lang11zi（微软菜虫）回复于 2006-02-22 16:53:08 得分 0

QuickStart Sample.zip
就在这个里面有代码Top

7 楼rainstormmaster（暴风雨 v2.0）回复于 2006-02-22 17:02:49 得分 2

//我说的是这个代码里写注册表的句子

不需要访问注册表，编译后，注册即可Top

8 楼lang11zi（微软菜虫）回复于 2006-02-22 17:05:04 得分 0

不是啊,我编译后,它在注册表里这个位置HKEY_CLASSES_ROOT\CLSID\{691AFBC1-3C46-406D-AD22-EB3A0F665FC1}自动写了 Klemid's &Sample Bar

我想改成我需要的文字.就是不知道它什么时候操作的.Top

9 楼yinweihong（）回复于 2006-02-22 17:52:41 得分 20

你当然会找不到
从在你注册表里面写的内容来看，应该是注册vbalCmdBar6.ocx写的

Top

10 楼faysky2（出来混，迟早是要还嘀）回复于 2006-02-22 18:04:21 得分 20

是的，QuickStart Sample.zip里面没有写注册表的代码
是vbalCmdBar6.ocx写的Top

11 楼lang11zi（微软菜虫）回复于 2006-02-23 11:07:07 得分 0

http://www.klemid.de/bar_sample.aspx
不好意思昨天把网址搞错了是这个原代码,我编译后,它在注册表里这个位置HKEY_CLASSES_ROOT\CLSID\{691AFBC1-3C46-406D-AD22-EB3A0F665FC1}自动写了 Klemid's &Sample Bar

我想改成我需要的文字.就是不知道它什么时候操作的.Top

12 楼faysky2（出来混，迟早是要还嘀）回复于 2006-02-23 11:44:31 得分 0

在文件夹里有个install.reg,你右键点编辑，打开后把其中的 "Klemid's Sample Bar" 修改为你想要的数据，关闭并保存就OKTop

13 楼yinweihong（）回复于 2006-02-23 12:32:46 得分 20

上面的已经说了，，，好快的身手啊Top

14 楼lang11zi（微软菜虫）回复于 2006-02-23 14:47:24 得分 0

我要自动地啊?

faysky2() ( ) 信誉：99
在文件夹里有个install.reg,你右键点编辑，打开后把其中的 "Klemid's Sample Bar" 修改为你想要的数据，关闭并保存就OK

兄弟这个是手动的Top

15 楼rainstormmaster（暴风雨 v2.0）回复于 2006-02-23 14:54:14 得分 20

//我要自动地啊?

那你就根据api函数访问注册表，或者shell执行这个reg文件Top

16 楼yinweihong（）回复于 2006-02-23 14:59:37 得分 10

在类模块里面有这么一句
Const strButtonFile = "&Klemid's Sample Bar"
改成你的，看是不是你所需要的呢Top