Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Petr on June 30, 2021, 01:16:19 pm

Title: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: Petr on June 30, 2021, 01:16:19 pm
Hello. I'm playing with a text file in which I write the start of the computer startup. The attached program is added to the folder after startup (START -> SHELL: STARTUP), it writes the startup time correctly. How to make it write down the end time correctly? I expected to be able to do this by monitoring the termination of the program with the _EXIT command, but if this program is terminated by the operating system, the Windows shutdown will not be written to the file. Does anyone have an idea? The whole goal of this program is only for information for me, about how many hours a day I spend at the computer...

In this version is as Windows shutdown time writed time in which is this program end. And that is not what i want.

Code: QB64: [Select]
  1. line$ = "Computer started " + DATE$ + " in " + TIME$
  2. ADDRECTOFILE line$
  3.  
  4.  
  7.     _LIMIT 10
  9.  
  10. line$ = "Computer shut down: " + DATE$ + " in " + TIME$
  11. ADDRECTOFILE line$
  13.  
  14.  
  15.  
  16.  
  17. SUB ADDRECTOFILE (record AS STRING)
  18.     ff = FREEFILE
  19.     file$ = "D:\SystemLog.txt"
  20.     IF _FILEEXISTS(file$) THEN
  21.         OPEN file$ FOR INPUT AS #ff
  22.         fg = FREEFILE
  23.         OPEN "SystemLogNew.txt" FOR OUTPUT AS #fg
  24.         WHILE NOT EOF(ff)
  25.             LINE INPUT #ff, text$
  26.             PRINT #fg, text$
  27.         WEND
  28.             PRINT #fg, record$
  29.         CLOSE ff, fg
  30.         KILL file$
  31.         NAME "SystemLogNew.txt" AS file$
  32.     ELSE
  33.         OPEN file$ FOR OUTPUT AS #ff
  34.         PRINT #ff, "LOG file record - alfa basic version. First record: " + DATE$
  35.         PRINT #ff, record$
  36.         CLOSE ff
  37.     END IF
  39.  
Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: SpriggsySpriggs on June 30, 2021, 01:30:16 pm
@Petr

Consult this link. I think it may point you in the right direction: https://www.apriorit.com/dev-blog/413-win-api-shutdown-events (https://www.apriorit.com/dev-blog/413-win-api-shutdown-events)
I'd help you but right now I'm still working on Task Dialogs
Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: Petr on July 01, 2021, 01:51:02 pm
Thanks for reply, @SpriggsySpriggs  i try do some tests with it.
Thank you.

Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: SpriggsySpriggs on July 02, 2021, 10:15:14 am
@Petr I'm in the process of converting their sample code for a shutdown logger to QB64. Here is my progress so far:

Code: QB64: [Select]
  2.  
  3. Const SHUTDOWN_NORETRY = &H00000001
  4. Const IDI_APPLICATION = 32512
  5. Const IDC_ARROW = 32512
  6. Const COLOR_WINDOW = 5
  7.  
  9.     As Long x, y
  11.  
  12. Type MSG
  13.     As _Offset hwnd
  14.     As _Unsigned Long message
  15.     As _Unsigned _Offset wParam
  16.     As _Offset lParam
  17.     As Long time
  18.     As POINT pt
  19.     As Long lPrivate
  21.  
  22. Type WNDCLASSEX
  23.     As _Unsigned Long cbSize, style
  24.     As _Offset lpfnWndProc
  25.     As Long cbClsExtra, cbWndExtra
  26.     As _Offset hInstance, hIcon, hCursor, hbrBackground, lpszMenuName, lpszClassName, hIconSm
  28.  
  30.     Function GetProcessShutdownParameters%% (ByVal lpdwLevel As _Offset, Byval lpdwFlags As _Offset)
  31.     Sub SetProcessShutdownParameters (ByVal dwLevel As Long, Byval dwFlags As Long)
  32.     Function LoadIcon%& Alias "LoadIconA" (ByVal hInstance As _Offset, Byval lpIconName As _Offset)
  33.     Function LoadCursor%& Alias "LoadCursorA" (ByVal hInstance As _Offset, Byval lpCursorName As _Offset)
  34.     Function RegisterClassEx% Alias "RegisterClassExA" (ByVal wndclassex As _Offset)
  35.     Function GetLastError& ()
  37.  
  39.     Function WindowProcCallback%& ()
  41.  
  43.     Function MAKEINTRESOURCE%& Alias "MAKEINTRSC" (ByVal i As Long)
  45.  
  46. Dim Shared As String className: className = "ShutdownWin" + Chr$(0)
  47.  
  48. Dim As WNDCLASSEX wc
  50. Dim As MSG Msg
  51.  
  52. Dim As Long dwLevel: dwLevel = 0
  53. Dim As Long dwFlags: dwFlags = 0
  54.  
  55. If GetProcessShutdownParameters(_Offset(dwLevel), _Offset(dwFlags)) Then
  56.     SetProcessShutdownParameters dwLevel, SHUTDOWN_NORETRY
  58.  
  59. 'Step 1: Registering the Window Class
  60. wc.cbSize = Len(wc)
  61. wc.style = 0
  62. wc.lpfnWndProc = WindowProcCallback
  63. wc.cbClsExtra = 0
  64. wc.cbWndExtra = 0
  65. wc.hInstance = 0
  66. wc.hIcon = LoadIcon(0, MAKEINTRESOURCE(IDI_APPLICATION))
  67. wc.hCursor = LoadCursor(0, MAKEINTRESOURCE(IDC_ARROW))
  68. wc.hbrBackground = COLOR_WINDOW + 1
  69. wc.lpszMenuName = 0
  70. wc.lpszClassName = _Offset(className)
  71. wc.hIconSm = LoadIcon(0, MAKEINTRESOURCE(IDI_APPLICATION))
  72.  
  73. If RegisterClassEx(_Offset(wc)) = 0 Then
  74.     Print "RegisterClassEx failed:"; GetLastError
  75. Else Print "OK"
  77.  
  78. Function WndProc%& (hwnd As _Offset, msg As _Unsigned Long, wParam As _Unsigned _Offset, lParam As _Offset)
  79.     Select Case msg
  80.     End Select
Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: euklides on July 03, 2021, 04:15:54 am
Batch/dos commands ending with :  shutdown /s

QB64: Shell _Hide "shutdown /s"   


Search windows "shutdown" command on the net for more options 
Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: SpriggsySpriggs on July 03, 2021, 10:22:56 am
@euklides He wants to catch a shutdown, not cause one
Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: SMcNeill on July 03, 2021, 02:08:48 pm
Windows already keeps a log of start up and shutdown times and events.  Just use Event Viewer to search them out, as wanted.

If what you want instead is to view only the timestamp of the last shutdown, copy and paste the code below at the CMD window and then press Enter:

Code: [Select]
wevtutil qe system “/q:*[System [(EventID=1074)]]” /rd:true /f:text /c:1 | findstr /i “date”
If that’s what you’re looking for, just shell to it and pipecom the result back to your program.

https://www.maketecheasier.com/see-pc-startup-and-shutdown-history-in-windows/
Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: SpriggsySpriggs on July 03, 2021, 03:52:45 pm
@Petr The code works. I finally got it to catch Windows shutdowns and log them. Here is the code:

Code: QB64: [Select]
  3.  
  4. Const SHUTDOWN_NORETRY = &H00000001
  5. Const IDI_APPLICATION = 32512
  6. Const IDC_ARROW = 32512
  7. Const COLOR_WINDOW = 5
  8. Const WS_EX_CLIENTEDGE = &H00000200
  9. Const WS_OVERLAPPED = &H00000000
  10. Const WS_CAPTION = &H00C00000
  11. Const WS_SYSMENU = &H00080000
  12. Const WS_THICKFRAME = &H00040000
  13. Const WS_MINIMIZEBOX = &H00020000
  14. Const WS_MAXIMIZEBOX = &H00010000
  15. Const WS_OVERLAPPEDWINDOW = WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
  16. Const CW_USEDEFAULT = &H80000000
  17. Const SW_SHOWMINIMIZED = 2
  18.  
  19. Const WM_CLOSE = &H0010
  20. Const WM_DESTROY = &H0002
  21. Const WM_POWERBROADCAST = &H0218
  22. Const WM_QUERYENDSESSION = &H0011
  23.  
  24. Const PBT_APMSUSPEND = &H0004
  25. Const ENDSESSION_LOGOFF = &H80000000
  26.  
  28.     As Long x, y
  30.  
  31. Type MSG
  32.     As _Offset hwnd
  33.     As _Unsigned Long message
  34.     As _Unsigned _Offset wParam
  35.     As _Offset lParam
  36.     As Long time
  37.     As POINT pt
  38.     As Long lPrivate
  40.  
  41. Type WNDCLASSEX
  42.     As _Unsigned Long cbSize, style
  43.     As _Offset lpfnWndProc
  44.     As Long cbClsExtra, cbWndExtra
  45.     As _Offset hInstance, hIcon, hCursor, hbrBackground, lpszMenuName, lpszClassName, hIconSm
  47.  
  49.     Function GetProcessShutdownParameters%% (ByVal lpdwLevel As _Offset, Byval lpdwFlags As _Offset)
  50.     Sub SetProcessShutdownParameters (ByVal dwLevel As Long, Byval dwFlags As Long)
  51.     Sub ShutdownBlockReasonCreate (ByVal hWnd As _Offset, Byval lpwszReason As _Offset)
  52.     Function DefWindowProc%& (ByVal hWnd As _Offset, Byval Msg As _Unsigned Long, Byval wParam As _Unsigned _Offset, Byval lParam As _Offset)
  53.     Sub PostQuitMessage (ByVal nExitCode As Long)
  54.     Function LoadCursor%& (ByVal hInstance As _Offset, Byval lpCursorName As _Offset)
  55.     Function LoadIcon%& (ByVal hInstance As _Offset, Byval lpIconName As _Offset)
  56.     Function RegisterClassEx% (ByVal wndclassex As _Offset)
  57.     Function CreateWindowEx%& (ByVal dwExStyle As Long, Byval lpClassName As _Offset, Byval lpWindowName As _Offset, Byval dwStyle As Long, Byval X As Long, Byval Y As Long, Byval nWidth As Long, Byval nHeight As Long, Byval hWndParent As _Offset, Byval wMenu As _Offset, Byval hInstance As _Offset, Byval lpParam As _Offset)
  58.     Sub ShowWindow (ByVal hWnd As _Offset, Byval nCmdShow As Long)
  59.     Sub UpdateWindow (ByVal hWnd As _Offset)
  60.     Function GetMessage%% (ByVal lpMsg As _Offset, Byval hWnd As _Offset, Byval wMsgFilterMin As _Unsigned Long, Byval wMsgFilterMax As _Unsigned Long)
  61.     Sub TranslateMessage (ByVal lpMsg As _Offset)
  62.     Sub DispatchMessage (ByVal lpMsg As _Offset)
  63.     Function GetModuleHandle%& (ByVal lpModulename As _Offset)
  64.     Sub DestroyWindow (ByVal hWnd As _Offset)
  65.     Function GetLastError& ()
  67.  
  69.     Function MAKEINTRESOURCE%& Alias "MAKEINTRSC" (ByVal i As Long)
  71.  
  73.     Function WindowProcCallback%& ()
  75.  
  76. If _FileExists("ShutdownLog.log") = 0 Then
  77.     Open "ShutdownLog.log" For Output As #1
  78.     Close #1
  80.  
  81. WriteLog "Computer has finished startup at " + Time$ + " on " + Date$ 'put program in SHELL:STARTUP to catch this behavior
  82.  
  83. Dim Shared As String className: className = "ShutdownWin" + Chr$(0)
  84.  
  85. Dim As WNDCLASSEX wc
  86. Dim As _Offset hwnd, hInstance
  87. Dim As MSG Msg
  88.  
  89. Dim As Long dwLevel: dwLevel = 0
  90. Dim As Long dwFlags: dwFlags = 0
  91. hInstance = GetModuleHandle(0)
  92.  
  93. If GetProcessShutdownParameters(_Offset(dwLevel), _Offset(dwFlags)) Then
  94.     SetProcessShutdownParameters dwLevel, SHUTDOWN_NORETRY
  96.  
  97. 'Step 1: Registering the Window Class
  98. wc.cbSize = Len(wc)
  99. wc.style = 0
  100. wc.lpfnWndProc = WindowProcCallback
  101. wc.cbClsExtra = 0
  102. wc.cbWndExtra = 0
  103. wc.hInstance = hInstance
  104. wc.hIcon = LoadIcon(0, MAKEINTRESOURCE(IDI_APPLICATION))
  105. wc.hCursor = LoadCursor(0, MAKEINTRESOURCE(IDC_ARROW))
  106. wc.hbrBackground = COLOR_WINDOW + 1
  107. wc.lpszMenuName = 0
  108. wc.lpszClassName = _Offset(className)
  109. wc.hIconSm = LoadIcon(0, MAKEINTRESOURCE(IDI_APPLICATION))
  110.  
  111. If RegisterClassEx(_Offset(wc)) = 0 Then
  112.     Print "RegisterClassEx failed:"; GetLastError
  113.     End
  114.     'Else Print "OK"
  116.  
  117. Dim As String clientTitle: clientTitle = "Shutdown GUI Test" + Chr$(0)
  118. 'Step 2: Creating the Window
  119. hwnd = CreateWindowEx(WS_EX_CLIENTEDGE, _Offset(className), _Offset(clientTitle), WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 240, 120, 0, 0, hInstance, 0)
  120.  
  121. If hwnd = 0 Then
  122.     Print "Window Creation Failed:"; GetLastError
  123.     End
  125.  
  126. ShowWindow hwnd, SW_SHOWMINIMIZED
  127. UpdateWindow hwnd
  128.  
  129. While GetMessage(_Offset(Msg), 0, 0, 0) > 0
  130.     TranslateMessage _Offset(Msg)
  131.     DispatchMessage _Offset(Msg)
  133.  
  134. System Val(Str$(Msg.wParam))
  135. 'End
  136.  
  137. Function WndProc%& (hwnd As _Offset, msg As _Unsigned Long, wParam As _Unsigned _Offset, lParam As _Offset)
  138.     Select Case msg
  139.         Case WM_CLOSE
  140.             DestroyWindow hwnd
  141.             Exit Case
  142.         Case WM_DESTROY
  143.             PostQuitMessage 0
  144.             Exit Case
  145.         Case WM_POWERBROADCAST
  146.             If wParam = PBT_APMSUSPEND Then
  147.                 WriteLog "Computer suspended at " + Time$ + " on " + Date$
  148.             End If
  149.             Exit Case
  150.         Case WM_QUERYENDSESSION
  151.             If lParam = 0 Then
  152.                 WriteLog "Computer started shutting down at " + Time$ + " on " + Date$
  153.                 Dim As String blockReason: blockReason = ANSIToUnicode("Shutdown logger is running..." + Chr$(0))
  154.                 ShutdownBlockReasonCreate hwnd, _Offset(blockReason)
  155.                 If (lParam And ENDSESSION_LOGOFF) = ENDSESSION_LOGOFF Then
  156.                     WriteLog "User is logging off at " + Time$ + " on " + Date$
  157.                 End If
  158.                 Exit Case
  159.             End If
  160.         Case Else
  161.             WndProc = DefWindowProc(hwnd, msg, wParam, lParam)
  162.             Exit Function
  163.     End Select
  164.     WndProc = 0
  166.  
  167. Sub WriteLog (logText As String)
  168.     Open "ShutdownLog.log" For Append As #1
  169.     Print #1, logText
  170.     Close #1
  172.  
  173. '$INCLUDE:'unicodetoansi.bas'
Title: Re: How to write Windows shutdown time (when computer shuts down) to a file?
Post by: Petr on July 04, 2021, 12:38:25 pm
Thank you all very much. I didn't know about the solution @SMcNeill  was writing about (it might have occurred to me, but it didn't occur to me), thank you Steve. @SpriggsySpriggs , thank you very much. You are a magician with dynamic libraries. Such a QB64 - librarian - David Copperfield. I will try both versions. Definitely these paths are worth exploring. Thanks a lot.
Text Only | Text with Attachments