Huhu Autoitler,
Ich habe mal mit der ffmpeg.exe angefangen zu arbeiten und hab einen kleinen Converter gebastelt, der bisher nur Mp3 zu Wav umwandeln kann.
ich werde das Design noch ein wenig verbessern mit Icons etc.
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.5.1 (beta)
Author: Zocker5656
Script Function:
- Mp3 zu Wav convetieren
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
$message = "Bitte wähle eine Mp3-Datei aus."
[/autoit] [autoit][/autoit] [autoit]AdlibRegister("checkprogresslabel",100)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Local
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$input1check = 0
$input2check = 0
$input3check = 0
$input4check = 0
$input5check = 0
$input6check = 0
$input7check = 0
$input8check = 0
$input9check = 0
$input10check = 0
$input11check = 0
;end local
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=C:\Users\zocker5656\Desktop\Zeugs\mac\Koda\Forms\converter.kxf
$Form1 = GUICreate("Mp3 to Wav Converter 1.1", 633, 447, 193, 125)
$Group1 = GUICtrlCreateGroup("Input", 0, 40, 292, 401)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("1. Leer", 16, 64, 121, 21,$ES_READONLY)
$Button3 = GUICtrlCreateButton("...", 144, 64, 43, 25, 0)
$Input2 = GUICtrlCreateInput("2. Leer", 16, 96, 121, 21,$ES_READONLY)
$Button4 = GUICtrlCreateButton("...", 144, 96, 43, 25, 0)
$Input3 = GUICtrlCreateInput("3. Leer", 16, 128, 121, 21,$ES_READONLY)
$Input4 = GUICtrlCreateInput("4. Leer", 16, 160, 121, 21,$ES_READONLY)
$Input5 = GUICtrlCreateInput("5. Leer", 16, 192, 121, 21,$ES_READONLY)
$Input6 = GUICtrlCreateInput("6. Leer", 16, 224, 121, 21,$ES_READONLY)
$Input7 = GUICtrlCreateInput("7. Leer", 16, 256, 121, 21,$ES_READONLY)
$Input8 = GUICtrlCreateInput("8. Leer", 16, 288, 121, 21,$ES_READONLY)
$Input9 = GUICtrlCreateInput("9. Leer", 16, 320, 121, 21,$ES_READONLY)
$Input10 = GUICtrlCreateInput("10. Leer", 16, 352, 121, 21,$ES_READONLY)
$Input11 = GUICtrlCreateInput("11. Leer", 16, 384, 121, 21,$ES_READONLY)
$Button5 = GUICtrlCreateButton("...", 144, 128, 43, 25, 0)
$Button6 = GUICtrlCreateButton("...", 144, 160, 43, 25, 0)
$Button7 = GUICtrlCreateButton("...", 144, 192, 43, 25, 0)
$Button8 = GUICtrlCreateButton("...", 144, 224, 43, 25, 0)
$Button9 = GUICtrlCreateButton("...", 144, 256, 43, 25, 0)
$Button10 = GUICtrlCreateButton("...", 144, 288, 43, 25, 0)
$Button11 = GUICtrlCreateButton("...", 144, 320, 43, 25, 0)
$Button12 = GUICtrlCreateButton("...", 144, 352, 43, 25, 0)
$Button13 = GUICtrlCreateButton("...", 144, 384, 43, 25, 0)
$Label3 = GUICtrlCreateLabel("Fertig", 200, 64, 44, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label4 = GUICtrlCreateLabel("Fertig", 200, 96, 42, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label5 = GUICtrlCreateLabel("Fertig", 200, 128, 42, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label6 = GUICtrlCreateLabel("Fertig", 200, 160, 42, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label7 = GUICtrlCreateLabel("Fertig", 200, 192, 42, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label8 = GUICtrlCreateLabel("Fertig", 200, 224, 42, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label9 = GUICtrlCreateLabel("Fertig", 200, 256, 42, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label10 = GUICtrlCreateLabel("Fertig", 200, 288, 49, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label11 = GUICtrlCreateLabel("Fertig", 200, 320, 49, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label12 = GUICtrlCreateLabel("Fertig", 200, 352, 49, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label13 = GUICtrlCreateLabel("Fertig", 200, 384, 49, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Output", 336, 40, 292, 401)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("GO", 296, 160, 35, 129, 0)
$Progress1 = GUICtrlCreateProgress(8, 16, 502, 15)
$Label1 = GUICtrlCreateLabel("0", 512, 16, 42, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("%", 537, 16, 13, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Datei = GUICtrlCreateMenu("Datei")
$MenuItem5 = GUICtrlCreateMenuItem("Schließen", $Datei)
$Einstellungen = GUICtrlCreateMenu("Einstellungen")
$MenuItem4 = GUICtrlCreateMenuItem("Optionen", $Einstellungen)
$MenuItem2 = GUICtrlCreateMenu("?")
$MenuItem1 = GUICtrlCreateMenuItem("Copyright", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenuItem("Info", $MenuItem2)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Datei
Case $Einstellungen
Case $MenuItem1
Case $MenuItem2
Case $MenuItem3
Case $MenuItem4
Case $MenuItem5
Case $Button1
##1
if $input1check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput1 = guictrlread($Input1)
GUICtrlSetData($Progress1,25)
$splitet1 = StringSplit($pfadinput1,"\",1)
$split1 = $splitet1[$splitet1[0]]
GUICtrlSetData($Progress1,40)
$hOutput1 = StringSplit($split1,".",1)
$houtput1 = @ScriptDir & "/Output/" & $hOutput1[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput1 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput1 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label3, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##2
if $input2check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput2 = guictrlread($Input2)
GUICtrlSetData($Progress1,25)
$splitet2 = StringSplit($pfadinput2,"\",1)
$split2 = $splitet2[$splitet2[0]]
GUICtrlSetData($Progress1,40)
$hOutput2 = StringSplit($split2,".",1)
$houtput2 = @ScriptDir & "/Output/" & $hOutput2[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput2 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput2 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label4, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##3
if $input3check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput3 = guictrlread($Input3)
GUICtrlSetData($Progress1,25)
$splitet3 = StringSplit($pfadinput3,"\",1)
$split3 = $splitet3[$splitet3[0]]
GUICtrlSetData($Progress1,40)
$hOutput3 = StringSplit($split3,".",1)
$houtput3 = @ScriptDir & "/Output/" & $hOutput3[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput3 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput3 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label5, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##4
if $input4check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput4 = guictrlread($Input4)
GUICtrlSetData($Progress1,25)
$splitet4 = StringSplit($pfadinput4,"\",1)
$split4 = $splitet4[$splitet4[0]]
GUICtrlSetData($Progress1,40)
$hOutput4 = StringSplit($split4,".",1)
$houtput4 = @ScriptDir & "/Output/" & $hOutput4[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput4 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput4 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label6, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##5
if $input5check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput5 = guictrlread($Input5)
GUICtrlSetData($Progress1,25)
$splitet5 = StringSplit($pfadinput5,"\",1)
$split5 = $splitet5[$splitet5[0]]
GUICtrlSetData($Progress1,40)
$hOutput5 = StringSplit($split5,".",1)
$houtput5 = @ScriptDir & "/Output/" & $hOutput5[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput5 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput5 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label7, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##6
if $input6check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput6 = guictrlread($Input6)
GUICtrlSetData($Progress1,25)
$splitet6 = StringSplit($pfadinput6,"\",1)
$split6 = $splitet6[$splitet6[0]]
GUICtrlSetData($Progress1,40)
$hOutput6 = StringSplit($split6,".",1)
$houtput6 = @ScriptDir & "/Output/" & $hOutput6[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput6 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput6 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label8, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##7
if $input7check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput7 = guictrlread($Input7)
GUICtrlSetData($Progress1,25)
$splitet7 = StringSplit($pfadinput7,"\",1)
$split7 = $splitet7[$splitet7[0]]
GUICtrlSetData($Progress1,40)
$hOutput7 = StringSplit($split7,".",1)
$houtput7 = @ScriptDir & "/Output/" & $hOutput7[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput7 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput7 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label9, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##8
if $input8check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput8 = guictrlread($Input8)
GUICtrlSetData($Progress1,25)
$splitet8 = StringSplit($pfadinput8,"\",1)
$split8 = $splitet8[$splitet8[0]]
GUICtrlSetData($Progress1,40)
$hOutput8 = StringSplit($split8,".",1)
$houtput8 = @ScriptDir & "/Output/" & $hOutput8[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput8 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput8 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label10, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##9
if $input9check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput9 = guictrlread($Input9)
GUICtrlSetData($Progress1,25)
$splitet9 = StringSplit($pfadinput9,"\",1)
$split9 = $splitet9[$splitet9[0]]
GUICtrlSetData($Progress1,40)
$hOutput9 = StringSplit($split9,".",1)
$houtput9 = @ScriptDir & "/Output/" & $hOutput9[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput9 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput9 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label11, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##10
if $input10check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput8 = guictrlread($Input10)
GUICtrlSetData($Progress1,25)
$splitet10 = StringSplit($pfadinput10,"\",1)
$split10 = $splitet10[$splitet10[0]]
GUICtrlSetData($Progress1,40)
$hOutput10 = StringSplit($split10,".",1)
$houtput10 = @ScriptDir & "/Output/" & $hOutput10[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput10 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput10 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label12, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
##11
if $input11check = 1 Then
GUICtrlSetData($Progress1,15)
$hInput11 = guictrlread($Input11)
GUICtrlSetData($Progress1,25)
$splitet11 = StringSplit($pfadinput11,"\",1)
$split11 = $splitet11[$splitet11[0]]
GUICtrlSetData($Progress1,40)
$hOutput11 = StringSplit($split11,".",1)
$houtput11 = @ScriptDir & "/Output/" & $hOutput11[1] & ".wav"
GUICtrlSetData($Progress1,55)
Run(@ScriptDir & '/ffmpeg.exe -i "' & $hInput11 & '" -acodec libmp3lame -ab 256k -ac 2 -y "' & $houtput11 &'"',"",@SW_HIDE)
GUICtrlSetData($Progress1,80)
ProcessWaitClose("ffmpeg.exe") ;wartet bis konvertieren abgeschlossen ist
GUICtrlSetData($Progress1,100)
GUICtrlSetColor($Label13, 0xFF0000)
GUICtrlSetData($Progress1,0)
EndIf
Case $Button3
$pfadinput1 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input1check = 0
Else
guictrlsetdata($Input1,$pfadinput1)
$input1check = 1
GUICtrlSetColor($Label3, 0xC0C0C0)
EndIf
Case $Button4
$pfadinput2 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input2check = 0
Else
guictrlsetdata($Input2,$pfadinput2)
$input2check = 1
GUICtrlSetColor($Label4, 0xC0C0C0)
EndIf
Case $Button5
$pfadinput3 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input3check = 0
Else
guictrlsetdata($Input3,$pfadinput3)
$input3check = 1
GUICtrlSetColor($Label5, 0xC0C0C0)
EndIf
Case $Button6
$pfadinput4 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input4check = 0
Else
guictrlsetdata($Input4,$pfadinput4)
$input4check = 1
GUICtrlSetColor($Label6, 0xC0C0C0)
EndIf
Case $Button7
$pfadinput5 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input5check = 0
Else
guictrlsetdata($Input5,$pfadinput5)
$input5check = 1
GUICtrlSetColor($Label7, 0xC0C0C0)
EndIf
Case $Button8
$pfadinput6 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input6check = 0
Else
guictrlsetdata($Input6,$pfadinput6)
$input6check = 1
GUICtrlSetColor($Label8, 0xC0C0C0)
EndIf
Case $Button9
$pfadinput7 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input7check = 0
Else
guictrlsetdata($Input7,$pfadinput7)
$input7check = 1
GUICtrlSetColor($Label9, 0xC0C0C0)
EndIf
Case $Button10
$pfadinput8 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input8check = 0
Else
guictrlsetdata($Input8,$pfadinput8)
$input8check = 1
GUICtrlSetColor($Label10, 0xC0C0C0)
EndIf
Case $Button11
$pfadinput9 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input9check = 0
Else
guictrlsetdata($Input9,$pfadinput9)
$input9check = 1
GUICtrlSetColor($Label11, 0xC0C0C0)
EndIf
Case $Button12
$pfadinput10 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input10check = 0
Else
guictrlsetdata($Input10,$pfadinput10)
$input10check = 1
GUICtrlSetColor($Label3, 0xC0C0C0)
EndIf
Case $Button13
$pfadinput11 = FileOpenDialog($message, @UserProfileDir & "\", "Musik (*.mp3)", 1)
If @error Then
MsgBox(4096,"","Keine Datei ausgewählt")
$input11check = 0
Else
guictrlsetdata($Input11,$pfadinput11)
$input11check = 1
GUICtrlSetColor($Label3, 0xC0C0C0)
EndIf
EndSwitch
WEnd
func checkprogresslabel()
;rutine
$prozent = GUICtrlRead($Progress1)
GUICtrlSetData($Label1,$prozent)
if $prozent = 100 Then
GUICtrlSetColor($Label1, 0xFF0000)
GUICtrlSetColor($Label2, 0xFF0000)
EndIf
;end rutine
endfunc
Download: Wav to Mp3 Converter 1.1
-Menuleiste funktioniert noch nicht