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