vb.net启动本地程序,并读入数据的实现方法

1.     'API関数：进程ID→进程句柄生成
2.     Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
3.  
4.       '让进程处于待机状态
5.     Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
7.     ''' <summary>
8.     ''' 应用程序启动
9.     ''' </summary>
10.     ''' <param name="AppFileName">启动应用程序名</param>
11.     ''' <param name="DataFileName">数据文件名</param>
12.     ''' <remarks>本地应用程序启动，调用模版文件，并导入数据</remarks>
13.     Public Sub RunAPP(ByVal AppFileNameAs String, ByVal DataFileName As String)
14.         Try
15.             Dim vIDProcess As Long
16.             Dim vhProcess As Long
17.             Dim vRet As Long
19.             '应用程序vAppEXE的启动路径
20.             vIDProcess = Shell(vAppEXE & " -c " & ConfFileName & " -d " & DataFileName, 1)     
21.             vhProcess = OpenProcess(&H100000, 1, vIDProcess)
23.             '程序从启动到结束，一直处于待机状态。(32bit版)
24.             'WaitForSingleObject执行、程序处于挂起状态
25.             vRet = WaitForSingleObject(vhProcess, &HFFFF)
26.             vRet = CloseHandle(vhProcess)
28.         Catch ex As Exception
29.             If ex.InnerException Is Nothing Then
30.                 Dim vstrMsg As String = "程序启动错误" & "(" & ex.Message & ")"
31.                 Throw New Exception(vstrMsg, ex)
32.             Else
33.                 Throw ex
34.             End If
36.         End Try
38.     End Sub