VB实现修改注册表值

来源：百度知道 编辑：UC知道 时间：2024/05/03 02:20:43
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun
把他的值该为0
给代码就行了 高手
DLL 调用预定错误
RegSetValueEx hKey, "Autoup", 0, REG_SZ, ByVal (EXEName), Len(EXEName)

注册表是修改了,但是 那个类型怎么变了
默认是 REG_DWORD
RegSetValueEx hKey, "NoDriveTypeAutoRun", 0, REG_DWORD, bArr(0), 4
我把REG_BINARY 改为 REG_DWORD 类型怎么又变成NONE

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private 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

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private 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
Private Declare Function RegDeleteValue Lib "advapi32.dll"