vb6 api实现开机自启

要实现VB6 API开机自启动，可以使用以下步骤：

1. 在VB6中声明Windows API函数RegCreateKeyEx、RegSetValueEx和RegCloseKey。

Private 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, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition 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

2. 在程序启动时，使用以下代码将程序的完整路径写入注册表键 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 中的 MyProgram 名称下。

Dim hKey As Long
Dim szPath As String
Dim dwSize As Long

' 获取程序的完整路径
szPath = App.Path & "\" & App.EXEName & ".exe"

' 打开注册表键
If RegCreateKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", 0, vbNullString, REG_OPTION_NON_VOLATILE, KEY_WRITE, 0, hKey, 0) <> ERROR_SUCCESS Then
    Exit Sub
End If

' 设置自启动程序的名称和值数据
If RegSetValueEx(hKey, "MyProgram", 0, REG_SZ, ByVal szPath, Len(szPath) + 1) <> ERROR_SUCCESS Then
    RegCloseKey hKey
    Exit Sub
End If

' 关闭注册表键
RegCloseKey hKey

在上面的代码中，我们使用了VB6的App.Path和App.EXEName属性获取程序的完整路径，并将其写入到 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 键值中的 MyProgram 名称下，实现了程序的自启动。

需要注意的是，写入注册表时需要具有管理员权限。如果程序没有管理员权限，则需要使用UAC提升权限。