ExcelVBAでコマンド実行 非同期の場合の終了確認

Question

いつもお世話になっております。
ExcelVBAで　WshShellを使いRunメソッドで非同期にしてバッチファイルを実行した後、
pauseで画面を止めているのですが、画面を×で閉じた後に
MsgBox("終了しました。")
とメッセージが出す方法はないでしょうか。
つまり、コマンド画面を閉じたかどうかがわかるような方法はありますでしょうか。

同期にすればよい話なのですが、パソコンが５分ごとにSleepになる設定で、バッチ処理が４０分程かかるために３分ごとにSendKeysでCtrlキーを押すことによりSleepを回避しています。

（１）同期にするとスリープ対策ができない。
（２）非同期だと終了メッセージが出せない。

ということで、悩んだ末、非同期でSleep対策をすることにしたのですが、上記の処理でつまずきました。
１，２について何か良い方法がありましたらご教示いただけるとありがたいです。

よろしくお願いいたします。

---

●案２でテストしてみました。

   
   myTITLE="aaa"
   WSH.Run "%ComSpec% /c " & Cmd, 1, False

   Do
      DoEvents
      WSH.AppActivate myTITLE
   Loop While Err = 0

   Err.Clear

   MsgBox ("終了しました")

としたのですがタイトルのウインドウを閉じてもErr=0のままになってしまい、ループしたままです。
タイトル名も変えてみたのですが状況は変わりませんでした。
何がいけないのでしょうか！？

Answer 1

案1：プロセス一覧を取得して、コマンドラインを見て起動したのと同じ物があるか見る。

案2：バッチ内でtitleコマンドでウィンドウタイトルを指定し、VBAのAppActivateでそのウィンドウタイトルのウィンドウをアクティブにして、エラーになれば終了していると判断する。

Comments

[poporon7]

otnさん　ありがとうございます！
案１は私の力不足で無理だと思うのですが、案２は想像がつきます。
ですが、アクティブにしてエラーになれば終了していると判断するという方法が私には思いつきませんでした！ありがとうございます！試してみます。

[otn]

丁度一致するウィンドウが無い場合、部分一致でも成功するようなので、設定するタイトルに注意です。

[poporon7]

そうなのですね！ありがとうございます。
絶対にかぶらないようなウインドウタイトルを付けて試してみます。

[poporon7]

otnさん、上記追加のように試してみましたが、ウインドウが閉じてもエラーにならずに困っています。
お知恵を拝借できないでしょうか。。

[otn]

やってみましたが、存在しないウィンドウタイトルを指定すると、実行時エラー5になります。
他のウィンドウタイトルに合致しているのでは？

[poporon7]

お手数おかけして申し訳ありませんでした。Errがでるなんて羨ましい限りです。きっとタイトルの付け方が悪いのだと思いますが、どう頑張ってもできなかったので、FindWindowで何とか解決しました。
otnさんのヒントのおかげで道が開けましたのでベストアンサーとさせていただきます。
本当にありがとうございました！

Answer 2

パソコンのスリープを回避するために指定時間ごとにSendKeysでCtrlを打つ処理を行いたいので、
非同期でコマンド処理を実行し、ウインドウが終了したらタイマー解除とメッセージを表示する方法です。

```VBA
'スリープにしないためのタイマー起動
Call TimerStart
'コマンド
cmdTxt = 〇〇〇

　　’非同期で実行
WSH.Run "%ComSpec% /c " & cmdTxt, 1, False

'ウインドウが開くまで待機
Sleep 1000

'ウインドウが閉じるまでループ
Do
  DoEvents
  'コンソールウインドウのハンドル取得
  hwnd = FindWindow("ConsoleWindowClass", vbNullString)
Loop While hwnd <> 0

'タイマー終了
Call TimerStop

　　MsgBox("終わりました")