我要评论vbs脚本的功能呢是很多的，不过有时候我们只需要其中的某些功能，今天我突然想研究下怎么用vbs脚本实现添加程序到自启动项......
首先来一段吧...
复制代码 代码如下:
'==========================================================================
'
' vbscript source file -- created with sapien technologies primalscript 4.1
'
' name: add2run01.vbs
'
' author: shile
' date : 2008-12-13
'
' comment: vbs实现添加程序到自启动项
'
'==========================================================================
on error resume next '出错继续执行下个命令
dim ws
set ws=createobject("wscript.shell")
ws.regwrite "hklm\software\microsoft\windows\currentversion\run\cmd","cmd.exe"
竟然被360安全卫士拦截了，不过点击同意就可以了。在autoruns里面刷新后还是不能显示这个启动项，看来这软件不太完美.
功能太弱了，我想增强一下....
首先，弹个窗口询问询问添加什么程序到启动项，并且询问下启动项的键值。
复制代码 代码如下:
'==========================================================================
'
' vbscript source file -- created with sapien technologies primalscript 4.1
'
' name: add2run02.vbs
'
' author: shile
' date : 2008-12-13
'
' comment: vbs实现添加程序到自启动项
'
'==========================================================================
on error resume next '出错继续执行下个命令
dim ws
set ws=createobject("wscript.shell")
dim runkey,runpath
runkey = inputbox("输入自启动项键值名称","请输入")
runpath = inputbox("输入相应的程序路径","请输入")
'ws.regwrite "hklm\software\microsoft\windows\currentversion\run\cmd","cmd.exe"
ws.regwrite "hklm\software\microsoft\windows\currentversion\run\"&runkey,runpath
'提示下
msgbox "添加"&runkey"<"&runpath">成功",vbyes,"恭喜!"
本来要用vbok的，但是发现还是两个按钮，还是vbyes好！
功能还是不太强的，如果能判断是否存在已经有的项，是否替换确认，那么就比较完善了！
继续下去...
复制代码 代码如下:
'==========================================================================
'
' vbscript source file -- created with sapien technologies primalscript 4.1
'
' name: add2run03.vbs
'
' author: shile
' date : 2008-12-13
'
' comment: vbs实现添加程序到自启动项
'
'==========================================================================
on error resume next '出错继续执行下个命令
dim ws
set ws=createobject("wscript.shell")
dim runkey,runpath
runkey = inputbox("输入自启动项键值名称","请输入")
runpath = inputbox("输入相应的程序路径","请输入")
dim temp,ret
temp = ws.regread("hklm\software\microsoft\windows\currentversion\run\"&runkey)
'msgbox temp
if temp <> empty then
ret = msgbox( "键值"&runkey"已经存在,其值为"&temp",是否替换为新的值"&runpath, vbokcancel, "提示!")
if ret = vbok then
ws.regwrite "hklm\software\microsoft\windows\currentversion\run\"&runkey,runpath
msgbox "修改"&runkey"值为"&runpath"成功",vbyes,"恭喜!"
end if
else
ws.regwrite "hklm\software\microsoft\windows\currentversion\run\"&runkey,runpath
msgbox "添加"&runkey"<"&runpath">成功",vbyes,"恭喜!"
end if
当然了，启动项在注册表有很多地方，就不一一说明了......
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的，请点击进行留言回复，万千网友为您解惑！
网友评论