添加程序到自启动项中的vbs脚本
先来一个基本的：
' NAME: add2run01.vbs
' 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里面刷新后还是不能显示这个启动项。
下面这个，继续完善上面的脚本。
首先，弹个窗口询问询问添加什么程序到启动项，并且询问下启动项的键值。
'-------------------------------------------------------
' NAME: add2run02.vbs
' 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好！
功能还是不太强的，如果能判断是否存在已经有的项，是否替换确认，那么就比较完善了！
' NAME: add2run03.vbs
' 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
说明：启动项在注册表有很多地方，这里就不一一说明了，有兴趣的朋友，可以自行搜索下相关文档。
您可能感兴趣的文章：
添加程序到自启动项中的vbs脚本
Windows开机自启动bat脚本设置方法
vbscript基础教程-什么是vbscript
VBS脚本、BAT批处理删除自身的方法
用VBS控制鼠标的代码（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）
linux shell脚本启动java程序(图解)
VBS脚本运行库手册(12)-创建Dictionary对象
解决U盾进行转账、B2C等交易时页面无响应或不弹出证书密码输入框问题
VBS脚本运行库手册(8)-打开和关闭文本文件
VBS脚本中使用连字符