如题 比如在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run项下加一个值runeip 类型为reg_sz 数据是"C:\Program Files\Rising\AntiSpyware\runiep.exe" /startup

查查关于API函数用法的书

叫人查书？ 他就会查 也不见得看得懂。。。RegOpenKeyEx HKEY_CURRENT_MACHINE, "SOFTWARESOFTWARE\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, pHkRets = "C:\Program Files\Rising\AntiSpyware\runiep.exe /startup"RegSetValueEx pHk, "runeip", 0, REG_SZ, ByVal Rets, Len(Rets)RegCloseKey pHk

回复：3楼
不成功，根本就打不开，这是怎么回事儿？

看下吧，虽然是转载的==这就是你想要的===
你就是想通过注册表的方式添加一个启动项==
三楼的解释上没有错误的
可能你使用api时没有声明
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" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Private Sub Form_Load()
Dim exename As String
exename = "C:\WINDOWS\system32\1.exe"
'写注册表
Dim hKey As Long
RegCreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", hKey
RegSetValueEx hKey, "Autoup", 0, REG_SZ, ByVal (exename), Len(exename)
'关闭对主键的操作
RegCloseKey hKey
End Sub 

说的对,让人去查,我今天查了一天没看懂,看别人回答更看不懂
最后还是看函数用法,一点点,一个个参数的改的测试,实践得出了
正确的
方法.
方法不知是为什么这样,但结果是对的
代码简单得很
Private Sub Command4_Click()
Dim hKey As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN", 0, KEY_ALL_ACCESS Or KEY_WOW64_32KEY, hKey '打开键,
RegSetValueEx hKey, "测试 成功", 0, REG_SZ, ByVal "C:\calc.exe", ByVal 100
' 或:这"100" 改为 LenB(StrConv("C:\calc.exe", vbFromUnicode)) + 1
RegCloseKey hKey'关
'不用谢我,我是实在人
End Sub