By
Exit
Have you ever shut down the computer while still performing a backup?
If not, then ignore this post.
Otherwise, this program may be helpful.
It is registered in the startup folder after a query and then runs with every system start and ends only with system shutdown.
Whenever a backup activity begins or ends, a message is generated.
This prevents the computer from being accidentally turned off while a backup is still active.
; BackupDetector.exe Backup attention popup.
;==============================================================================================================
; Programm Name: BackupDetector.exe
; Description: Monitoring backup activities.
; Whenever a backup activity starts or ends, a message is generated.
; This eliminates the possibility of accidentally turning off the computer while a backup is still active.
; Syntax: BackupDetector.exe (no Parameters)
; Return Value(s): None. It's a never ending programm.
; Author: Exit ( http://www.autoitscript.com/forum/user/45639-exit )
; SourceCode: http://www.autoitscript.com/forum/index.php?showtopic=199161 Version: 2019.06.21
; COPYLEFT: © 2019 Freeware by "Exit"
; ALL WRONGS RESERVED
;==============================================================================================================
#pragma compile(AutoItExecuteAllowed, True)
#AutoIt3Wrapper_Res_SaveSource=y
#NoTrayIcon
If Not @Compiled Then Opt("TrayIconHide", 0)
Opt("ExpandVarStrings", 1)
#include <_SingleScript.au3> ; http://www.autoitscript.com/forum/index.php?showtopic=178681
_SingleScript() ; Close all running scripts with the same name
$l = (StringRight(@OSLang, 2) = "07") ? 0 : 1 ; German=0 other=1
$sScriptShortcut = @AppDataDir & "\Microsoft\Windows\Start Menu\Programs\Startup\" & StringTrimRight(@ScriptName, 3) & "lnk"
If @Compiled Then
If Not FileExists($sScriptShortcut) Then
$rc = MsgBox(4 + 32 + 256 + 262144, Default, $l ? _
"Should the program run at every system start?" : _
"Soll das Programm bei jedem Systemstart ausgeführt werden?")
If $rc = 6 Then
$rc = FileCreateShortcut(@ScriptFullPath, $sScriptShortcut)
MsgBox(64 + 262144, Default, ($rc ? "" : ("--> " & ($l ? "NO" : "KEINE") & " <-- ")) & _
($l ? "Shortcut created in the startup folder." : "Verknüpfung im Startordner erstellt."))
EndIf
EndIf
EndIf
$bMessagebox = False
$hPid = 0
While Sleep(5000)
If ProcessExists("vssvc.exe") Then ; is Volume Shadow Copy running?
If $bMessagebox = False Then
If $hPid Then ProcessClose($hPid)
$sText = $l ? "The backup is now running. @HOUR@:@MIN@:@SEC@@LF@" & _
"Please do not turn off the computer." & @LF & _
"When the backup is finished, a new message appears." : _
"Die Sicherung läuft jetzt. @HOUR@:@MIN@:@SEC@@LF@" & _
"Den Computer bitte nicht ausschalten." & @LF & _
"Wenn die Sicherung beendet ist, erscheint eine neue Meldung."
$sCommand = '$rc = MsgBox(64+262144,@ScriptName & " on " & @Computername,"' & $sText & '") + Sleep(2147483647)' ; Retain PID due to sleep
$sCommand = '"' & StringReplace($sCommand, '"', '""') & '"'
$hPid = ShellExecute(@AutoItExe, ' /AutoIt3ExecuteLine ' & $sCommand)
$bMessagebox = True
EndIf
Else
If $bMessagebox = True Then
If $hPid Then ProcessClose($hPid)
$sText = $l ? "The backup is done. @HOUR@:@MIN@:@SEC@@LF@" & _
"The computer can (but does not have to) be turned off." & @LF & _
"Thank you for your patience, now you can press 'OK'." : _
"Die Sicherung ist fertig. @HOUR@:@MIN@:@SEC@@LF@" & _
"Der Computer kann (aber muss nicht) ausgeschaltet werden." & @LF & _
"Vielen Dank für ihre Geduld. Nun können Sie 'OK' drücken."
$sCommand = '$rc = MsgBox(64+262144,@ScriptName & " on " & @Computername,"' & $sText & '") + Sleep(2147483647)' ; Retain PID due to sleep
$sCommand = '"' & StringReplace($sCommand, '"', '""') & '"'
$hPid = ShellExecute(@AutoItExe, ' /AutoIt3ExecuteLine ' & $sCommand)
$bMessagebox = False
EndIf
EndIf
WEnd
; End of BackupDetector script
By water
By Exit
By ThePoro
By rudi
By nooneclose