VB2008
WinXP

スタンバイモード、休止状態のイベントを取得し判別したいのですが
下記のようにしているのですがスタンバイの時に、
両方のメッセージボックスを出してしまいます。

Public Const PBT_APMSUSPEND As Integer = &H4
    Public Const PBT_APMQUERYSTANDBY As Integer = &H5
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_POWERBROADCAST And m.WParam.ToInt32 = PBT_APMQUERYSTANDBY Then
            'スタンバイモード！
            MsgBox("スタンバイモード")
        ElseIf m.Msg = WM_POWERBROADCAST And m.WParam.ToInt32 = PBT_APMSUSPEND Then
            '休止状態！
            MsgBox("休止状態")
        End If
        MyBase.WndProc(m)
End Sub

msgbox１回目
スタンバイモード0
msgbox２回目
休止状態4

どのようにすれば、スタンバイと休止状態を判別出来るでしょうか？
ご教授よろしくお願いいたします。

> Public Const PBT_APMSUSPEND As Integer = &H4
>     Public Const PBT_APMQUERYSTANDBY As Integer = &H5
>  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
>         If m.Msg = WM_POWERBROADCAST And m.WParam.ToInt32 = PBT_APMQUERYSTANDBY Then
>             'スタンバイモード！
>             MsgBox("スタンバイモード")
>         ElseIf m.Msg = WM_POWERBROADCAST And m.WParam.ToInt32 = PBT_APMSUSPEND Then
>             '休止状態！
>             MsgBox("休止状態")
>         End If
>         MyBase.WndProc(m)
> End Sub

上記の方法では、区別が出来ないことがわかりました。
<_http://okwave.jp/qa/q1713868.html>
この方法以外に何かありましたらよろしくお願いいたします。

判別したところで、結果、どうしたいのか解らないのですが・・・

http://www.freeml.com/delphi-users/595/latest

ここでも、結構なところまでやっておられますが・・・

以上。参考まで

> 判別したところで、結果、どうしたいのか解らないのですが・・・
サーバに通知します。

> http://www.freeml.com/delphi-users/595/latest
> ここでも、結構なところまでやっておられますが・・・
> 以上。参考まで
ありがとうございます。参考にさせていただきます。

> サーバに通知します。

　　知って何がどうなるのか理解しがたいですが・・・

※　休止モード使うと、搭載メモリ分C:ドライブに容量食ってしまう
　　ので、私は休止モードを使うのオススメしないのですが。

　　できるよう頑張って下さい！

以上。

> 　　知って何がどうなるのか理解しがたいですが・・・
社外秘です。
想像にお任せしますよ。
それに知ってどうするのです？

> ※　休止モード使うと、搭載メモリ分C:ドライブに容量食ってしまう
知っていました。

> 　　ので、私は休止モードを使うのオススメしないのですが。
> 　　できるよう頑張って下さい！
休止モードにしたいって言いました？
ここのテーマは、ただの判別ですからね。

以上。

> 社外秘です。
> 想像にお任せしますよ。

　　と言う以前に『社外秘』に関わることを
　　あなたは漏えいさせているって解ってます？

　　そうしう仕事に関わっている可能性を暴露して
　　しまっていると言う事実。

　　何はともあれ、業務と守秘について再認識して
　　今後どう仕事をしていくか考えた方がよいので
　　はないでしょうか。

　　頑張って下さい！

以上。

> 　　と言う以前に『社外秘』に関わることを
> 　　あなたは漏えいさせているって解ってます？
> 　　そうしう仕事に関わっている可能性を暴露して
> 　　しまっていると言う事実。
> 　　何はともあれ、業務と守秘について再認識して
> 　　今後どう仕事をしていくか考えた方がよいので
> 　　はないでしょうか。
> 　　頑張って下さい！

具体的にどのようなものを作っているかどのくらい検討つきましたか？
その回答で、今後の業務守秘レベルを再検討したいですね。
質問をする以上、ある程度話さないととは思っていましたからね。
あなたのように色々深く質問される方もいらっしゃいますから。。
参考にしたいです。

色々聞かれると言う事は貴方の質問の仕方に問題があるからです。
(貴方が回答する立場になれば解るかと)

今まで貴方がこの掲示板で質問した事を今一度、読み返して見て下さい。
貴方は、質問者で、見ず知らずの人に教えを乞うているという事をお忘れなく。
(会社の上司に同じような対応をしていますか)

今一度下記の【掲示板ご利用に際し】をよく読んでおいて下さい。
http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban
上記が守れないのなら、他の掲示板をご利用下さい。

社外秘だなんだとか言うのなら、一度ご自分の[IP]で検索して見て下さい。
(会社のパソコン使ってネットで色々書き込みしている事はどうなのかな)
http://www.cman.jp/network/support/go_access.cgi