#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Opt('MustDeclareVars', 1)

Global $zeit, $timer

convert()

Func convert()
    Global $Button_1, $file,
    Global $tab2, $tab2input, $msg, $zuf


    GUICreate("conv",240,120)

    GUISetBkColor(0xFFFFFF)
    GUISetFont(9, 300)

    $tab = GUICtrlCreateTab(10, 10, 180, 100)
    $Button_1 = GUICtrlCreateButton(">", 200, 10, 30, 100)
    $tab2 = GUICtrlCreateTabItem("Titel")
    GUICtrlCreateLabel(".flv", 155, 50, 15, 20)
    GUICtrlCreateLabel("Liedtitel wählen", 30, 80, 150, 20)
    $tab2input = GUICtrlCreateInput("", 30, 50, 120, 20)


    GUICtrlCreateTabItem("")

    GUISetState()

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1

                Local $name2 = Random(1, 10000000000, 1)
                $file = FileOpen($name2 & ".bat", 1)

                If $file = -1 Then
                    MsgBox(0, "Error", "Unable to open file.")
                    Exit
                EndIf

                FileWrite($file, 'fecl -a ')
                FileWrite($file, GUICtrlRead($tab2input))
                FileWrite($file, '.flv')

                FileClose($file)

                $timer = TimerInit()
                RunWait($name2 & ".bat")
                $zeit = TimerDiff($timer)
                MsgBox(64,"Information","Das Programm lief für " & $zeit & " Millisekunden")

                FileDelete($name2 & ".bat")

                FileDelete(@ScriptDir &"\*.flv")
                FileMove(@ScriptDir & "\*.mp3", @ScriptDir & "\Audio\", 9)

            Exit

        EndSelect
    WEnd
EndFunc