VB初心者友の会 - Q&A掲示板過去ログ

はな、です。

shell関数では都合が悪くなってしまいました。。
ので、「こんなことできます！」の終了を待つというのに乗り換えることにしました。

WaitForSingleObject関数でタイムアウト時間を設定しますが、

    Do
        lngResult = WaitForSingleObject(lngHandle, 5000&)
    Loop While lngResult = WAIT_TIMEOUT

で、ループから戻ってこないのです。
戻ってきても、WAIT_TIMEOUT = 258になるまでがとても時間がかかります。
どなたか、同じ現象が起こった方はいらっしゃるでしょうか。

>     Do
     >         lngResult = WaitForSingleObject(lngHandle, 5000&)
     >     Loop While lngResult = WAIT_TIMEOUT

     WaitForSingleObjectは、タイムアウトorプロセス終了or異常終了するまで
     関数から戻ってきません。ＤｏＬｏｏｐの必要がないのでは。
     上の例だと、タイムアウト以外の場合、永遠にＬｏｏｐを抜けられません。

     http://www.galliver.co.jp/vbtips/index.html
     No155が参考になります。

     私は、GetExitCodeProcessでの待機派です。

> >     Do
> >         lngResult = WaitForSingleObject(lngHandle, 5000&)
> >     Loop While lngResult = WAIT_TIMEOUT
> 
> WaitForSingleObjectは、タイムアウトorプロセス終了or異常終了するまで
> 関数から戻ってきません。ＤｏＬｏｏｐの必要がないのでは。
> 上の例だと、タイムアウト以外の場合、永遠にＬｏｏｐを抜けられません。

この場合、タイムアウトの時は Do〜Loop を抜けません。

> 戻ってきても、WAIT_TIMEOUT = 258になるまでがとても時間がかかります。
「とても・・・」ってどのくらい？

試していないのですが・・・
lngResult = WaitForSingleObject(lngHandle, 5000&)
5000&ミリ秒ですから、何らかの終了をしなければ
５秒間は戻らないのでは・・・
※第二引数には、タイムアウトを起こさずに何らかの
　終了でのみ結果を戻す値もあります、調べてみて下さい。


●お礼だけの場合は、「ひとこと掲示板」か「一般掲示板」
　へ投稿するのがきまりです。
　※守らない人が多いですが・・・

　内容の変更が無いなら、タイトル部分は一切変更せずに
　返信する方が良いです。

　#26549 の様な場合は、最後の返信へ「返信」として
　内容で他の返信に対するお礼・引用等を書いておくだけで
　OKだと思います。

　内容が変更になる場合、新規投稿で新たなタイトルを
　書き、元(関連)記事の情報は内容に書いたほうが
　良いと思います。

おはようございます。

> > >     Do
> > >         lngResult = WaitForSingleObject(lngHandle, 5000&)
> > >     Loop While lngResult = WAIT_TIMEOUT
> > 
> > WaitForSingleObjectは、タイムアウトorプロセス終了or異常終了するまで
> > 関数から戻ってきません。ＤｏＬｏｏｐの必要がないのでは。
> > 上の例だと、タイムアウト以外の場合、永遠にＬｏｏｐを抜けられません。
> この場合、タイムアウトの時は Do〜Loop を抜けません。

終了するまで抜けられないということですよね。


> > 戻ってきても、WAIT_TIMEOUT = 258になるまでがとても時間がかかります。
> 「とても・・・」ってどのくらい？
> 試していないのですが・・・
> lngResult = WaitForSingleObject(lngHandle, 5000&)
> 5000&ミリ秒ですから、何らかの終了をしなければ
> ５秒間は戻らないのでは・・・
> ※第二引数には、タイムアウトを起こさずに何らかの
> 　終了でのみ結果を戻す値もあります、調べてみて下さい。

戻ってくる時は１分ぐらいかかります。
でもほとんどがもどってきません。
５秒ごとに終了しているかの確認をして、
終了していればループをぬける、はずなので、
３回ぐらい（多くても）ループを回れば抜けてくれるはずなのですが、、、、


> ●お礼だけの場合は、「ひとこと掲示板」か「一般掲示板」
> 　へ投稿するのがきまりです。
> 　※守らない人が多いですが・・・

はい、すみません。


> 　内容の変更が無いなら、タイトル部分は一切変更せずに
> 　返信する方が良いです。
> 　内容が変更になる場合、新規投稿で新たなタイトルを
> 　書き、元(関連)記事の情報は内容に書いたほうが
> 　良いと思います。

ということで、題名を変更しました。
これからもよろしくおねがいします。

> 終了するまで抜けられないということですよね。
そうです。

> > 「とても・・・」ってどのくらい？
> ：
> 戻ってくる時は１分ぐらいかかります。
> でもほとんどがもどってきません。
> ５秒ごとに終了しているかの確認をして、
> 終了していればループをぬける、はずなので、
> ３回ぐらい（多くても）ループを回れば抜けてくれるはずなのですが、、、、
電卓などで動作確認をしても結果は変わりませんか？
※電卓(Calc.Exe)で動作を確認すると５秒間でタイムアウト
　が発生しますが・・・

ちなみに、終了を待つのではなさそうなので・・・
匿名26607 さんの紹介されているHPの
158番が参考になるかもしれませんね。
※仕様に合うかは動作等を確認して見て下さい

> > ５秒ごとに終了しているかの確認をして、
> > 終了していればループをぬける、はずなので、
> > ３回ぐらい（多くても）ループを回れば抜けてくれるはずなのですが、、、、
> 電卓などで動作確認をしても結果は変わりませんか？
> ※電卓(Calc.Exe)で動作を確認すると５秒間でタイムアウト
> 　が発生しますが・・・

電卓で実験しました。
Do〜Loopをはずしていると５秒でもどってきますが、
Do〜Loopで回すと時間がかかるか、戻ってこないです。


> ちなみに、終了を待つのではなさそうなので・・・

すみません、説明がおかしかったみたいです。
終了をまっています。


> 匿名26607 さんの紹介されているHPの
> 158番が参考になるかもしれませんね。
> ※仕様に合うかは動作等を確認して見て下さい

これも確認させていただきました。
でも、せっかくなのでWaitForSingleobjectでやってみたいです。

> 電卓で実験しました。
> Do〜Loopをはずしていると５秒でもどってきますが、
> Do〜Loopで回すと時間がかかるか、戻ってこないです。
何か勘違いしてませんか？
※それとも私の読み違いですか・・・
　WaitForSingleobject関数から戻る、と言う意味ですが…


Do 〜 Loop の終了条件は「タイムアウト以外」です。
※期待しているのは「正常終了」ですが・・・

ですから、タイムアウトなら「WaitForSingleobject」
を繰返します・・・

ですから、正常な動作だと思います。

※「Do...Loop ステートメント」のヘルプにもありますが・・・
　意図的に(WhileやUntilなど終了条件以外で)ループを抜けたい
　なら、その条件で「Exit Do」をするだけです。

お手数をおかけしてすみません。

> > 電卓で実験しました。
> > Do〜Loopをはずしていると５秒でもどってきますが、
> > Do〜Loopで回すと時間がかかるか、戻ってこないです。
> 何か勘違いしてませんか？
> ※それとも私の読み違いですか・・・
> 　WaitForSingleobject関数から戻る、と言う意味ですが…

すみません。
関数からはもどってきます。
Do〜Loopからもどってこない、ということです。


> Do 〜 Loop の終了条件は「タイムアウト以外」です。
> ※期待しているのは「正常終了」ですが・・・

shell関数での起動が終了しても
なかなかDo〜Loopから戻ってきてくれないのです。
画面表示上は起動終了に見えても実際の内部では起動中ってこともありえるのでしょうか？
（shellがおかしいのかしら。。。？）


> ですから、タイムアウトなら「WaitForSingleobject」
> を繰返します・・・
> ですから、正常な動作だと思います。

はい。

> shell関数での起動が終了しても
> なかなかDo〜Loopから戻ってきてくれないのです。
> 画面表示上は起動終了に見えても実際の内部では起動中ってこともありえるのでしょうか？

大きな勘違いがまだあるようです。

これは起動の終了を待つのではなく、終了を待つコードです。
いわゆる「閉じるボタン[×]」を押されるまで、Shellの
次のステートメントを実行させたくないなどに使います。


と言う訳で、先のReの 158番 だと思うんですが・・・
　　　　　　　　  　 ^^^(155番ではなく)
※実際に 158番のTipsを読んでみましたか？