一键启动你要的全部程序.doc
首先，我们要准备好待启动程序的完整路径。对绝大多数程序来说，只需在开始菜单内的相应软件名上点右键，选“属性”，然后将“目标”中的文字复制下来即可。 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />

但有几个程序比较特殊，用这种方法找不到其路径，比如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)