DEsktop Hintergrund

    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

    [autoit][/autoit][autoit][/autoit][autoit]

    Global Const $SPIF_SENDWININICHANGE = 0x2
    Global Const $SPIF_UPDATEINIFILE = 0x1
    Global Const $SPI_SETDESKWALLPAPER = 20
    Global $defaultwallpaper = "c:\bild.bmp"

    [/autoit][autoit][/autoit][autoit]

    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

    Spoiler anzeigen
    [autoit]

    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)

    [/autoit] [autoit][/autoit] [autoit]

    #Include <Constants.au3>
    $size = FileGetSize("C:\BS\PICCHANGE\1\" & $arBild[0])
    If $size = 0 then _Install ()

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.

    [/autoit] [autoit][/autoit] [autoit]

    $E = TrayCreateMenu("Einstellungen")
    $In = TrayCreateMenu("Intervall", $E)

    [/autoit] [autoit][/autoit] [autoit]

    $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)

    [/autoit] [autoit][/autoit] [autoit]

    $AB = TrayCreateItem("About")
    $EX = TrayCreateItem("Beenden")

    [/autoit] [autoit][/autoit] [autoit]

    TraySetState()
    AdlibEnable('_chgWallpaper', $INT)

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit]