已经可以自动运行了
Private Sub autorunTrue_Click()
Set autorunT = CreateObject("WScript.Shell")
autorunT.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
End Sub
如何取消？
我的取消代码如下
Private Sub autorunFalse_Click()
Set autorunF = CreateObject("Wscript.shell")
autorunF.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title, App.Path & "\" & App.EXEName & ".exe"      
Set autorunF = Nothing
End Sub
请问代码哪里出错了？谢谢。

取消Reg:
RegDeleteValue

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

手动:

run -> cmd

key -> regedit

Location -> SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Action -> delete reg data

autorunF.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title

成功~~~谢谢各位版主的帮助。

看到后我瞬间领悟了点什么 但还是不太了解

看看

在