利用vbs 运行程序 并使窗口隐藏

利用vbs 运行程序 并使窗口隐藏

首先了解下  WshShell对象 

Windows脚本宿主提供了一种便捷的方式，可以用于获取系统环境变量的访问、创建

快捷方式、访问Windows的特殊文件夹，如Windows  Desktop，以及添加或删除注册表条

目。还可以使用Shell对象的功能创建更多的定制对话框以进行用户交互。

 

 

WshShell对象有三个属性：

●       CurrentDirectory 

●       Environment 

●       SpecialFolders 

 

CurrentDirectory 

该属性获取或更改当前活动目录

就是你当前运行脚本的目录

 

Environment 

该属性返回WshEnvironment对象(一个环境变量集合)。 

 

SpecialFolders

该属性返回一个SpecialFolders对象(一个特殊文件夹集合)。

 

 

WshShell对象的方法

11个

●       AppActivate                                   用于激活一个指定的已经打开的应用程序窗口。

●       CreateShortcut                 创建一个新的快捷方式，或打开一个已有的快捷方式。

●       ExpandEnvironmentStrings             返回环境变量的扩充值。 

●       LogEvent                                      向日志文件中添加一个事件条目。

●       Popup                                        在弹出式消息框中显示文本。 

●       RegDelete                                     删除注册表

●       RegRead                                     读取注册表

●       RegWrite                                     写入注册表

●       Run                                             在一个新进程中运行一个程序

●       SendKeys                                     活跃窗口发送一次或多次击键

●       Exec 在一个子命令解释器中运行一个应用程序，子命令解释器提供对StdIn、StdOut和StdErr流的访问

 

 

 

 

下面通过几个例子来实践演示下

 

Dim wsh,motionPath,DesktopPath'定义变量

 

Set wsh = CreateObject("WScript.Shell")    '创建一个WScript.Shell对象的实例

 

'CurrentDirectory  属性的使用 

motionPath = wsh.CurrentDirectory   '获得当前运行的目录 并把赋值给变量 motionPath

MsgBox motionPath

 

'Environment 属性的使用

 

 Set wshEnv = wsh.Environment("System")'创建一个Environment对象

 

 MsgBox wshEnv("OS")

 

'SpecialFolders属性的使用

DesktopPath = wsh.SpecialFolders("Desktop")

MsgBox DesktopPath

 

'AppActivate方法的使用  激活计算器

wsh.AppActivate "calc"

 

'CreateShortcut方法的使用  创建一个快捷方式 

Set cmdLnk = wsh.CreateShortcut(DesktopPath &"\myCmd.lnk")

cmdLnk.targetPath ="c:\windows\system32\cmd.exe"

cmdLnk.windowstyle = 3

 

cmdLnk.save

 

'run方法的使用

 

wsh.Run "cmd",1

------------------------------------------------分割线-----------------------------------------

 

如何使程序运行并隐藏窗口呢  

 

那就要使用run方法  

run方法就详解..

 

object.Run(strCommand,  [intWindowStyle],  [bWaitOnReturn]) 

object：WshShell对象。 

strCommand：一个字符串，表示想要运行的命令行，必须包含所有要传递给可

执行文件的参数。 

intWindowStyle：可选。一个整数值，表示程序窗口的外观。

bWaitOnReturn：可选。一个Boolean值，表示脚本在其下一条语句之前是否需

要等待程序结束。

WindowStyle

0  隐藏当前窗口并激活另一个窗口 

1  激活并显示一个窗口 如果该窗口处于最小化或最大化状态，系统将恢复其原始尺寸 

      如果是初次显示该窗口，应用程序就应该指定这个标志 

2  激活并以最小化状态显示窗口 

3  激活并以最大化状态显示窗口 

4  以其最近位置和尺寸显示一个窗口 活跃的窗口将继续保持活跃 

5  以其当前位置和尺寸显示一个窗口 

6  最小化指定的窗口并将其激活为Z序列中仅次于顶层的窗口 

7  以最小化形式显示窗口 活跃的窗口将继续保持活跃 

8  以其当前状态显示窗口 活跃的窗口将继续保持活跃 

9  激活并显示窗口 如果该窗口处于最小化或最大化状态，系统将恢复其原始尺寸

 

根据参数可以知道 只要把WindowStyle 赋值为0 即可 隐藏窗口

Dim wsh

Set wsh = CreateObject("WScript.Shell")    '创建一个WScript.Shell对象的实例

wsh.Run "cmd",0‘运行CMD 并隐藏窗口

原文：http://blog.sina.com.cn/s/blog_8ef44c3c0101cpc5.html