使用vbs脚本添加程序到自启动项的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 因编辑器过滤了一些字符，比如&，所以下面的脚本可能会运行错误。。看官添加&&这个字符就可以了。 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 当然了，启动项在注册表有很多地方，就不一一说明了...... |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于使用vbs脚本添加程序到自启动项的代码的所有评论
