お世話になっております。北窓舎の芦田と申します。
特定のアプリが起動しているときに、サスペンド状態を無効にしたいと思っています。
電源モードがサスペンドになった後で、それを解除する（サスペンド状態ではなくする）方法をお教えください。
コードでは、電源モードが変化したらプロセスを取得し特定のアプリが起動しているかを判断し、
起動していればサスペンドを無効に（レジューム状態に）したいと思っているのですが、サスペンド状態を解除することができません。
現在のコードは次のとおりです。
Private Sub SystemEvents_PowerModeChanged _
(ByVal sender As Object, ByVal e As Microsoft.Win32.PowerModeChangedEventArgs)
' ---
Dim previousExecutionState As Long = 0D
' --- PowerMode（電源モード：Suspend/Resume）
Select Case e.Mode
Case Is = Microsoft.Win32.PowerModes.Suspend
' --- ▼ サスペンド状態になった
Call cls_DGV.prc_Get_Process() ' -- プロセスを取得（dgv_Process に格納）
Call cls_DGV.prc_Check_AppRunning() ' -- 指定ソフトのプロセスが起動中かをチェック
If (cls_DGV.IsAppRunning) Then
' --★★ 指定プロセスが起動中ならサスペンド禁止 ★★
Me.DisplayHowToClose = False ' -- frm_HowToClose を表示しない
SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS)
Me.PowerStatus = "prohigit from Suspending"
Call cls_FileIO.prc_Write_LogFile(Me.PowerStatus) ' --■ Power.log ファイルを書き出す
End If
Case Is = Microsoft.Win32.PowerModes.Resume
' --- ▼ サスペンドから復帰した
Me.PowerStatus = "Resume from Suspend/Sleep"
Call cls_FileIO.prc_Write_LogFile(Me.PowerStatus) ' --■ Power.log ファイルを書き出す
Me.DisplayHowToClose = True ' -- frm_HowToClose を表示する
End Select
End Sub
' --- スリープモードを抑止にする.
Private Function DisableSleepMode() As Long
Return SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS)
End Function
' ---
Private Enum EXECUTION_STATE As Integer
ES_SYSTEM_REQUIRED = &H1
ES_DISPLAY_REQUIRED = &H2
ES_USER_PRESENT = &H4
ES_CONTINUOUS = &H80000000
End Enum
' ---
Private Declare Auto Function _
SetThreadExecutionState Lib "kernel32.dll" (ByVal esFlags As Long) As Long
皆さまのお知恵を拝借できれば幸いです。
Ashidacchi
