据统计，有90%的人在用电脑时都不是只做一件事情，比如有些人喜欢在处理文件时听听歌曲，有些人则喜欢在聊天时观看电影，还有些人喜欢在登陆邮箱的空闲时间里背背单词（积少成多嘛），而这需要我们连续的打开两个或两个以上的程序，这不仅麻烦，而且无法显示我们自己的个性，
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 "要发送的按键"
