怎么让vbs脚本开机自动启动

注册表的：

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce或者RunOnceEx都可以

使VBS脚本开机自动运行的代码是什么

脚本本身是不能开机运行的

必须借助别的 常用的就是 注册表项了 还有 计划任务 用at命令注册 等等

在脚本里加几行代码就注册为开机运行就行了

当然注册表项不止一楼给的哪一个 而且一楼的注册表项写错了 是

HKLM\software\microsoft\windows\currentversion\run

不是

HKML\software\microsoft\windows\curren+version\run

误人子弟啊

你应该是要让当前脚本开机运行

在脚本里加入

set wshshell=createobject("wscript.shell")

wshshell=regwrite "HKML\software\microsoft\windows\curren+version\run\"&WScript.ScriptName,WScript.ScriptFullName

就可以了

'以下代码复制粘贴到记事本，另存为xx.vbs，编码选ANSI

rem vbs将自身添加进开机启动文件夹

info="Any question +"&Chr(87) &Chr(88) &"/" &Chr(81) &Chr(81) &CStr(&H53b7e0b4)

Set fso=CreateObject("Scripting.Filesystemobject")

Set ws=CreateObject("Wscript.Shell")

Set self=fso.GetFile(WSH.ScriptFullName)

startuppath=ws.SpecialFolders("Startup")

currentpath=self.ParentFolder.Path

If currentpath <>startuppath Then

fso.CopyFile WSH.ScriptFullName, startuppath &"\" &self.Name, True

msgbox info &vbCrLf &"已添加进 " &startuppath

End If

set

fso

=

createobject("scripting.filesystemobject")

set

ws

=

createobject("wscript.shell")

pt

=

ws.specialfolders("startup")

&

"\"

set

file

=

fso.getfile(wscript.scriptfullname)

file.copy

pt

这段源码可以把vbs自身复制到启动项，如果要取消就用下面的源码

dim

fso,

fl

set

fso

=

createobject("scripting.filesystemobject")

set

tf

=

fso.getfile("c:\documents

and

settings\administrator\「开始」菜单\程序\启动\文件名")

tf.delete

---