VB中如何让程序开机启动？

VB中如何让程序开机启动？

Rem 加入启动命令
r = Chr(34)
If right(App.Path, 1) = \ Then
lujing = App.Path & hadsky.exe
Else
lujing = r & App.Path & \hadsky.exe & r
End If
Dim WSH
Set WSH = CreateObject(WSCRIPT.SHELL) '击活WScript.Shell对象
WSH.Regwrite HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\hadsky, lujing, REG_SZ
复制代码
Rem 删除启动命令
Dim WSH2
Set WSH2 = CreateObject(WSCRIPT.SHELL) '击活WScript.Shell对象
WSH2.regdelete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\hadsky
复制代码上面的hadsky.exe是要写入注册表启动项的程序（把它换成你要写入启动项的程序名），hadsky是写入注册注册表的子键名（不重要的）
本文摘自: 有天技术中心-电脑技术学习中心