一个小程序

一个小程序就当玩玩的 呵呵

Imports System

Module Module1

    Sub Main()
        '声明一个程序信息类 
        Dim info As New System.Diagnostics.ProcessStartInfo()
        '设置外部程序名  
        info.FileName = "notepad.exe"
        '设置外部程序的启动参数（命令行参数）为test.txt  
        info.Arguments = "1.txt"
        '设置外部程序工作目录为   C:\  
        info.WorkingDirectory = "c:\\"
        '声明一个程序类  
        Dim pro As System.Diagnostics.Process
        Try
            ' 
            '启动外部程序  
            ' 
            pro = System.Diagnostics.Process.Start(info)

        Catch e As System.ComponentModel.Win32Exception
            Console.WriteLine("系统找不到指定的程序文件。\r{0}", e)
            Return
          
        End Try
        '打印出外部程序的开始执行时间  
        Console.WriteLine("外部程序的开始执行时间：{0}", pro.StartTime)

        pro.WaitForExit(3000)
        '这里是什么意思？？？  
        '如果这个外部程序没有结束运行则对其强行终止  
        If (pro.HasExited = False) Then
            Console.WriteLine("由主程序强行终止外部程序的运行！")
            pro.Kill()
        Else
            Console.WriteLine("由外部程序正常退出！")
        End If
        Console.WriteLine("外部程序的结束运行时间：{0}", pro.ExitTime)
        Console.WriteLine("外部程序在结束运行时的返回值：{0}", pro.ExitCode)
    End Sub

End Module