kinda major update

README.md

@@ -1,9 +1,8 @@
-# AutoBloom v1.0
+# AutoBloom
 
-Make Windows 11 Bloom Wallpaper get animated when signing in.
-
-https://user-images.githubusercontent.com/20214420/136711426-270f258c-090a-4189-a4fb-3e5863ec1586.mp4
+Make Windows 11 Bloom Wallpaper get animated when signing in (light mode only).
 
+https://user-images.githubusercontent.com/59333567/230786657-43061ac4-04f2-4b04-9472-18fbdeee424d.mp4
 
 ## Installation
 
@@ -15,10 +14,10 @@ Note that this software uses scheduled tasks to run during startup. If you move
 
 To uninstall just run `uninstall.bat`.
 
-If you encounter "some virus detected" in the release, delete two `.exe` files inside `src` folder and open `compile.bat` in the same folder. It will regenerate new exe files so (hopefully) your antivirus won't complain anymore.
+The program should not be detected as a virus anymore, as it does no longer contain compiled VB code. Check [this Virustotal scan](https://www.virustotal.com/gui/file/c4d0e098ca71db2645097d6535b41835e1ed09184bd608d4a326f42f6e3de775?nocache=1) from the [latest update](/willnode/autobloom/pull/16).
 
 ## Credits
 
 Uses [MPV](https://mpv.io).
 
-All media contents are belongs to Microsoft.
+All media contents belong to Microsoft.

install.bat

@@ -1,8 +1,10 @@
 @echo off
 if not "%1"=="am_admin" (powershell start -verb runas '%0' am_admin & exit /b)
-SCHTASKS /CREATE /SC ONLOGON /TN "AUTOBLOOM" /TR "%~dp0src\RunSilent.exe"
-SCHTASKS /CREATE /SC ONSTART /TN "AUTOBLOOM PREP" /TR "%~dp0src\off.bat"
+SCHTASKS /CREATE /SC ONLOGON /TN "AUTOBLOOM" /TR "wscript '%~dp0src\silent.vbs' 'conhost cmd /c '%~dp0src\run.bat' ch'"
+SCHTASKS /CREATE /SC ONSTART /TN "AUTOBLOOM PREP" /TR "wscript '%~dp0src\silent.vbs' 'conhost cmd /c '%~dp0src\prep.bat' '" /RU "SYSTEM"
+powershell -Command "Set-ExecutionPolicy -Scope CurrentUser -ExecutionPolicy RemoteSigned"
 cls
 
 echo AutoBloom has been installed!
+
 timeout 3 >nul

mpv/README.txt → mpv/README.md

@@ -2,8 +2,8 @@ Version: mpv-x86_64-20181002
 Source: https://github.com/mpv-player/mpv
 
 Files:
-- mpv.exe
-- mpv.com
-- libbdplus.dll
-- libaacs.dll
- - mpv.conf
+- mpv.exe
+- mpv.com
+- libbdplus.dll
+- libaacs.dll
+- ~mpv.conf~

src/prep.bat

@@ -0,0 +1,4 @@
+@echo off
+set "_home=%~dp0"
+cd /D "%_home%"
+powershell -NoP .\wallpaper.ps1 "%_home%..\media\first.bmp"

src/run.bat

@@ -1,10 +1,14 @@
 @echo off
-set home=%~dp0
-cd /D "%~dp0"
-cd ..\mpv
-%home%ChangeWallpaper.exe %home%..\media\first.bmp
+if not [%1]==[ch] (start conhost cmd /c "" "%~dpnx0" ch & exit)
+powershell -NoP -W hidden ; exit
+set "_home=%~dp0"
+cd /D "%_home%"
+
+powershell -NoP .\wallpaper.ps1 "%_home%..\media\first.bmp"
+
 timeout 1
-start /B mpv %home%..\media\bloom.mp4 --no-osc --no-input-default-bindings --no-taskbar-progress
+start /B ..\mpv\mpv ..\media\bloom.mp4 --no-osc --no-input-default-bindings --no-taskbar-progress --no-window-dragging ^
+ --deband --hwdec=auto --no-border --cache=yes --demuxer-max-bytes=488281KiB --demuxer-readahead-secs=120 --autofit=100%% --player-operation-mode=pseudo-gui --input-ipc-server=\\.\pipe\mpvsocket --force-window=yes --volume=0
 cd ..\src
-timeout 5
-%home%ChangeWallpaper.exe %home%..\media\last.bmp
+timeout 2
+powershell -NoP .\wallpaper.ps1 "%_home%..\media\last.bmp"

src/silent.vbs

@@ -0,0 +1,2 @@
+Set objShell = WScript.CreateObject("WScript.Shell")
+call objShell.Run(WScript.Arguments(0), 0, false)

src/wallpaper.ps1

@@ -0,0 +1,20 @@
+$imgPath = $args[0]
+$code = @' 
+using System.Runtime.InteropServices; 
+namespace Win32{ 
+
+ public class Wallpaper{ 
+ [DllImport("user32.dll", CharSet=CharSet.Auto)] 
+ static extern int SystemParametersInfo (int uAction , int uParam , string lpvParam , int fuWinIni) ; 
+
+ public static void SetWallpaper(string thePath){ 
+ SystemParametersInfo(20,0,thePath,3); 
+ }
+ }
+ } 
+'@
+
+add-type $code 
+
+#Apply the Change on the system 
+[Win32.Wallpaper]::SetWallpaper($imgPath)

uninstall.bat

@@ -1,5 +1,6 @@
 @echo off
 if not "%1"=="am_admin" (powershell start -verb runas '%0' am_admin & exit /b)
+dism || exit
 SCHTASKS /DELETE /TN "AUTOBLOOM" /f
 SCHTASKS /DELETE /TN "AUTOBLOOM PREP" /f
 cls