如何用VB调用外部的应用程序

使用Shell函数来调用外部的应用程序。

Shell 函数

执行一个可执行文件，返回一个 Variant

(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Shell 函数示例

本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。

Dim RetVal

RetVal = Shell("C:\WINDOWS\system32\CALC.EXE", 1)   ' 完成Calculator。

第一步：打开VisualBasic；

第二步：在主页面添加八个按钮控件；

接下来可以按要求两种选择方式：

一、用源代码。

将八个程序的源代码FRM文件拷贝到新程序的源代码里；

将按钮控件设置为指向指定的frm文件。

例子:

Private

Sub

xx_Click()

formxx.Show

End

Sub

二、用exe文件。

在按钮控件代码窗口写：

Call

Shell("x:xx/xx.exe",

vbNormalFocus)

其中x:xx/xx.exe是各个exe文件的路径。

例子：

Private

Sub

xx_Click()

Call

Shell("c:\xx.exe",

vbNormalFocus)

End

Sub

就用shell函数 足够了

shell "cmd.exe",vbhide

如果不加vbhide的ua会闪过一个黑屏 不爽

如果要执行cmd命令 shell "cmd /c net user>c:\1.txt",vbhide

执行了net user命令 回显输出到了c:\1.txt里

---