注册 登录
编程论坛 VB6论坛

如何取消开机运行?

kofsen 发布于 2012-10-15 16:47, 545 次点击
已经可以自动运行了
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
请问代码哪里出错了?谢谢。
7 回复
#2
wube2012-10-16 20:50
取消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
#3
wube2012-10-16 20:59
手动:

run -> cmd

key -> regedit

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

Action -> delete reg data
#4
Artless2012-10-17 11:39
autorunF.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title
#5
kofsen2012-10-18 08:30
以下是引用Artless在2012-10-17 11:39:46的发言:

autorunF.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title
成功~~~谢谢各位版主的帮助。
#6
lm54132012-10-21 11:51
看到后我瞬间领悟了点什么 但还是不太了解
#7
青春无限2012-10-21 12:00
看看

#8
青春无限2012-10-21 12:02

1