Bilder Slideshow für Willkommensbildschirm

    Guten Morgen,

    ich stehe wieder vor einem Problem und Hoffe, dass ihr mir Helfen könnt.
    In unserem Unternehmen soll es ein Willkommensbildschirm geben, bei dem In einer Slideshow Bilder von uns Angezeigt werden sollen. Gleichzeitig soll unten ein Lauftext durchlaufen, welcher Kunden Begrüßt.

    Die GUI mit der Begrüßungsschrift habe ich mit Hilfe vom Forum hier aus älteren Tehmen hinbekommen. Bei der Slideshow fehlen mir allerdings die Ansätze, bzw. die Lösungsmöglichkeiten...
    Könnt ihr mir Helfen? Oder habt ihr Ideen? Das jetzige Script habe ich unten Angehängt...

    Und Entschuldigt, bin eher ein Frischling in AutoIT... :)

    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <Array.au3>
    #include <File.au3>
    #include <GDIPlus.au3>

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

    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/striponly

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

    #AutoIt3Wrapper_UseX64=n
    #AutoIt3Wrapper_Res_Description=Simple Image Slideshow Program
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=UEZ 2010
    #AutoIt3Wrapper_Res_Language=1033
    #AutoIt3Wrapper_Res_Field=Coded by|UEZ
    #AutoIt3Wrapper_Res_Field=Build|2011-04-30 Beta
    #AutoIt3Wrapper_Res_Field=Compile date|%longdate% %time%
    #AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
    #AutoIt3Wrapper_UseUpx=y
    #AutoIt3Wrapper_UPX_Parameters=--ultra-brute
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0
    #AutoIt3Wrapper_Run_After=del /f /q "%scriptdir%\%scriptfile%_Obfuscated.au3"

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

    $breite = @DesktopWidth
    $hoch = @DesktopHeight + 100
    $breiten = $breite * 2
    $gui=GUICreate("",$breite,$hoch,-1,-1,$WS_MAXIMIZE & $WS_POPUPWINDOW)
    GUISetBkColor(0xffffff)

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

    GUISetState(@SW_SHOW)

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

    ; Laufschrift
    AdlibRegister('_MoveMarquee', 100)
    AdlibRegister('_Laufschrift', 100)

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

    GUISetFont(32)
    Global $iPos = 0, $sText = 'Heute begrüßen wir von der Musterfirmen AG Herrn Mustermann, Frau Sowieso, Frau Muster. Wir heißen Sie Herzlich Willkommen!'
    $textlaenge=StringLen($stext)
    $f=$textlaenge*(-19.2)
    $g=$textlaenge*(20)
    Global $myl = GUICtrlCreateLabel($sText, 0, 970, $g, 65)

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

    While GUIGetMsg() <> -3
    WEnd
    AdlibUnRegister('_MoveMarquee')
    AdlibRegister('_Laufschrift')

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

    Func _MoveMarquee()
    Local $aCpos = ControlGetPos($gui, '', $myl)
    If $aCpos[0] <= $f Then $aCpos[0] = 2500
    ControlMove($gui, '', $myl, $aCpos[0] - 3, $aCpos[1])
    EndFunc

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

    ; Slideshow

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    GUIDelete()

    [/autoit]


    Schon jetzt vielen Dank! :)