轻轻松松捆绑运行 用脚本也能

来源：eNet硅谷动力 作者：enson 出处：巧巧读书 2007-02-25 进入讨论组

• 关 键 词：
• rip
• msn

下一页 1 2 

　　据统计，有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 "要发送的按键"URl收藏 http://www.qqread.com/skill/r298971.html 更多内容请看脚本攻击和防范专题，或进入讨论组讨论。

下一页 1 2 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：查漏补缺：四种快速定位文件的方法

较新的文章：有意思！你绝对想不到浏览器还有这个功能！