怎样从VB里打开另一个应用程序

你好！

VB编程软件对应用程序只能用以

二进制

方式打开EXE文件,并经处理,所见到的是如DOS下的DEBUG命令打开后看到的以16进制显示相同

VB编程软件能打开

源代码

组成的文件你可先运行VB6EXE文件,然后在

新建窗口

或文件

菜单栏

新建或打开工程文件,在其

代码

窗口修改代码或在对象窗口修改或增删

控件

VB中用Shell

函数可执行一个

可执行文件

例:

Dim

RetVal

RetVal

=

Shell("C:\Program

Files\Tencent\qq2007\qqexe",

1)

你可以这样写：

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

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