需要管理员权限

Dim w
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.exeName, App.Path & "\" & App.exeName & ".exe"

发表评论

电子邮件地址不会被公开。 必填项已用*标注