【3.A.S.T】网络安全爱好者 - Powered by Discuz! Board

标题: 偷懒绝招一键启动你要的全部程序 [打印本页]

作者: 柔肠寸断 时间: 2008-6-17 14:01 标题: 偷懒绝招一键启动你要的全部程序

信许多办公室一族都有这样的经历：每次打开电脑都要逐一开启N个即时通讯工具和Email客户端，鼠标点不够几十次根本无法开始工作，还没正式投入战斗，就已经倦了。虽然我们可以将其全部设为开机自动启动，但这会大大减慢开机速度，而且在不需要它们的非工作日无法临时取消。

如果，能有一款软件，使我们只点一次鼠标或是按一个键，就能将这些程序全部启动就好了。其实，Windows本身就有这样的功能，我们只需编写一个脚本即可。

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

但有几个程序比较特殊，用这种方法找不到其路径，比如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)……
然后将此文件保存在任一目录下，并将扩展名改为vbs，再点右键，选“发送到→桌面快捷方式”。最后到桌面上找到这个快捷方式，点右键选“属性”在“快捷键”中设置一个快捷键（如F9）。
以后再开机，只须轻轻按一下F9键，就能启动你需要的全部程序，是不是很方便？

作者: Sun 时间: 2008-6-17 14:13

不错。。。。

作者: 噯伱╅詠吥變 时间: 2008-6-17 14:15

呵呵！这个是VB里的程序！

作者: Sun 时间: 2008-6-17 14:18

这个是vbs脚本哈

其实和VB是一样的啦

作者: wwhufo 时间: 2008-6-23 23:26

恩不错的想法。但是我更愿意追求速度上的流畅，我是那种即使裸奔也要速度的人^_^

作者: 3112552 时间: 2008-7-1 16:51

提示: 作者被禁止或删除内容自动屏蔽

作者: maomi 时间: 2008-7-1 23:23

恩恩我去也弄个 :handshake :lol

欢迎光临【3.A.S.T】网络安全爱好者 (http://3ast.com./)