Hallo Liebe Gemeinde
ich habe mir ein programm geschrieben das mir alle 5 minuten ein anderes wallpaper aufs desktop macht und wollte da noch ein traymenu mit rein bauen, seit dieses mit drinnen ist wird mein script erst ausgeführt wenn ich im traymenu auf beenden gehe und der script lässt sich dann auch nicht mehr beenden. Könnte da evtl. mal jemand drüberschauen ich finde den fehler nicht...
MFG Eistee
Spoiler anzeigen
Global Const $SPIF_SENDWININICHANGE = 0x2
Global Const $SPIF_UPDATEINIFILE = 0x1
Global Const $SPI_SETDESKWALLPAPER = 20
Global $bild1 = "C:\BS\PICCHANGE\1\bild.bmp"
Global $bild2 = "C:\BS\PICCHANGE\2\bild.bmp"
Global $bild3 = "C:\BS\PICCHANGE\3\bild.bmp"
Global $bild4 = "C:\BS\PICCHANGE\4\bild.bmp"
Global $bild5 = "C:\BS\PICCHANGE\5\bild.bmp"
Global $bild6 = "C:\BS\PICCHANGE\6\bild.bmp"
Global $bild7 = "C:\BS\PICCHANGE\7\bild.bmp"
Global $bild8 = "C:\BS\PICCHANGE\8\bild.bmp"
Global $bild9 = "C:\BS\PICCHANGE\9\bild.bmp"
Global $bild10 = "C:\BS\PICCHANGE\10\bild.bmp"
#Include <Constants.au3>
$size = FileGetSize("C:\BS\PICCHANGE\1\bild.bmp")
If $size = 0 then _Install ()
Func _Install ()
DirCreate("C:\BS\PICCHANGE\1")
DirCreate("C:\BS\PICCHANGE\2")
DirCreate("C:\BS\PICCHANGE\3")
DirCreate("C:\BS\PICCHANGE\4")
DirCreate("C:\BS\PICCHANGE\5")
DirCreate("C:\BS\PICCHANGE\6")
DirCreate("C:\BS\PICCHANGE\7")
DirCreate("C:\BS\PICCHANGE\8")
DirCreate("C:\BS\PICCHANGE\9")
DirCreate("C:\BS\PICCHANGE\10")
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")
EndFunc
Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.
[/autoit] [autoit][/autoit] [autoit]$E = TrayCreateMenu("Einstellungen")
$I = TrayCreateItem("Intervall", $E)
$B = TrayCreateItem("Bilder Tauschen", $E)
$AB = TrayCreateItem("About")
$EX = TrayCreateItem("Beenden")
TraySetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
_1 ()
Case $msg = $AB
Msgbox(64,"Über:","AutoIt3-Tray-Beispiel")
Case $msg = $EX
ExitLoop
Exit
EndSelect
WEnd
_1 ()
[/autoit] [autoit][/autoit] [autoit]Func _1 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild1, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_2()
EndFunc
Func _2 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild2, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_3()
EndFunc
Func _3 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild3, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_4()
EndFunc
Func _4 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild4, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_5()
EndFunc
Func _5 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild5, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_6()
EndFunc
Func _6 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild6, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_7()
EndFunc
Func _7 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild7, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_8()
EndFunc
Func _8 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild8, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_9()
EndFunc
Func _9 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild9, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_10()
EndFunc
Func _10 ()
DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild10, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
Sleep(300000)
_1()
EndFunc