[分享] 教你制作 一键启动程序，用vbs文件实现

klzokklz

教你制作 一键启动程序，用vbs文件实现
相信许多办公室一族都有这样的经历：每次打开电脑都要逐一开启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键，就能启动你需要的全部程序，是不是很方便？

随便看到的文章，觉得不错，就转发过来了。

我自己也照着DIY了一个一键启动，o(∩_∩)o...哈哈

program1 = "E:\学习\登陆QQ.vbs" //--------这是一个自动登陆QQ的VBS需要一个VBS文件
program2 = "E:\学习\魔域自动登陆.vbs" //------------同上
set wshshell=createobject("wscript.shell")
set oexec=wshshell.exec(program1)
set wshshell=createobject("wscript.shell")
set oexec=wshshell.exec(program2)


登陆QQ.vbs文件内容如下:
Dim WshShell, QQPath, QQselect
  QQPath="D:\Tencent\QQ\QQ.exe" //-------请选择你的QQ途径
  Set WshShell=WScript.CreateObject("WScript.Shell")
  WshShell.Run QQPath
  WScript.Sleep 2000
  WshShell.AppActivate "Q登录"
  WshShell.SendKeys "+{TAB}"
  WshShell.SendKeys "填写你的QQ号" //--------填在两个引号中间
  WScript.Sleep 200
  WshShell.SendKeys "{TAB}"
  WshShell.SendKeys "填写你的QQ密码" //--------填在两个引号中间
  WScript.Sleep 200
  WshShell.SendKeys "{ENTER}"

魔域自动登陆.vbs文件内容如下:
dim wshshell, AutoPatchpath, AutoPatchselect
AutoPatchpath="d:\魔域\AutoPatch.exe" //---------请选择你的魔域途径
set wshshell=wscript.createobject("wscript.shell")
wscript.sleep 60000
wshshell.run Autopatchpath
wscript.sleep 9000
wshshell.sendkeys "The 48th district (Hong Kong telecommunication)"
wscript.sleep 2000
wshshell.sendkeys "Hong Kong 12 areas"
wshshell.appactivate "魔域"
wshshell.sendkeys "填写你的魔域账号" //--------填在两个引号中间
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "填写你的魔域密码" //--------填在两个引号中间
wscript.sleep 2000
wshshell.sendkeys "{enter}"
把上面两个文件保存到E盘的学习目录下 当然你也可以更改