VB 修改注册表dword值

答案：
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 

Private Const HKEY_LOCAL_MACHINE = &H80000002 

Private Const REG_DWORD = 4 

Private Sub Command1_Click() 
Dim lReturn As Long '储存返回值以判断是否成功 
Dim hKey As Long '储存该键句柄 

'打开键(此处用RegCreateKey而不用RegOpenKey是因为若键存在,则两者效果相同;若不存在,则前者创建该键,后者报错) 
lReturn = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL", hKey) 

'检测是否为成功(0) 
If lReturn = 0 Then 

'此处设置键值.设置DWORD时第五个参数为欲修改成的值(Long),最后一个参数总设为4 
lReturn = RegSetValueEx(hKey, "CheckedValue", 0, REG_DWORD, 1, 4) 

'检测是否失败 
If lReturn <> 0 Then MsgBox "失败" 
Else 
MsgBox "失败" 
End If
End Sub
1，用api
2，写注册表文件，然后导入

上一个：关于ｖｂ的问题
下一个：VB代码 转换C#代码