Kleiner Batch Wallpaper-Changer

Geschrieben von bankaifan (Level 2 - Administrator in Ausbildung)

Erstellt am 30.07.2010, um 14:35:17 Uhr, Permanent-ID: 148015

Dieser Beitrag wurde bisher 5219 mal aufgerufen und gilt als gelöst.

Melden Sie sich mit Ihrem Nicknamen an, um diesen Beitrag zu bewerten!

0 NeutralDruckenE-Mail an FreundeBeobachten

Hallo zusammen,

hier werde ich euch meinen Wallpaper-Changer vorstellen.

Gleich vorab, wer Verbesserungsvorschläge kann diese gerne äußern.

Ziel des Programms ist es, den Desktophintergrund in bestimmten Abständen zu wechseln.

----------------------------------------------------------------------------------------------------------------------------

Benötigte Dateien:

- anz.txt
- Rename.bat
- Exit_Wallpaper.bat
- Invisible_Wallpaper.vbs
- Start_Wallpaper.bat
- wallpaper.bat

----------------------------------------------------------------------------------------------------------------------------

Zu allererst müssen wir die Bilddateien anpassen.

WICHTIG: Alle Bilddateien müssen im .bmp Format sein.

Hierzu verwenden wir die Datei "Rename.bat" mit diesem Code:

@echo off & setlocal enabledelayedexpansion
set /P "anzi="<"anz.txt"
set result=10000
if exist anz.txt set result=10%anzi%
if not exist %CD%\original mkdir %CD%\original
if not exist %CD%\autodsk mkdir %CD%\autodsk
for /f "delims=" %%i in ('dir /b *.bmp') do ( 
set /a result+=1
copy "%CD%\%%i" "%CD%\autodsk\%%i"
ren "%CD%\autodsk\%%i" !result:~-4!.bmp
if exist "%CD%\original\%%i" ren "%CD%\%%i" "%%~ni(!result:~-4!).bmp" | move /Y "%%~ni(!result:~-4!).bmp" "%CD%\original\"
if exist "%CD%\%%i" move /Y "%CD%\%%i" "%CD%\original\"
if exist "%CD%\%%~ni.jpg" del "%CD%\%%~ni.jpg"
if exist "%CD%\%%~ni.png" del "%CD%\%%~ni.png"
)
cls
echo.
echo Alle Dateien wurden erfolgreich modifiziert.
pause >nul01.
@echo off & setlocal enabledelayedexpansion 
02.
set /P "anzi="<"anz.txt" 
03.
set result=10000 
04.
if exist anz.txt set result=10%anzi% 
05.
if not exist %CD%\original mkdir %CD%\original 
06.
if not exist %CD%\autodsk mkdir %CD%\autodsk 
07.
for /f "delims=" %%i in ('dir /b *.bmp') do (  
08.
set /a result+=1 
09.
copy "%CD%\%%i" "%CD%\autodsk\%%i" 
10.
ren "%CD%\autodsk\%%i" !result:~-4!.bmp 
11.
if exist "%CD%\original\%%i" ren "%CD%\%%i" "%%~ni(!result:~-4!).bmp" | move /Y "%%~ni(!result:~-4!).bmp" "%CD%\original\" 
12.
if exist "%CD%\%%i" move /Y "%CD%\%%i" "%CD%\original\" 
13.
if exist "%CD%\%%~ni.jpg" del "%CD%\%%~ni.jpg" 
14.
if exist "%CD%\%%~ni.png" del "%CD%\%%~ni.png" 
15.
) 
16.
cls 
17.
echo. 
18.
echo Alle Dateien wurden erfolgreich modifiziert. 
19.
pause >nul

Zur Erklärung:

Die Datei anz.txt enthält die Anzahl der schon angepassten existierenden Bilddateien.
Anschließend wird die Variable "result" auf die maximalen Stellen der Bilddateien gesetzt hier, 10000. (Entspricht maximal 9999 Bilddateien)
Nun wir geprüft ob die Datei "anz.txt" existiert und anschließend wird aktuelle Anzahl der existierenden Bilder in "result" gespeichert.
Dann werden die Ordner "original" und "autodsk" erstellt
Jetzt werden alle Dateien im .bmp Format in den Ordner "autodsk" kopiert und umbenannt.
Die alten Dateien werden in den Ordner "original" kopiert.

----------------------------------------------------------------------------------------------------------------------------

Jetzt da wir die Bilddateien im richtigen Format haben und auch per Zufall die Bilder auswählen müssen wir sie nurnoch als Bildschirmhintergrund setzen.

Dazu nehmen wir die "wallpaper.bat" her:

@echo on & setlocal enabledelayedexpansion
title #Auto Wallpaper#
set "Input=%temp%\Input.vbs" 
REM ========================================================================================
REM Abfragen der Zeitabstände
echo WScript.Echo InputBox("Bitte gib die Abstände in Sekunden an.","Zeitabstände")>%Input% 
set break= 
for /f "delims=" %%i in ('cscript //nologo %Input%') do set "break=%%i" 
if break GTR 0 (
set break=60
)
pause >nul
set anz=0
for /f "delims=" %%i in ('dir /b autodsk\*.bmp') do ( 
set /a anz+=1
)
echo %anz% > anz.txt
:start
set wallpath=Y:\Wallpaper\Wallpaper\HD\HD\autodsk
:quiet
REM ========================================================================================
REM Erzeugen einer Zufallszahl
:: set /a rand=10001 + %random% %% anz
call Random.js
set /p "rand="<"%CD%\test.txt"
REM ========================================================================================
REM Wallpaper wird configuriert
REG ADD "HKCU\Control Panel\Desktop" /V Wallpaper /T REG_SZ /F /D "%wallpath%\%rand%.bmp"
REG ADD "HKCU\Control Panel\Desktop" /V WallpaperStyle /T REG_SZ /F /D 0
REG ADD "HKCU\Control Panel\Desktop" /V TileWallpaper /T REG_SZ /F /D 0
REM ========================================================================================
REM Aktualisieren des Userprofils
%SystemRoot%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters
REM ============================================================================================
REM Aufrufen von BgInfo
::cd "Y:\Settings"
::H:\Allgemein\Software\BgInfo\BgInfo.exe Y:\Settings\BGInfo.bgi /timer:0
REM ============================================================================================
REM Warten bis zum nächsten Wechsel
sleep %break%
goto :start01.
@echo on & setlocal enabledelayedexpansion 
02.
title #Auto Wallpaper# 
03.
set "Input=%temp%\Input.vbs"  
04.
REM ======================================================================================== 
05.
REM Abfragen der Zeitabstände 
06.
echo WScript.Echo InputBox("Bitte gib die Abstände in Sekunden an.","Zeitabstände")>%Input%  
07.
set break=  
08.
for /f "delims=" %%i in ('cscript //nologo %Input%') do set "break=%%i"  
09.
if break GTR 0 ( 
10.
set break=60 
11.
) 
12.
pause >nul 
13.
set anz=0 
14.
for /f "delims=" %%i in ('dir /b autodsk\*.bmp') do (  
15.
set /a anz+=1 
16.
) 
17.
echo %anz% > anz.txt 
18.
:start 
19.
set wallpath=Y:\Wallpaper\Wallpaper\HD\HD\autodsk 
20.
:quiet 
21.
REM ======================================================================================== 
22.
REM Erzeugen einer Zufallszahl 
23.
:: set /a rand=10001 + %random% %% anz 
24.
call Random.js 
25.
set /p "rand="<"%CD%\test.txt" 
26.
REM ======================================================================================== 
27.
REM Wallpaper wird configuriert 
28.
REG ADD "HKCU\Control Panel\Desktop" /V Wallpaper /T REG_SZ /F /D "%wallpath%\%rand%.bmp" 
29.
REG ADD "HKCU\Control Panel\Desktop" /V WallpaperStyle /T REG_SZ /F /D 0 
30.
REG ADD "HKCU\Control Panel\Desktop" /V TileWallpaper /T REG_SZ /F /D 0 
31.
REM ======================================================================================== 
32.
REM Aktualisieren des Userprofils 
33.
%SystemRoot%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters 
34.
REM ============================================================================================ 
35.
REM Aufrufen von BgInfo 
36.
::cd "Y:\Settings" 
37.
::H:\Allgemein\Software\BgInfo\BgInfo.exe Y:\Settings\BGInfo.bgi /timer:0 
38.
REM ============================================================================================ 
39.
REM Warten bis zum nächsten Wechsel 
40.
sleep %break% 
41.
goto :start

Hier wird zuerst per Popup der Zeitabstand zwischen den Wechseln abgefragt.
Anschließend wird die Anzahl der existierenden Bilder in die "anz.txt" gespeichert.
Nun werden die Registryeinträge angepasst und schließlich das Userprofil aktualisiert

TileWallpaper: Ersetzen wir die 0 durch eine 1 werden die bilder im Format "Nebeneinander" angezeigt.

WallpaperStyle: Ersetzen wir die 0 durch eine 2 werden die Bilder "gestreckt" angezeigt.

----------------------------------------------------------------------------------------------------------------------------

Jetzt würde das ganze schon funktioieren. Also können wir uns um ein paar Feinheiten kümmern:

Die Datei "Start_Wallpaper.bat" startet lediglich ein anderes script, kann aber für weitere Zwecke z. B. andere Programme beim Autostart starten verwendet werden.

@echo off
echo Wallpaperwechsel wird gestartet...
start RunABatMinimized.vbs wallpaper.bat
echo Wallpaperwechsel wurde gestaret...
exit01.
@echo off 
02.
echo Wallpaperwechsel wird gestartet... 
03.
start RunABatMinimized.vbs wallpaper.bat 
04.
echo Wallpaperwechsel wurde gestaret... 
05.
exit

----------------------------------------------------------------------------------------------------------------------------

Nun müssen wir diese Datei "Invisible_Wall.vbs" bearbeiten

'---Snipp RunABatMinimized.vbs
Set WshShell = WScript.CreateObject("WScript.Shell") 
Return = WshShell.Run("wallpaper.bat", 0, True) 
Set WshShell = Nothing 
'---Snapp RunABatMinimized.vbs01.
'---Snipp RunABatMinimized.vbs 
02.
Set WshShell = WScript.CreateObject("WScript.Shell")  
03.
Return = WshShell.Run("wallpaper.bat", 0, True)  
04.
Set WshShell = Nothing  
05.
'---Snapp RunABatMinimized.vbs

Diese Bewirkt, dass alle Scripte unsichtbar ausgeführt werden d. H. sie können nur beendet werden, wenn man den prozess "cmd.exe" im Taskmanager beendet.

----------------------------------------------------------------------------------------------------------------------------

Um das zu vereinfachen werden hier einfach alle "cmd.exe" Prozesse beendet

Exit_Wallpaper.bat:

@echo off
echo Alle cmd-Prozesse werden beendet...
taskkill /F /FI "WINDOWTITEL eq #Auto Wallpaper#"
echo Alle Prozesse beendet...
01.
@echo off 
02.
echo Alle cmd-Prozesse werden beendet... 
03.
taskkill /F /FI "WINDOWTITEL eq #Auto Wallpaper#" 
04.
echo Alle Prozesse beendet... 
05.
 

----------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------

Das wars soweit. Wenn noch jmd weitere Ideen oder Verbesserungsvorschläge hat, her damit.

Ansonsten viel Spaß beim testen.

Das Tool und die Anleitung ist Eigentum von ©WireWare

Kommentar schreibenMit Zitat

Anmeldung erforderlich!

Bitte melden Sie sich erst mit Ihrem Nicknamen und Passwort an.

Diskussionsverlauf (22 Kommentare)

Thread-Ansicht

bastla schreibt am 30.07.2010 um 15:09:56 Uhr
- bankaifan schreibt am 30.07.2010 um 15:23:11 Uhr
  - Biber schreibt am 30.07.2010 um 15:50:22 Uhr
    bankaifan schreibt am 30.07.2010 um 15:55:47 Uhr
  - bastla schreibt am 30.07.2010 um 15:58:24 Uhr
    bankaifan schreibt am 30.07.2010 um 16:07:17 Uhr
    bastla schreibt am 30.07.2010 um 16:12:00 Uhr
    
    Biber schreibt am 30.07.2010 um 16:12:10 Uhr
    
    Biber schreibt am 31.07.2010 um 11:46:19 Uhr
    
    TimoBeil schreibt am 30.07.2010 um 16:08:06 Uhr
bastla schreibt am 30.07.2010 um 22:54:50 Uhr
- bankaifan schreibt am 02.08.2010 um 08:18:40 Uhr
  - bastla schreibt am 02.08.2010 um 09:23:05 Uhr
    bankaifan schreibt am 02.08.2010 um 16:15:03 Uhr
    bastla schreibt am 02.08.2010 um 16:28:37 Uhr
    Biber schreibt am 02.08.2010 um 17:31:38 Uhr
    bastla schreibt am 02.08.2010 um 17:52:42 Uhr
    Biber schreibt am 02.08.2010 um 18:07:17 Uhr
    bastla schreibt am 02.08.2010 um 18:15:26 Uhr
    bankaifan schreibt am 03.08.2010 um 08:59:54 Uhr
    Biber schreibt am 03.08.2010 um 09:18:56 Uhr
    bankaifan schreibt am 03.08.2010 um 09:26:39 Uhr

bastla schreibt am 30.07.2010, 15:09:56 Uhr

Hallo bankaifan!

Nur kurz zu einem Teilaspekt: Wenn es nicht Dein Ziel ist, möglichst viele Sprachen in möglichst vielen Dateien zu verwenden, könntest Du zB mit

set /a rand=10001 + %random% %% anz

und danach der Verwendung als

... "%wallpath%\%rand:~-4%.bmp" ...

einiges einsparen ...

Grüße
bastla

Windows	Betriebssysteme	IT-Sicherheit & Recht	Entwicklung & Scripte
Linux & Unix	Netzwerke	Hardware Support	Multimedia
Apple MacOS	Internet & Intranet	Job & Weiterbildung	Off-Topic