Dim info As System.Diagnostics.ProcessStartInfo info =New System.Diagnostics.ProcessStartInfo() info.FileName = EXE_NAME info.Arguments = arg1 &""& arg2 info.WorkingDirectory = Application.StartupPath Dim Proc As System.Diagnostics.Process Try Proc = System.Diagnostics.Process.Start(info) Proc.WaitForExit() If Proc.HasExited =FalseThen Proc.Kill() EndIf Catch ex As System.ComponentModel.Win32Exception Return EndTry
接收参数
PrivateSub frmMain_Load()Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Dim CmdArgs() AsString= System.Environment.GetCommandLineArgs() If CmdArgs.Length >1Then arg1= CmdArgs(1).ToString arg2 = CmdArgs(2).ToString EndIf End Sub