请问VB如何调用一个程序打开另一个程序

你可以这样写：

x = Shell("C:\Program files\Microsoft office\office14\POWERPNTEXE")

如果你还想用POWERPNT打开指定的文件，可以如下写，注意，要打开的文件名与前面的指令间为空格！

x = Shell("C:\Program files\Microsoft office\office14\POWERPNTEXE d:\jh\第3章指令ppt")

如果你的OFFICE安装路径或版本与我的不一样，可能的路径名有点差别，自己改去吧。。。

以上语句我已经正确运行了。

请使用winsock 建立连接，然后远程发送字符串 "your_path\your_exe_filenameexe", 另一端用 shell "your_path\your_exe_filenameexe" 即可执行。这个方法你要写两个软件，一个在主机运行，另一个在服务器端运行。以下是MSDN的内容

要创建一个 TCP 服务器，请按照以下步骤执行：

创建新的 Standard EXE 工程。

将缺省窗体的名称改为 frmServer。

将窗体的标题改为“TCP 服务器”。

在窗体中放入一个 Winsock 控件，并将它的名字改为 tcpServer。

在窗体上添加两个 TextBox 控件。将第一个命名为 txtSendData，第二个为 txtOutput。

为窗体添加如下的代码。

Private Sub Form_Load()

'将 LocalPort 属性设置为一个整数。

'然后调用 Listen 方法。

tcpServerLocalPort = 1001

tcpServerListen

frmClientShow '显示客户端的窗体。

End Sub

Private Sub tcpServer_ConnectionRequest _

(ByVal requestID As Long)

'检查控件的 State 属性是否为关闭的。

'如果不是，

'在接受新的连接之前先关闭此连接。

If tcpServerState <> sckClosed Then _

tcpServerClose

'接受具有 requestID 参数的

'连接。

tcpServerAccept requestID

End Sub

Private Sub txtSendData_Change()

'名为 txtSendData 的 TextBox 控件中

'包含了要发送的数据。当用户往文本框中

'键入数据时，使用 SendData 方法

'发送输入的字符串。

tcpServerSendData txtSendDataText

End Sub

Private Sub tcpServer_DataArrival _

(ByVal bytesTotal As Long)

'为进入的数据声明一个变量。

'调用 GetData 方法，并将数据赋予名为 txtOutput

'的 TextBox 的 Text 属性。

Dim strData As String

tcpServerGetData strData

txtOutputText = strData

End Sub

上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。

要创建 TCP 客户端，请按照以下步骤执行：

在工程中添加一个新的窗体，将其命名为 frmClient。

将窗体的标题改为“TCP Client”。

在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient。

在 frmClient 中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个为 txtOutput。

在窗体上放一个 CommandButton 控件，并将其命名为 cmdConnect。

将 CommandButton 控件的标题改为 Connect。

在窗体中添加如下的代码。

重点 必须将 RemoteHost 属性值修改为您的计算机的名字。

Private Sub Form_Load()

'Winsock 控件的名字为 tcpClient。

'注意：要指定远程主机，可以使用

' IP 地址（例如："12111111"），也可以使用

'计算机的“好听的名字”如下所示。

tcpClientRemoteHost = "RemoteComputerName"

tcpClientRemotePort = 1001

End Sub

Private Sub cmdConnect_Click()

'调用 Connect 方法，初始化连接。

tcpClientConnect

End Sub

Private Sub txtSendData_Change()

tcpClientSendData txtSendText

End Sub

Private Sub tcpClient_DataArrival _

(ByVal bytesTotal As Long)

Dim strData As String

tcpClientGetData strData

txtOutputText = strData

End Sub

我试了下楼上的没有问题。如果是aexe无法打开bkku的话，楼主可以试下这句：(注意是3个引号）

Shell AppPath & "\aexe """ & AppPath & "\bkku""", vbNormalFocus

如果还不行楼主可以自己检测下，

你可以在shell前写上debugprint apppath来检测apppath这个变量到底是什么。

如果还解决不了可以把你的源代码文件发出来大家讨论下。

假设你的子程序是：\x0d\function mysub(a,b,c)\x0d\\x0d\end function\x0d\\x0d\调用时可以这样：\x0d\call mysub(m,n,p)\x0d\\x0d\也可以这样：\x0d\mysub m,n,p\x0d\\x0d\注意上面两种调用方法的区别：一个要括号，一个不能加括号。

使用Shell函数函数。

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

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

PathName

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

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

示例，打开当前程序所在目录下的TEMPEXE文件：

Dim

a

As

Integer

a

=

Shell(AppPath

&

"\TEMPEXE")

以上就是关于请问VB如何调用一个程序打开另一个程序全部的内容，包括:请问VB如何调用一个程序打开另一个程序、如何用VB实现远程桌面并运行指定程序、VB如何调用指定目录下的程序打开一个文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！