Context.getResources().getResourceEntryName(view.getId())
コードハイライト使う必要ないねw
Context.getResources().getResourceEntryName(view.getId())
Dim logs() As System.Diagnostics.EventLog
logs = System.Diagnostics.EventLog.GetEventLogs()
For Each log As EventLog In logs
If log.LogDisplayName <> "システム" Then
Continue For
End If
For Each entry As EventLogEntry In log.Entries
Select Case entry.EventID
Case 6005 ' 起動
Console.WriteLine("起動 " & entry.TimeWritten)
Case 6006 ' 終了
Console.WriteLine("終了 " & entry.TimeWritten)
Console.WriteLine()
Case Else
Continue For
End Select
Next entry
Next log