VB程序调用脚本

 

vb里怎么调用用Microsoft Scripts Host脚本写的“Hello.vbs”程序？

VB调用CMD命令,VBS脚本等等都可以实现. 这个不需要控件的
测试

Option Explicit
Private Sub Command1_Click()
 Shell "wscript.exe e:\windir.vbs ", 1
End Sub

windir.vbs
set wshshell=createobject( "wscript.shell ")
wscript.echo "windir is " & wshshell.expandenvironmentstrings( "%windir% ")


详解

Shell函数
执行一个可执行文件，返回一个   Variant   (Double)，如果成功的话，代表这个程序的任务ID，若不成功，则会返回 0。

 

语法
Shell(pathname[,windowstyle])

 

参数：
pathname   必要参数。Variant   (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。  

 

Windowstyle   可选参数。Variant   (Integer)，表示在程序运行时窗口的样式。如果   windowstyle   省略，则程序是以具有焦点的最小化窗口来执行的。  

 

windowstyle取值：
常量   值   描述  
vbHide   0   窗口被隐藏，且焦点会移到隐式窗口。  
VbNormalFocus   1   窗口具有焦点，且会还原到它原来的大小和位置。  
VbMinimizedFocus   2   窗口会以一个具有焦点的图标来显示。  
VbMaximizedFocus   3   窗口是一个具有焦点的最大化窗口。  
VbNormalNoFocus   4   窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。  
VbMinimizedNoFocus   6   窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。  

说明
如果Shell函数成功地执行了所要执行的文件，则它会返回程序的任务ID。任务ID是一个唯一的数值，用来指明正在运行的程序。如果Shell函数不能打开命名的程序，则会产生错误。

 

注意 
缺省情况下，Shell函数是以异步方式来执行其它程序的。也就是说，用Shell启动的程序可能还没有完成执行过程，就已经执行到Shell函数之后的语句。

 

 

一个有趣的测试：

一台仪器X通道串口与PC端的VB程序通信，用于测试X是否有工作异常。我在另一主机上工作，需要及时发现X的异常。通过VB调用脚本可以实现远程通知：

当VB程序运行到一定程度（例如出错）时执行一个脚本，这个脚本通过QQ快速聊天通道向外发送一条消息。