VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/11/15(Tue) 10:03
投稿者： ダンボ
ＵＲＬ：
タイトル： 添削

そのコーディングだと監視プログラムのCPU負荷が高いですね。
また16分待っている間にBが終わってしまったら？ああそれはそれでもいいのか。

' Aの終了を監視
Do
    Ret = GetExitCodeProcess(PROCESS, ENDWORK)
    Call Sleep(1000)       '1秒位かな？無用なCPU負荷を回避する
Loop While ENDWORK = 259

' Bが表示されるまでのタイムラグを回避
Do
    If FindWindowA(vbNullString, "Bのキャプション") <> 0 Then
        Exit Do
    End If
    DoEvents               'ここはクリティカルだからCPU100%で待つ
Loop

' Bの終了を監視
Do
    If FindWindowA(vbNullString, "Bのキャプション") = 0 Then
        Exit Do
    End If
    Call Sleep(1000)       '1秒位かな？無用なCPU負荷を回避する
Loop
MsgBox "B終了！"

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -