Question

求助, VB怎么样实现调用其他应用程序, 并让该程序执行JS脚本

近日, 帮人家写了一个Adobe Indesign执行JS脚本(Indesign本身有提供API). 主要是为了提高排版之类工作的效率. 但是需要将脚本文件存放到Indesign指定的文件夹, 然后打开Indesign的Script面板点击相应文件才能运行．现在主要是想把用VB写一个界面，然后在界面上面可以接受各种参数输入后，直接点击运行按钮就可以执行着一系列脚本．而且，最好是也可以将脚本源代码也封装隐藏起来．现在问题是VB界面什么之类的都会做，但就是不知道怎么让写好的程序调用Indesign去执行这些脚本．求大神. 万分感谢





Answer 1

windowstyle 命名参数有以下这些值：

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

说明

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

在Macintosh中，vbNormalFocus、vbMinimizedFocus和vbMaximizedFocus都将应用程序置于前台；vbHide、vbNoFocus、vbMinimizeFocus都将应用程序置于后台。

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

Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。在 MacIntosh 上，默认的驱动名为 “HD” ，路径名称的每部分由冒号而非反斜线分隔。相似地，您可以指定 Macintosh 文件夹而非 \Windows.

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。