1

Windowsが最後にスタンバイから再開された時期などを判断する方法(APIなど)はVBAにありますか? イベントを発生させようとしているのではなく、必要なときに時間を調べられるようにするだけです。

4

1 に答える 1

0

あなたの要件(イベントを発生させようとしないこと)を考慮すると、それはできないと言わなければなりません。このリンクはあなたを助けるかもしれませんが

編集:

Imports Microsoft.Win32

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler SystemEvents.PowerModeChanged, AddressOf mypmc
    End Sub

    Public Sub mypmc(ByVal sender As Object, ByVal e As PowerModeChangedEventArgs)
Dim iFileNum As Integer     'File number for output text file.
strOutputFile = "c:\log.txt"
iFileNum = FreeFile
Open strOutputFile For Output As #iFileNum

        If e.Mode = PowerModes.Suspend Then
          Print #1, "Suspending" &  TimeValue(Now)
        End If
        If e.Mode = PowerModes.Resume Then
             Print #1, "Resuming" &  TimeValue(Now)
        End If
    End Sub
End Class
于 2012-09-18T17:18:32.027 に答える