用vbs文件实现一键启动程序

1、我们要准备好待启动程序的完整路径。对绝大多数程序来说，只需在开始菜单内的相应软件名上点右键，选“属性”，然后将“目标”中的文字复制下来即可。

但有几个程序比较特殊，用这种方法找不到其路径，比如MSN Messenger和Microsoft Office中的Word、Excel等组件。下面是这些程序在默认情况下的完整路径，如果您是自定义安装，则需根据情况略作修改。

 

   MSN Messenger: "C:\Program Files\MSN Messenger\msnmsgr.exe"

 

   Word: "C:\Program Files\Microsoft Office\Office12\WINWORD.EXE"

 

   （注：这是Office2007的情况，如果是Office2003或OfficeXP，需把路径中的Office12换成Office11或Office10，下同）

 

   Excel: "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE"

 

   Access: "C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"

 

   PowerPoint: "C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"

 

   接下来，新建一个文本文档，按下面格式将你要启动的程序输进去：

 

Program1 = "C:\Program Files\Tencent\QQ\QQ.exe"

 

Program2 = "C:\Program Files\MSN Messenger\msnmsgr.exe"

 

Program3 = "C:\Program Files\Outlook Express\msimn.exe"

 

Program4 = "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE"

 

……

 

   输完以后，再根据你上面输入的行数继续输入下面命令。

 

Set WshShell=createobject("wscript.shell")

 

Set oExec=WshShell.Exec(Program1)

 

Set WshShell=createobject("wscript.shell")

 

Set oExec=WshShell.Exec(Program2)

 

Set WshShell=createobject("wscript.shell")

 

Set oExec=WshShell.Exec(Program3)

 

Set WshShell=createobject("wscript.shell")

 

Set oExec=WshShell.Exec(Program4)

 

……

2、将此文件保存在任一目录下，并将扩展名改为vbs，再点右键，选“发送到→桌面快捷方式”。最后到桌面上找到这个快捷方式，点右键选“属性”在“快捷键”中设置一个快捷键（如F9）。

3、以后再开机，只须轻轻按一下F9键，就能启动你需要的全部程序.