Hi,
bin total neu in AutoIT (2 Wochen ab und zu damit "experimentieren").
Hier ist mein erstes "richtiges" Script von mir, kann sich das jemand bitte anschauen und mir evtl. sagen was ich besser machen kann oder was von mir total falsch gelöst wurde
Neben dem Script gibt es einen Ordner "Extra"
In ihm sind die Unterordner "Film" und "VLC"
In "Film" sind die 4 Filme die durch drücken der Buttons gestartet werden sollen
In "VLC" ist der Protable VLC-Player mit dem die Filme abgespielt werden
Spoiler anzeigen
;Hier das GUI - erstellt mit Koda (echt genial :))
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\cwedv23\Desktop\Image Film Projekt\Imagefilm - Extern.kxf
$Form1_1_1 = GUICreate("Winkler Imagefilm", 339, 261, 253, 128)
$Label1 = GUICtrlCreateLabel(" Welche Version soll abgespielt werden?", 0, 8, 327, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Imagefilme in HD und Ton", 8, 48, 158, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$ButtonV1 = GUICtrlCreateButton("Abspielen", 208, 48, 107, 25, 0)
$Label3 = GUICtrlCreateLabel("Imagefilm in HD ohne Ton", 8, 80, 158, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$ButtonV2 = GUICtrlCreateButton("Abspielen", 208, 80, 107, 25, 0)
$Label4 = GUICtrlCreateLabel("Imagefilm in XY mit Ton", 8, 112, 142, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$ButtonV3 = GUICtrlCreateButton("Abspielen", 208, 112, 107, 25, 0)
$Label5 = GUICtrlCreateLabel("Imagefilm in XY ohne Ton", 8, 144, 155, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$ButtonV4 = GUICtrlCreateButton("Abspielen", 208, 144, 107, 25, 0)
$ButtonBeenden = GUICtrlCreateButton("Beenden", 104, 216, 123, 33, 0)
$Label6 = GUICtrlCreateLabel("Das Fenster 'Privatsphären- und Netzwerkzugriff-Regel'", 8, 176, 264, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("kann bedenkenlos mit 'Sichern und fortsetzen' bestätigt werden.", 8, 192, 305, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Film1 = "./Extra/Film/Test1.flv" ;Hier hab ich den Pfad zu den Filmen
$Film2 = "./Extra/Film/Test2.mov"
$Film3 = "./Extra/Film/Test3.wmv"
$Film4 = "./Extra/Film/Test4.wmv"
$VLC = "./Extra/VLC/vlc.exe" ;Hier habe ich den VLC Portable
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonBeenden
Exit
Case $ButtonV1
ShellExecute($VLC, $Film1) ;Führt den Film 1 aus
WinWaitActive("./Extra/Film/") ;Wartet bis der Film läuft
WinSetState($Film1, "", @SW_MAXIMIZE) ;Maximiert den Film
WinSetOnTop($Film1, "", 1) ;Setzt den Film in den Vordergrund - hängte sich immer total auf wenn ein anderes Fenster in den Vordergrund gestellt wurde
Sleep (1000)
WinWait("VLC media player") ;Damit kill ich den VLC sobald der Film vorbei ist
ProcessClose("vlc.exe")
Case $ButtonV2
ShellExecute($VLC, $Film2)
WinWaitActive("./Extra/Film/")
WinSetState($Film2, "", @SW_MAXIMIZE)
WinSetOnTop($Film2, "", 1)
Sleep (1000)
WinWait("VLC media player")
ProcessClose("vlc.exe")
Case $ButtonV3
ShellExecute($VLC, $Film3)
WinWaitActive("./Extra/Film/")
WinSetState($Film3, "", @SW_MAXIMIZE)
WinSetOnTop($Film3, "", 1)
Sleep (1000)
WinWait("VLC media player")
ProcessClose("vlc.exe")
Case $ButtonV4
ShellExecute($VLC, $Film4)
WinWaitActive("./Extra/Film/")
WinSetState($Film4, "", @SW_MAXIMIZE)
WinSetOnTop($Film4, "", 1)
Sleep (1000)
WinWait("VLC media player")
ProcessClose("vlc.exe")
EndSwitch
WEnd
Vielen Dank
Fabian
#Edit: *Spoiler*