打印本文 关闭窗口 | |
轻轻松松捆绑运行 用脚本也能! | |
作者:陈鹏 文章来源:eNet 点击数 更新时间:2009/9/11 1:38:41 文章录入:陈鹏 责任编辑:陈鹏 | |
|
|
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}" \\确认登陆 MSN和POPO的也照此格式写,不过如果你所使用的聊天软件已经设置成自动登陆的话,每个段只保留前三行和最后一行即可。双击该脚本文件就可以一下登陆所有的聊天软件了。 注:%代表Ctrl,^代表Alt,+代表Shift,非数字和字母按键需要用大括号括起来。 3,高级教程 哈哈,学会了前两个,高级教程你就可以自己写了啊! 【责任编辑 徐洋】 |
|
打印本文 关闭窗口 |