据统计，有90%的人在用电脑时都不是只做一件事情，比如有些人喜欢在处理文件时听听歌曲，有些人则喜欢在聊天时观看电影，还有些人喜欢在登陆邮箱的空闲时间里背背单词（积少成多嘛），而这需要我们连续的打开两个或两个以上的程序，这不仅麻烦，而且无法显示我们自己的个性，有时候甚至一不小心就给忘了（比如在CS前忘了用软件把win键给屏蔽掉...），从而给我们带来麻烦。现在，让我们用脚本打造个性的“捆绑运行”吧！
1， 基础教程:直接运行程序
语法：Dim Program1
Program1= "程序1的路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
Dim Program2
Program2= "程序2的路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program2)
Dim Program3
……
实例：win键不在想，CS任我狂
如果问打CS时最讨厌的是什么，被人爆头？错！几乎所有的人都会告诉你：是不小心按到win键然后弹出去到桌面上！尤其是1.5版时弹出去后再进就会没声音了。虽说后来可以用软件来屏蔽win键，不过有时候急着玩就会忘记先运行屏蔽程序了。能不能在打开CS时自动运行屏蔽程序呢？我们可以用脚本来实现。
新建文本文档，将下列代码复制进去，并保存为“CS.vbs”。\\后是注释，不用输入
Dim Program1 \\要运行的第一个程序CS
Program1= "D:\游戏\Counter-Strike\cstrike.exe" \\CS路径，以各自电脑为准
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1) \\运行CS
Dim Program2 \\要运行的屏蔽程序
Program2= "C:\Program Files\xwinkey.exe" \\ 屏蔽程序路径，这里推荐以前介绍过的xwinkey，功能简单实用
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program2) \\运行xwinkey
然后在桌面上给该脚本建立一个快捷方式，并将其图标改成CS的图标。现在就可以双击该快捷方式进入CS中驰骋而不用担心弹出来了。
2， 进阶教程：运行程序+键盘输入
语法：Dim Program
Program1= "程序路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WshShell.AppActivate "要发送按键的窗体的标题" \\
WshShell.SendKeys "要发送的按键"
实例：三头六臂 多个聊天程序一次登陆
现在的网虫，谁不是一大堆的网友啊，不过这个用QQ，那个用MSN，再来个用POPO的，挨个登陆还真是麻烦，能不能一下全部都登陆上去呢？当然可以！
新建文本文档，将下列代码复制进去，并保存为“聊天.vbs”
Dim Program1
Program1= "C:\Program Files\Tencent\QQ\QQ.exe"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1) \\首先启动QQ
WScript.Sleep 1000
WshShell.AppActivate "QQ用户登录" \\等待QQ运行并激活QQ窗口
WshShell.SendKeys "123456" \\要登陆的号码
WScript.Sleep 200
WshShell.SendKeys "{TAB} \\切换到密码输入栏
WshShell.SendKeys "123" \\输入密码
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" \\确认登陆
[1] [2]
MSN和POPO的也照此格式写，不过如果你所使用的聊天软件已经设置成自动登陆的话，每个段只保留前三行和最后一行即可。双击该脚本文件就可以一下登陆所有的聊天软件了。
注：%代表Ctrl，^代表Alt，+代表Shift，非数字和字母按键需要用大括号括起来。
（出处：http://www.sheup.com）