VB.NET 同 Console 程序交互的方法

''' <summary>
''' 使用 .NET 自带的 Process 类可以启动外部 Console 程序并获取其输出，
''' 但 Process 类需要在外部程序结束后，才一次性返回外部程序的输出。
''' 
''' 如果想实现同外部程序的交互，Process 类无法满足要求，唯有采取自行
''' 使用 WINAPI 创建进程并关联自己管道的方法才能逐字符获取程序输出。
''' </summary>
''' <remarks>
''' 
''' 1 内部私有类 WINAPI 仅声明了所需的函数和结构及常数，并非完整 WINAPI
'''   里面的数据类型需要自己定义一下，例如 Zero、LPTSTR 要定义成 Int32
'''   相当于给系统内置的数据类型取个别名，在项目属性的“引用”页添加
''' 
''' 
''' 2 使用指南
''' 
''' 2.1 首先需要 objname = New CPLINK( _in_exepath, _in_opt_encoding) 创建一个对象实例
''' 
''' 2.1.1 参数 exepath 必须是完整的绝对路径，必须是 Console 程序
''' 
''' 2.1.2 参数 encoding 可选，是同外部程序交互时使用的编码，如果省略则为 UTF8
''' 
''' 2.2 可以用 PlinkStart(命令行字符串) 启动程序
'''     并通过公共成员 CStdout, CStderr As StreamReader 读取外部程序的输出
'''     并通过公共成员 CStdin As StreamWriter 发送内容给外部程序
''' 
''' 2.3 可以用 PlinkStartWithEvents(命令行字符串) 启动程序
'''     然后侦听事件 E_PlinkOutRecieved(data As String, channel As Integer, iscompleteline As Boolean) 获得输出
''' 
''' 2.3.1 事件参数 data 是不含回车换行的一行文本
''' 
''' 2.3.2 事件参数 channel 为数字：1 表示来自于外部程序 stdout 的输出；2 表示来自 stderr 的输出
''' 
''' 2.3.3 事件参数 iscompleteline 为 True 表示因为收到了回车换行符而输出数据行，
'''       为 False 表示是因读取超时而输出已收到的数据；
'''       超时的具体值可以用公共成员 ReadTimeout_ms 来设置，缺省值是 75 毫秒；
'''       经实测，大于这个值在实时交互中字符回显会产生可以察觉的延迟，给用户带来不愉感
''' 
''' </remarks>


Public Class CPLINK
#Region "WINAPI定义"
    Private Class WINAPI
        <System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)> _
        Private Structure STARTUPINFO
            Dim cb As DWORD
            Dim lpReserved As LPTSTR
            Dim lpDesktop As LPTSTR
            Dim lpTitle As LPTSTR
            Dim dwX As DWORD
            Dim dwY As DWORD
            Dim dwXSize As DWORD
            Dim dwYSize As DWORD
            Dim dwXCountChars As DWORD
            Dim dwYCountChars As DWORD
            Dim dwFillAttribute As DWORD
            Dim dwFlags As DWORD
            Dim wShowWindow As WORD