VB写入注册表

来源:百度知道 编辑:UC知道 时间:2024/06/23 05:21:02
我从网上找到一段关于写入注册表启动项的代码

Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

如果我要启动的程序是123.vbe 放在D:\game\game\
不是exe文件 是.vbe文件!

Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\123.vbe", "D:\game\game\123.vbe"
End Sub

Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "123", D:\game\game & "\" & 123 & ".exe"
End Sub