如何让VB运行我所指定的程序？

有一个函数：WinExec

声明：

Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

---------------------------

lpCmdLine 保存程序的绝对路径。

nCmdShow 保存程序的启动方式。

启动方式参数：

sw_hide:隐藏窗口

sw_maximze:最大化窗口

sw_minimze:最小化窗口

sw_restore:使用原始大小及位置显示窗口，并进入活动状态

sw_show:使用当前大小及位置显示，并进入活动状态

sw_showmaximized:最大化，激活

sw_showminimized:最小化，激活

sw_showminnoactive:最小化一个窗口，并不改变活动窗口

sw_showna:使用当前大小及位置显示，不改变活动窗口

sw_shownoactive:用最近的大小及位置显示，不改变活动窗口

sw_shownormal:与sw_restore相同

'定义常量

Private Const sw_hide = 0

Private Const sw_maximze = 3

Private Const sw_minimze = 6

Private Const sw_restore = 9

Private Const sw_show = 5

Private Const sw_showmaximized = 3

Private Const sw_showminimized = 2

Private Const sw_showminnoactive = 7

Private Const sw_showna = 8

Private Const sw_shownoactive = 4

Private Const sw_shownormal = 1

'定义常量

程序过程（假设Command1的单击事件）

Private Sub Command1_Click()

Call WinExec( Label1.Caption , SW_RESTORE)

End Sub

================================================

如果你想用shell打开你指向的文件则需要将Label1.Caption作为shell的参数整合到lpCmdLine中

比如：

Dim GoRun As string

GoRun = "shell地址" &" " &Label1.Caption

Call WinExce(GoRun,SW_RESTORE)

++++++++++++++++++++++++++++++++++

我对你所说的shell方法并不很理解，不知道能不能帮上你。

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

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

创建新的 Standard EXE 工程。

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

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

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

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

为窗体添加如下的代码。

Private Sub Form_Load()

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

'然后调用 Listen 方法。

tcpServer.LocalPort = 1001

tcpServer.Listen

frmClient.Show '显示客户端的窗体。

End Sub

Private Sub tcpServer_ConnectionRequest _

(ByVal requestID As Long)

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

'如果不是，

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

If tcpServer.State <>sckClosed Then _

tcpServer.Close

'接受具有 requestID 参数的

'连接。

tcpServer.Accept requestID

End Sub

Private Sub txtSendData_Change()

'名为 txtSendData 的 TextBox 控件中

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

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

'发送输入的字符串。

tcpServer.SendData txtSendData.Text

End Sub

Private Sub tcpServer_DataArrival _

(ByVal bytesTotal As Long)

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

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

'的 TextBox 的 Text 属性。

Dim strData As String

tcpServer.GetData strData

txtOutput.Text = 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 地址（例如："121.111.1.1"），也可以使用

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

tcpClient.RemoteHost = "RemoteComputerName"

tcpClient.RemotePort = 1001

End Sub

Private Sub cmdConnect_Click()

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

tcpClient.Connect

End Sub

Private Sub txtSendData_Change()

tcpClient.SendData txtSend.Text

End Sub

Private Sub tcpClient_DataArrival _

(ByVal bytesTotal As Long)

Dim strData As String

tcpClient.GetData strData

txtOutput.Text = strData

End Sub

我赞成 crazy0qwer 的意见，同时鄙视zx001z 照搬抄袭，还运行一个带这样提示的s1.exe

要注意的是 比如计算器 在 切换 科学 和 普通的时候 句柄会变化，，另外有的程序加载的慢，导致在查找句柄的时候还没建立窗体，所以查不到句柄设置失败， 有的窗体运行后不是最前端也会导致失败。所以最好用 API  FINDWINDOW 来查找句柄而不是 GetForegroundWindow  获得前端的句柄

用 findwindowex 可以查到所有的句柄声明如下

Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

---