Hi @all
Ich hab mal eine Frage
Wie kann man in autoit den desktop Hintergrund veränderz , also ein anderes Bild
Habe schon gesucht aber nichts gefunden
Hi @all
Ich hab mal eine Frage
Wie kann man in autoit den desktop Hintergrund veränderz , also ein anderes Bild
Habe schon gesucht aber nichts gefunden
Global Const $SPIF_SENDWININICHANGE = 0x2
Global Const $SPIF_UPDATEINIFILE = 0x1
Global Const $SPI_SETDESKWALLPAPER = 20
Global $defaultwallpaper = "c:\bild.bmp"
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $defaultwallpaper, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
[/autoit][autoit][/autoit][autoit][/autoit]bitte
so hatte ich es mal mit automatischem wechsel des bildes
Global Const $SPIF_SENDWININICHANGE = 0x2
Global Const $SPIF_UPDATEINIFILE = 0x1
Global Const $SPI_SETDESKWALLPAPER = 20
Global $arBild[10] = [ _
"C:\BS\PICCHANGE\1\bild.bmp", _
"C:\BS\PICCHANGE\2\bild.bmp", _
"C:\BS\PICCHANGE\3\bild.bmp", _
"C:\BS\PICCHANGE\4\bild.bmp", _
"C:\BS\PICCHANGE\5\bild.bmp", _
"C:\BS\PICCHANGE\6\bild.bmp", _
"C:\BS\PICCHANGE\7\bild.bmp", _
"C:\BS\PICCHANGE\8\bild.bmp", _
"C:\BS\PICCHANGE\9\bild.bmp", _
"C:\BS\PICCHANGE\10\bild.bmp"]
Global $pos = 0
Global $INT = FileReadLine("C:\INT.txt",1)
#Include <Constants.au3>
$size = FileGetSize("C:\BS\PICCHANGE\1\" & $arBild[0])
If $size = 0 then _Install ()
Func _Install ()
For $i = 1 To 10
DirCreate("C:\BS\PICCHANGE\" & $i)
FileInstall("1.bmp", "C:\BS\PICCHANGE\1\bild.bmp")
FileInstall("2.bmp", "C:\BS\PICCHANGE\2\bild.bmp")
FileInstall("3.bmp", "C:\BS\PICCHANGE\3\bild.bmp")
FileInstall("4.bmp", "C:\BS\PICCHANGE\4\bild.bmp")
FileInstall("5.bmp", "C:\BS\PICCHANGE\5\bild.bmp")
FileInstall("6.bmp", "C:\BS\PICCHANGE\6\bild.bmp")
FileInstall("7.bmp", "C:\BS\PICCHANGE\7\bild.bmp")
FileInstall("8.bmp", "C:\BS\PICCHANGE\8\bild.bmp")
FileInstall("9.bmp", "C:\BS\PICCHANGE\9\bild.bmp")
FileInstall("10.bmp", "C:\BS\PICCHANGE\10\bild.bmp")
FileInstall("About.exe", "C:\BS\PICCHANGE\9\About.exe")
Next
EndFunc
Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.
[/autoit] [autoit][/autoit] [autoit]$E = TrayCreateMenu("Einstellungen")
$In = TrayCreateMenu("Intervall", $E)
$2 = TrayCreateItem("Alle 2 Minuten", $In)
$5 = TrayCreateItem("Alle 5 Minuten", $In)
$10 = TrayCreateItem("Alle 10 Minuten", $In)
$15 = TrayCreateItem("Alle 15 Minuten", $In)
$20 = TrayCreateItem("Alle 20 Minuten", $In)
$30 = TrayCreateItem("Alle 30 Minuten", $In)
$60 = TrayCreateItem("Alle 60 Minuten", $In)
$120 = TrayCreateItem("Alle 120 Minuten", $In)
$AB = TrayCreateItem("About")
$EX = TrayCreateItem("Beenden")
TraySetState()
AdlibEnable('_chgWallpaper', $INT)
While 1
$msg = TrayGetMsg()
Switch $msg
Case $EX
Exit
Case $AB
Run("C:\BS\PICCHANGE\9\About.exe")
Case $2
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,120000)
FileClose($INT1)
Case $5
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,300000)
FileClose($INT1)
Case $10
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,600000)
FileClose($INT1)
Case $15
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,900000)
FileClose($INT1)
Case $20
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,1200000)
FileClose($INT1)
Case $30
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,1800000)
FileClose($INT1)
Case $60
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,3600000)
FileClose($INT1)
Case $120
$INT1 = FileOpen("C:\INT.txt",2)
FileWriteLine($INT1,7200000)
FileClose($INT1)
EndSwitch
WEnd
Func _chgWallpaper()
If $pos = 10 Then $pos = 0
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, _
"uint", 0, "str", $arBild[$pos], "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
$pos += 1
EndFunc