regsetvalue问题

[stshow]

我是这么写的

主窗体中：
Private Sub dcButton2_Click()
Const HKEY_LOCAL_MACHINE = &H80000002
On Error GoTo b
Module2.RegSetValue "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" + Text2.Text, vbNullString, REG_SZ, Text1.Text, 10
Exit Sub
b: MsgBox "创建注册表项失败，请赋予此程序足够权限以修改注册表！！！", vbCritical, "创建项错误"
End Sub
Module2中：
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

我的问题是
一调RegSetVa就直接跳到b行~~~~~~~~

[zzyong00]

private Const HKEY_LOCAL_MACHINE As long= &H80000002
RegSetValue HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" + Text2.Text, REG_SZ, Text1.Text, 10
再说了，你先得用RegOpenKeyEx 打开哪个键
你在网上搜搜，有现在的模块

[meiZiNick]

关注 接分