コンソールアプリを非表示で実行するラッパーをVB.NETで作る。(その２)

このラッパーをWScript.ShellのExec()で使うには、

Set oExec=wShell.Exec("コンソールアプリ [引数...]")

の代わりに、

Set oExec=wShell.Exec("HideExec.exe コンソールアプリ [引数...]")

とします。

使用例（１）

Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("HideExec.exe more.com")
oExec.StdIn.WriteLine "aaa"
oExec.StdIn.WriteLine "bbb"
oExec.StdIn.Close
MsgBox oExec.StdOut.ReadAll,,"StdOut"
MsgBox oExec.StdErr.ReadAll,,"StdErr"

Exec()のStdOutやStdErrは、ノンブロッキングReadができないので、StdOutとStdErrのどちらに出るか予測できない会話はできません。
もし、StdOutとStdErrのどちらに出るか予見可能なら、会話も可能です。

使用例（２）

Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("HideExec.exe fc")
MsgBox oExec.StdOut.ReadAll,,"StdOut"
MsgBox oExec.StdErr.ReadAll,,"StdErr"