[编程实例]使用vbs脚本添加程序到自启动项

提示：写文章后发现，CSDN的编辑器过滤了一些字符，比如&，所以下面的脚本可能会运行错误。。看官添加&&这个字符就可以了。

 

vbs脚本的功能呢是很多的，不过有时候我们只需要其中的某些功能，今天我突然想研究下怎么用vbs脚本实现添加程序到自启动项......

 

 

首先来一段吧...

 

3. '==========================================================================
4. '
5. ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
6. '
7. ' NAME: add2run01.vbs
8. '
9. ' AUTHOR: shile
10. ' DATE  : 2008-12-13
11. '
12. ' COMMENT: vbs实现添加程序到自启动项
13. '
14. '==========================================================================
16. On Error Resume Next '出错继续执行下个命令
18. dim ws
20. Set ws=CreateObject("Wscript.Shell")
22. ws.RegWrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/cmd","cmd.exe"

竟然被360安全卫士拦截了，不过点击同意就可以了。在autoruns里面刷新后还是不能显示这个启动项，看来这软件不太完美.

 

功能太弱了，我想增强一下....

 

首先，弹个窗口询问询问添加什么程序到启动项，并且询问下启动项的键值。

 

1. '==========================================================================
2. '
3. ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
4. '
5. ' NAME: add2run02.vbs
6. '
7. ' AUTHOR: shile
8. ' DATE  : 2008-12-13
9. '
10. ' COMMENT: vbs实现添加程序到自启动项
11. '
12. '==========================================================================
14. On Error Resume Next '出错继续执行下个命令
16. Dim ws
18. Set ws=CreateObject("Wscript.Shell")
20. Dim runKey,runPath
22. runKey = InputBox("输入自启动项键值名称","请输入")
23. runPath = InputBox("输入相应的程序路径","请输入")
26. 'ws.RegWrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/cmd","cmd.exe"
28. ws.RegWrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/"&runKey,runPath
30. '提示下
32. MsgBox  "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!"

本来要用vbOK的，但是发现还是两个按钮，还是vbYes好！

 

功能还是不太强的，如果能判断是否存在已经有的项，是否替换确认，那么就比较完善了！

 

继续下去...

 

1. '========================================================================== 
2. ' 
3. ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1 
4. ' 
5. ' NAME: add2run03.vbs 
6. ' 
7. ' AUTHOR: shile 
8. ' DATE  : 2008-12-13 
9. ' 
10. ' COMMENT: vbs实现添加程序到自启动项 
11. ' 
12. '========================================================================== 
14. On Error Resume Next '出错继续执行下个命令 
16. dim ws 
18. Set ws=CreateObject("Wscript.Shell") 
20. Dim runKey,runPath 
22. runKey = InputBox("输入自启动项键值名称","请输入") 
23. runPath = InputBox("输入相应的程序路径","请输入") 
25. Dim temp,ret
26. temp = ws.RegRead("HKLM/Software/Microsoft/Windows/CurrentVersion/Run/"&runKey)
27. 'MsgBox temp
29. If temp <> Empty Then
30.     ret = MsgBox( "键值"&runKey"已经存在,其值为"&temp",是否替换为新的值"&runPath, vbOKCancel, "提示!")
31.     If ret = vbOK Then
32.     ws.RegWrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/"&runKey,runPath    
33.     MsgBox  "修改"&runKey"值为"&runPath"成功",vbYes,"恭喜!"
34.     End If
35. Else
36.     ws.RegWrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/"&runKey,runPath    
37.     MsgBox  "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!"
38. End If

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