VBScript CMDプロンプトと非同期で対話する

Question

申し訳ありませんが、私はフォーラムやGoogleでこのスクリプトを書こうと数時間を費やしましたが、私はあまりにも多くの悩みやフランケンシュタインのコードに異常があると思います。

私は実行しようとしており、他のファイルをスキャンしてフィードバックとプロンプトを表示する実行可能ファイルです。手動でコマンドプロンプトでこれを実行し、最初のスキャンを行い、何をしたいかを尋ね、修復を実行して（5分以上かかることがある）、再度実行するか閉じるように促します。

擬似コードは次のようになります。

• 実行EXE ArchiveFileのConfigFile
ため
• 待ち "のコマンドを入力します。>" のための
• タイプ1
• 待ち "のコマンドを入力します。>"
• タイプ7
• "印刷先を入力してください"を待ちます
• タイプ2
• 待ちここ

を完了 "コマンドを入力します>"

タイプ9

が私の実際のコード

'Cycle through each iha file in the chosen folder 
for each objFile in objFSO.GetFolder(archiveFolder).files 
If LCase(objFSO.GetExtensionName(objFile.Name)) = "iha" Then 
    'run the iharchiveInfo.exe with the chosen config and the current archive 
     msgbox(chr(34) & exeFile & chr(34) & " " & chr(34) & objfile.path & chr(34) & " " & chr(34) & ArchiveConfig & chr(34)) 
     set oExec = Shell.exec("cmd.exe /k "& chr(34) & exeFile & " " & chr(34) & objfile.path & chr(34) & " " & chr(34) & ArchiveConfig) 
     do while Not oExec.StdOut.AtEndOfStream 
      MsgBox oExec.stdout.Readline 
     Loop 
     Msgbox("second line") 
     oExec.stdin.write chr(34) & exeFile & " " & chr(34) & objfile.path & chr(34) & " " & chr(34) & ArchiveConfig 
     Do While oExec.Status = 0 
      WScript.Sleep 100 
      WScript.StdOut.Write(oExec.StdOut.ReadAll()) 
      WScript.StdErr.Write(oExec.StdErr.ReadAll()) 
     Loop 
     msgbox ("write") 
     oExec.stdin.write 1 
     do while Not oExec.StdOut.AtEndOfStream 
      MsgBox oExec.stdOut.Readline 
     Loop 
     oExec.stdin.write 7 
exit for 
end if 
next 

であるためにそれはプロンプトcmdを開きますが、私はとのメッセージボックスを取得することはありません読み込まれた行。代わりに、私がcmdプロンプトを閉じると、次にmsgboxの書き込みを取得します。

Answer 1

ストリームの終わりに到達するまで、コマンドを起動した後に行う最初のことは、出力ライン・バイ・ラインを読まれる：

Do While Not oExec.StdOut.AtEndOfStream 
    MsgBox oExec.stdout.Readline 
Loop 

をしかし、ときcmd終了のみ発生していることこれは、パラメータ/kで開始したためです。したがって、デッドロックが発生しました。同じループが次のループでReadAllになります。実際の出力が使用される内容に応じて

いずれかReadLineあなたが読んで停止したい行全体

Do 
    line = oExec.StdOut.ReadLine 
Loop Until line = "something" 

かの条件が満たされるまでRead単一の文字、例えば読み取ることができた場合：

str = "" 
Do 
    str = str & oExec.StdOut.Read(1) 
Loop Until str = "something" 

を

また、oExec.Status <> 0のプロセスが既に終了しているので、StdInへの書き込みはもはや機能しません。ディスクリプタがまだ開いている場所（つまり、oExec.Status = 0）のどこかで書き込み操作を行う必要があります。