服务器之家

服务器之家 > 正文

使用vbs脚本添加程序到自启动项的代码

时间:2020-08-09 17:50     来源/作者:VBS教程网

因编辑器过滤了一些字符,比如&,所以下面的脚本可能会运行错误。。看官添加&&这个字符就可以了。
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


当然了,启动项在注册表有很多地方,就不一一说明了......

标签:

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
Intellij idea2020永久破解,亲测可用!!!
Intellij idea2020永久破解,亲测可用!!! 2020-07-29
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
返回顶部