如何用VB调用一个外部EXE程序？

使用Shell函数函数。

Shell函数是VB中的内部函数，它负责执春行行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。

Shell的语法：Shell(PathName[，WindowStyle])。

PathName 为必需参数。类型为String，它指出了要执行的程序名，以扒野哗及任何需要的参数或命令行变量，也可以包括路径名。

WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。

示例，打开当前程序所脊链在目录下的TEMP.EXE文件：

Dim a As Integer

a = Shell(App.Path &"\TEMP.EXE")

新建两谈举个 label1 的组，一个是 label1(0) 另一个是 label1(1)

新建三个 command

新建一个 timer代码如下：

Dim dd As Integer

Dim ff As Boolean

Private Sub Command1_Click()

Timer1.Enabled = False

Timer1.Interval = 3000

Timer1.Enabled = True

ff = True

Label1(1).Caption = "！"

Label1(1).ForeColor = &HFF

Command2.Visible = False

Command1.Visible = False

Command3.Visible = True

End Sub

Private Sub Command2_Click()

dd = dd + 1

Select Case dd

Label1(1).Caption = "离关机还有 " &65 - dd &" 秒。"

End Select

End Sub

Private Sub Command3_Click()

ff = True

End

End Sub

Private Sub Form_Load()

Command3.Visible = False

dd = 0

ff = False

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Not (ff) Then

Cancel = True

End If

End Sub

Private Sub Timer1_Timer()

If ff Then End

If dd <65 Then

dd = dd + 1

Label1(1).Caption = "离关机还有 " &65 - dd &" 秒。"

Else

Shell "shutdown -s -t 0"

ff = True

End If

End Sub 编写好后 把含纤碧该VB程序放到 开始菜单-程竖兄序-启动 里面 就行了

Dim pid As Long

pid = Shell(App.Path & "\*.exe", vbNormalFocus)

其中app.path表示当前目录

vb的shell函数用纤晌法喊念：

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

语法：Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

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

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

---