5个回答
展开全部
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
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
追问
代码的效果是让Windows崩溃,运行不完的,有别的方法吗
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce或者RunOnceEx
在这两个地方其中一个写上你要启动的VBS(路径+名称)
在这两个地方其中一个写上你要启动的VBS(路径+名称)
更多追问追答
追问
HKEYC:LOCAL2048576.vbsMACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce
这样??
追答
新建个文本文档,把下面的贴到文档里,然后保存成1.reg,"自动VBS" 改成你自己的想要的名称
"c:\\2048576.vbs" 改成你自己VBS文件存放的完全路径,如:"C:\\Program Files (x86)\\自动脚本\\2048576.vbs"
然后双击 1.reg 导入到注册表里就可以了
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce]
"自动VBS"="c:\\2048576.vbs"
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把这文件放到,附件,启动文件夹。就可以了。
更多追问追答
追答
或者添加计划任务,让他开机时启动。
追问
怎么添加
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询