Beiträge von Jasfar

  • 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! :)

  • Programm ausführen auf anderen Netzwerkmaschinen

    Hallo,

    ich habe bereits die ein oder anderen Programme für unsere Firma geschrieben, doch nun stehe ich vor einem Problem, bei welchem ich nicht weiterkomme...
    Wir wollen über ein Script Hardware/Softwareinfos auslesen lassen, funktioniert.
    Die Infos werden in eine .ini Datei geschrieben und können über eine GUI ausgelesen lassen werden, indem nach dem Computernamen gesucht wird.
    Damit die Infos allerdings aktuell bleiben bräuchten wir einen Client welcher Regelmäßig die Infos aktualisiert. Bei über 300 Rechnern in unserem Netzwerk wäre das aber ein wenig Unglücklich...

    Jetzt zu meiner Frage:
    Gibt es eine Möglichkeit, ein Programm aus dem Netzwerk an einem Computer ausführen zu lassen, welcher in der Domäne vorhanden ist, ohne sich direkt auf den Computer aufschalten zu müssen, bzw. ein Client auf solch einen Befehl wartet und regelmäßig abfragen sendet?

    Über eure Hilfe würden wir uns hier sehr freuen...
    Schoneinmal Vielen Dank im Vorraus und einen schönen Nachmittag!

    Liebe Grüße,
    Marvin