Question

用vbs写的开机启动

比如 aa.vbs，点击aa.vbs,就能开机就启动aa.vbs，在线等，能用的20分或更高，速度
忘了说了，现在还不知道,aa.vbs的途径
那个！！最好把取消启动的也说下 ！我提高分数！我就那么多了！！
再注：我要的是代码（vbs）！
现在知道启动了，但不是用 feiniaoflyer 的方法的，现在最重要的是 取消啊！
速度啊！现在说的方法很好！但不是我想要的啊！！

Answer 1

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

给我分吧

Answer 2

On Error Resume Next
set fso=wscript.createobject("scripting.filesystemobject")
set ws=WScript.CreateObject("WScript.shell")
all=Ws.ExpandEnvironmentStrings("%ALLUSERSPROFILE%")
path=all&"\「开始」菜单\程序\启动\"
fso.copyfile wscript.ScriptFullName,path&wscript.ScriptName,true

取消直接在 开始》程序》启动 里面删除就行了

Answer 3

给点思路吧，先获得当前路径
CreateObject("WScript.Shell").CurrentDirectory
然后将vbs的路径（要加上文件名）添加到注册表的自启动项
Set Reg = CreateObject("Wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\VBS","Value","REG_SZ"

Value就是你的路径

先说说是怎么启动的？

Answer 4

很简单啊！
先按开始→所有程序→找到启动一栏→把aa.vbs拉进去~
取消的话就从启动那删掉就可以啦！