[Release] Youtube downloader & Konverter

Fuyo

Hi lieber Godliker

[COLOR="Red"]Was kann das Autoit tool ?[/COLOR]
Das Tool läd nach eingabe eures Youtubelinks die Datei herrunter und wandelt sie in eine Mp3 datei um.
So kann man immer seine lieder mit dem Tool saugen.

[COLOR="Red"]Screen :[/COLOR]

Beim ersten starten , wird eine Datei herrunter geladen , wo dann am Ende das Tool hinein muss . Nach dem download bitte direkt datei ins Verzeichnis tun , sonst könnt ihr lange warten , das es klappt .

[COLOR="Red"]Download : [/COLOR]
File-Upload.net - Youtube-downloader-by-Fuyo.exe

[COLOR="Red"]Virustotal :[/COLOR]
Virustotal. MD5: af54bb78d94eef2d449acf73d88ef961 Virus.Win32.Agent.ABJL!IK Trojan/Win32.AutoIt.gen Suspicious File

[COLOR="Red"]Wer meint es sind Vieren , soll es nicht benutzen ![/COLOR]
Coded mit Autoit

Kritik gern gesehen

Viel Spaß

[COLOR="SandyBrown"]Thx an : [/COLOR]
[COLOR="Lime"]Kogo[/COLOR]
[COLOR="Lime"]Joker[/COLOR]
[COLOR="Lime"]Internetfreak[/COLOR]
http://www.autoitscript.com/forum/index.ph…t=0#entry490326

Code moddet !!! Sry für "falsche" angaben

Original link , habe das Script aber geändert , das grundgerüst übernommen und ein bisschen moddet , ich will kein THX oder anderes bekommen da es viel leeched ist !
Tut mir leid , das mich manche falsch verstanden haben
Ich entschuldige mich nochmal bei allen !

http://www.autoitscript.com/forum/index.ph…t=0#entry490326

*electriZer*

ich gugs mir gleich ma an =D
könntest du eventuell noch hinschreiben welchen converter dein programm used und wo du dir vllt. was abgegguckt / hilfe geholt hast ^^

dann wäre das ganze 100% unleeched und das wäre auch fair denen gegenüber die sich dafür ma angestrengt haben ;)

gez :: *electriZer*

Fuyo

Das Converten ist teils abgeguckt aber modded aber nicht aus diesem forum .
Der Code wurde zu 80-90% angepasst , damit es so aussieht .
Bei Problemen habe ich einfach ein bisschen gegoogelt oder halt im Forum die Frage gestellt

zum download benutze ich den angepassten code von kogo...
Also das tool ist nicht 100% von mir habe ich auch nicht gesagt das es 100% von mir ist

*electriZer*

hast aber au nicht geschrieben das es 10-20% von annern is ;)
xD

der converter is ne .exe und ich glaub net das den einer ma so ebn @home geproggt hat (.flv to .mp3)

gez :: *electriZer*

xDrago

Wenn ich was downlaode kommt am ende nen Error Line 1 -1 blabla^^

Kommt bei mir manchmal bei Obfuscator^^

Kannst ja nochmal testen

PS.
Screen:

*electriZer*

x)
da is ein scriptfehler
schreib die reihenfolge die du gemacht hast, dann finet er den bug und entfernt ihn
oder er is so net zu dir un gibt die source frei =)

gez :: *electriZer*

ELiMINATOR

ich bin enttäuscht -.-
Video Downloader and Converter GUI - AutoIt Forums
das ist das original das ist deinz

C

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <Inet.au3>
#include <StatusBarConstants.au3>
#include <String.au3>
Dim $INIPATH = @ScriptDir & "/setting.ini"
Global $GLOB_URL
Global $GLOB_VIDEO_TITEL
Global $GLOB_LOCAL_FILENAME
Global $ASTATUSPARTS[2] = [400, -1]
Global $ATEMPSTATUS[2] = ["", ""]
If FileExists(@ScriptDir & "/ffmpeg.exe") = 0 Then
	SplashTextOn("ffmpeg.exe nicht gefunden", "Downloade ffmpeg.rev11870.7z ", 200, 150)
	InetGet("http://ffdshow.faireal.net/mirror/ffmpeg/ffmpeg.rev11870.7z", @ScriptDir & "/ffmpeg.rev11870.7z")
	SplashOff()
	MsgBox(0, "ffmpeg.rev11870.7z geladen", "Nun entpacken und .exe in den Ordner tun . Zum beenden Ok drückn")
	Exit
EndIf
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Youtube downloader by Fuyo (c)", 574, 184, 193, 115)
$EDIT_INPUT = GUICtrlCreateInput("", 16, 48, 449, 21)
$BTN_DOWNLOAD = GUICtrlCreateButton("Download", 480, 48, 75, 25)
$PROGRESS = GUICtrlCreateProgress(16, 120, 438, 25)
$BTN_ABORT = GUICtrlCreateButton("Abbrechen", 480, 84, 75, 25)
$LBL_DOWNLOAD_LINK = GUICtrlCreateLabel("Download Link", 16, 28, 75, 17)
$LABEL1 = GUICtrlCreateLabel("(c) by Fuyo - Godlikerz", 464, 120, 109, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$MENU_ITEM_FILETYPE = GUICtrlCreateMenu("File Type")
$MENU_SWF = GUICtrlCreateMenuItem("swf", $MENU_ITEM_FILETYPE)
$MENU_FLV = GUICtrlCreateMenuItem("flv", $MENU_ITEM_FILETYPE)
If FileExists($INIPATH) = 0 Then IniWrite($INIPATH, "1", "1", "1")
$INIREAD_DEFAULT = IniRead($INIPATH, "1", "1", "1")
If $INIREAD_DEFAULT = "1" Then GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
If $INIREAD_DEFAULT = "2" Then GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
$STATUSBAR = _GUICtrlStatusBar_Create($GUI, $ASTATUSPARTS, $ATEMPSTATUS, $SBARS_SIZEGRIP)
_GUICtrlStatusBar_SetMinHeight($STATUSBAR, 20)
_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
GUICtrlSetData($PROGRESS, 0)
GUISetState()
While 1
	$NMSG = GUIGetMsg()
	Switch $NMSG
		Case $BTN_DOWNLOAD
			GUICtrlSetState($BTN_DOWNLOAD, $GUI_DISABLE)
			$DWNLINK = GUICtrlRead($EDIT_INPUT)
			_DOWNLOAD_THIS_URL($DWNLINK, 0)
		Case $MENU_SWF
			GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_UNCHECKED)
			IniWrite($INIPATH, "1", "1", "1")
		Case $MENU_FLV
			GUICtrlSetState($MENU_SWF, $GUI_UNCHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
			IniWrite($INIPATH, "1", "1", "2")
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func _DOWNLOAD_THIS_URL($URL, $UNATTENDED)
	If StringInStr($URL, "youtube") > 0 Then
		_GET_YOUTUBE_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.ehrensenf.de") > 0 Then
		_GET_EHRENSENF_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.clipfish.de") > 0 Then
		_GET_CLIPFISH_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.myvideo.de") > 0 Then
		_GET_MYVIDEO_INFORMATION($URL)
	ElseIf StringInStr($URL, ".myspace.") > 0 Then
		_GET_MYSPACE_INFORMATION($URL)
	ElseIf StringInStr($URL, ".break.") > 0 Then
		_GET_BREAK_COM_INFORMATION($URL)
	EndIf
	$INI = IniRead($INIPATH, "1", "1", "1")
	If $INI = "1" Then $TYPE = ".swf"
	If $INI = "2" Then $TYPE = ".flv"
	If ($UNATTENDED > 0) Then
		$SAVE = @ScriptDir & "/" & $GLOB_VIDEO_TITEL & $TYPE
	Else
		$SAVE = FileSaveDialog("Save file", "", "Flash(*.swf)|Flash_Movie(*.flv)", -1, $GLOB_VIDEO_TITEL)
		If StringRight($SAVE, 4) <> ".swf" Then
			$SAVE &= ".swf"
		EndIf
		If StringRight($SAVE, 4) <> ".flv" Then
			$SAVE &= ".flv"
		EndIf
	EndIf
	_GUICtrlStatusBar_SetText($STATUSBAR, "Downloading : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_DOWNLOAD($GLOB_URL, $SAVE, $PROGRESS)
	_GUICtrlStatusBar_SetText($STATUSBAR, "Encoding : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_ENCODE_IT($SAVE)
	_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
	GUICtrlSetData($PROGRESS, 0)
	GUICtrlSetState($BTN_DOWNLOAD, $GUI_ENABLE)
EndFunc




Func _GET_YOUTUBE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Youtube - ", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$T_CODE = _StringBetween($SCODE, '"t": ', " ")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$S_V = StringMid($DWNLINK, StringInStr($DWNLINK, "v=") + 2)
	If $T_NAME == "" Then
		$T_NAME = $S_V
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$GLOB_URL = "http://youtube.com/get_video?video_id=" & $S_V & "&t=" & $T_VALUE
EndFunc




Func _GET_EHRENSENF_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Ehrensenf", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "so.addVariable('file'", "')")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_CODE[0], "'", "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_CLIPFISH_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	ClipPut($SCODE)
	MsgBox(0, "", "found clipfish")
	$TMP = _StringBetween($SCODE, "<title>", " - ")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Clipfish", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "--", ".flv")
	If @error <> 1 Then
		$T_VALUE = _STRING_BEFORE_AFTER($T_CODE[0], "-", 1)
		$LAST2_DIGITS = StringRight($T_VALUE, 2)
		MsgBox(0, "", $T_VALUE)
		MsgBox(0, "", $LAST2_DIGITS)
	EndIf
	$GLOB_URL = "http://pg2.clipfish.de/media/" & $LAST2_DIGITS & "/" & $T_VALUE & ".flv"
EndFunc




Func _GET_MYVIDEO_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</TITLE>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myvideo", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "V15e.swf?", ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_MYSPACE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $URL_PREFIX = "http://mediaservices.myspace.com/services/rss.ashx?type=video&mediaID="
	Local $ID = _STRING_BEFORE_AFTER($DOWNLOAD_LINK, "=", 1)
	Local $DOWNLOAD_LINK_MYSPACE_XML = $URL_PREFIX & $ID
	$SCODE = _INetGetSource($DOWNLOAD_LINK_MYSPACE_XML)
	ClipPut($SCODE)
	$TMP1 = _StringBetween($SCODE, "<item>", "</item>")
	$TMP = _StringBetween($TMP1[0], "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myspace", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, '<media:content url="', ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_BREAK_COM_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "sGlobalFileName='", "';")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "break", "")
	EndIf
	$GLOB_VIDEO_TITEL = _REPLACE_SPECIAL_CHARS($T_NAME)
	$TMP = _StringBetween($SCODE, "sGlobalContentFilePath='", "';")
	If @error <> 1 Then
		$SGLOBALCONTENTFILEPATH = $TMP[0]
	EndIf
	$GLOB_URL = "http://media1.break.com/dnet/media/" & $SGLOBALCONTENTFILEPATH & "/" & $T_NAME & ".flv"
EndFunc




Func _DOWNLOAD($SITE, $PUNKT, $PROG = 0)
	$ORISIZE = InetGetSize($SITE)
	InetGet($SITE, $PUNKT, 1, 1)
	If $PROG = 0 Then ProgressOn("Download", "")
	Do
		$MSG = GUIGetMsg()
		If $MSG = $BTN_ABORT Then
			If MsgBox(4, "", "Abort?") = 6 Then Exit
		EndIf
		$SIZE1 = FileGetSize($PUNKT)
		$MBSIZE1 = FileGetSize($PUNKT)
		$INETGET = @InetGetBytesRead
		$PROZENT = (100 * $INETGET) / $ORISIZE
		$DECIMALPLACE = Round($PROZENT)
		$DECIMALPLACEMBSIZE1 = Round(@InetGetBytesRead / 1024)
		If $PROG = 0 Then
			ProgressSet($PROZENT, $DECIMALPLACE & "% " & "(" & $DECIMALPLACEMBSIZE1 & ") Kb has been Downloaded.")
		Else
			GUICtrlSetData($PROG, $PROZENT)
		EndIf
	Until @InetGetActive = 0
	If $PROG = 0 Then ProgressOff()
	Return $PUNKT
EndFunc




Func _ENCODE_IT($INFILE)
	GUICtrlSetData($PROGRESS, 0)
	$SOUTPUT = "mp3"
	$C = "ffmpeg.exe -i " & '"' & $INFILE & '"' & " -acodec " & $SOUTPUT & " -ab 128 -ar 22050 -ac 2 " & '"' & $INFILE & ".avi" & '"'
	$PID = Run($C, @ScriptDir, @SW_HIDE, $STDERR_CHILD)
	ProcessSetPriority($PID, 0)
	$STREAMCOUNTER = 0
	While ProcessExists($PID)
		If 1 <= $STREAMCOUNTER Then
			$READSTREAM = StderrRead($PID)
			$TMP = _StringBetween($READSTREAM, "Duration: ", ", start:")
			If @error <> 1 Then
				$DURATION = StringTrimRight($TMP[0], 2)
				$TMP = StringSplit($DURATION, ":")
				If @error <> 1 Then
					$H = $TMP[1]
					$M = $TMP[2]
					$S = $TMP[3]
					$TOTAL_SEC = ($H * 3600) + ($M * 60) + $S
				EndIf
			EndIf
			$TMP = _StringBetween($READSTREAM, "time=", " bit")
			If @error <> 1 Then
				$CURRENT_SEC = StringTrimRight($TMP[0], 2)
				$PERCENT = Int(100 * $CURRENT_SEC / $TOTAL_SEC)
				GUICtrlSetData($PROGRESS, $PERCENT)
			EndIf
			$STREAMCOUNTER = 0
		EndIf
		$STREAMCOUNTER = $STREAMCOUNTER + 1
	WEnd
EndFunc




Func _STRING_BEFORE_AFTER($INPUT, $SEPARATOR, $MODE)
	Local $TMP = StringSplit($INPUT, $SEPARATOR)
	If @error <> 1 Then
		If $MODE == 0 Then
			Return $TMP[1]
		Else
			Local $NBR = $TMP[0]
			Return $TMP[$NBR]
		EndIf
	Else
		Return -1
	EndIf
EndFunc




Func _REPLACE_SPECIAL_CHARS($STR)
	$STR = StringReplace($STR, "|", " ")
	$STR = StringReplace($STR, "-", " ")
	$STR = StringReplace($STR, "!", " ")
	$STR = StringReplace($STR, ".", " ")
	$STR = StringReplace($STR, "?", " ")
	$STR = StringReplace($STR, "_", " ")
	$STR = StringReplace($STR, "Ã¤", "ae")
	$STR = StringReplace($STR, "Ã¶", "oe")
	$STR = StringReplace($STR, "Ã¼", "ue")
	$STR = StringReplace($STR, "ÃŸ", "ss")
	$STR = StringStripWS($STR, 7)
	Local $STR1 = StringReplace($STR, " ", "_")
	Return $STR1
EndFunc

Alles anzeigen

wenn du schon source rippst dan bitte richtig -.-

//EDIT:
hier mal zum vergleich das original gui

er hat nur ein wenig geändert -.-

*electriZer*

xI

@Fuyu
lass dir schnell was einfallen
ich hab extrem was gegen leecher und ich glaub die mods auch xO

gez :: *electriZer*

ELiMINATOR

nicht nur du hast was gegen leecher *electriZer*
ich hasse kiddis die source rippen -.-
iwas konnte da auch nicht stimme vor ner woche mit autoit angefangen und dan schon sowas gecoded o.O
als ich den source gesehn habe wusste ich das es ripp war weil ich ihn schonmal gesehn hab

@fuyu
eig fand ich dich biss ezz ganz nett
musste diese Aktion sein?

xDrago

Kein gespamme!

Fuyo
Ich drück nochmal ein Auge zu
Geb dochmal Creditz an bzw. Quelle...

Und Reparier das ding mal ;)

Fuyo

Jaja ich hab es moddet !!!
Ich hatte gesagt das es nicht von mir ist !
Der code ist nicht ripped !!!
Ich habe noch sachen rausgefiltert !
Außerdem wusste ich das es den Code schon gibt
Ich habe damit getestet und habe es released , damit alle daran spaß haben und es benutzen können !

Dabei muss ich sagen , sieht mein Code anders aus ...
Manche Sachen z.B mit Clipfish und so sind nicht bei mir enthalten !

ELiMINATOR

-.-

C

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <Inet.au3>
#include <StatusBarConstants.au3>
#include <String.au3>
Dim $INIPATH = @ScriptDir & "/setting.ini"
Global $GLOB_URL
Global $GLOB_VIDEO_TITEL
Global $GLOB_LOCAL_FILENAME
Global $ASTATUSPARTS[2] = [400, -1]
Global $ATEMPSTATUS[2] = ["", ""]
If FileExists(@ScriptDir & "/ffmpeg.exe") = 0 Then
	SplashTextOn("ffmpeg.exe nicht gefunden", "Downloade ffmpeg.rev11870.7z ", 200, 150)
	InetGet("http://ffdshow.faireal.net/mirror/ffmpeg/ffmpeg.rev11870.7z", @ScriptDir & "/ffmpeg.rev11870.7z")
	SplashOff()
	MsgBox(0, "ffmpeg.rev11870.7z geladen", "Nun entpacken und .exe in den Ordner tun . Zum beenden Ok drückn")
	Exit
EndIf
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Youtube downloader by Fuyo (c)", 574, 184, 193, 115)
$EDIT_INPUT = GUICtrlCreateInput("", 16, 48, 449, 21)
$BTN_DOWNLOAD = GUICtrlCreateButton("Download", 480, 48, 75, 25)
$PROGRESS = GUICtrlCreateProgress(16, 120, 438, 25)
$BTN_ABORT = GUICtrlCreateButton("Abbrechen", 480, 84, 75, 25)
$LBL_DOWNLOAD_LINK = GUICtrlCreateLabel("Download Link", 16, 28, 75, 17)
$LABEL1 = GUICtrlCreateLabel("(c) by Fuyo - Godlikerz", 464, 120, 109, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$MENU_ITEM_FILETYPE = GUICtrlCreateMenu("File Type")
$MENU_SWF = GUICtrlCreateMenuItem("swf", $MENU_ITEM_FILETYPE)
$MENU_FLV = GUICtrlCreateMenuItem("flv", $MENU_ITEM_FILETYPE)
If FileExists($INIPATH) = 0 Then IniWrite($INIPATH, "1", "1", "1")
$INIREAD_DEFAULT = IniRead($INIPATH, "1", "1", "1")
If $INIREAD_DEFAULT = "1" Then GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
If $INIREAD_DEFAULT = "2" Then GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
$STATUSBAR = _GUICtrlStatusBar_Create($GUI, $ASTATUSPARTS, $ATEMPSTATUS, $SBARS_SIZEGRIP)
_GUICtrlStatusBar_SetMinHeight($STATUSBAR, 20)
_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
GUICtrlSetData($PROGRESS, 0)
GUISetState()
While 1
	$NMSG = GUIGetMsg()
	Switch $NMSG
		Case $BTN_DOWNLOAD
			GUICtrlSetState($BTN_DOWNLOAD, $GUI_DISABLE)
			$DWNLINK = GUICtrlRead($EDIT_INPUT)
			_DOWNLOAD_THIS_URL($DWNLINK, 0)
		Case $MENU_SWF
			GUICtrlSetState($MENU_SWF, $GUI_CHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_UNCHECKED)
			IniWrite($INIPATH, "1", "1", "1")
		Case $MENU_FLV
			GUICtrlSetState($MENU_SWF, $GUI_UNCHECKED)
			GUICtrlSetState($MENU_FLV, $GUI_CHECKED)
			IniWrite($INIPATH, "1", "1", "2")
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func _DOWNLOAD_THIS_URL($URL, $UNATTENDED)
	If StringInStr($URL, "youtube") > 0 Then
		_GET_YOUTUBE_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.ehrensenf.de") > 0 Then
		_GET_EHRENSENF_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.clipfish.de") > 0 Then
		_GET_CLIPFISH_INFORMATION($URL)
	ElseIf StringInStr($URL, "www.myvideo.de") > 0 Then
		_GET_MYVIDEO_INFORMATION($URL)
	ElseIf StringInStr($URL, ".myspace.") > 0 Then
		_GET_MYSPACE_INFORMATION($URL)
	ElseIf StringInStr($URL, ".break.") > 0 Then
		_GET_BREAK_COM_INFORMATION($URL)
	EndIf
	$INI = IniRead($INIPATH, "1", "1", "1")
	If $INI = "1" Then $TYPE = ".swf"
	If $INI = "2" Then $TYPE = ".flv"
	If ($UNATTENDED > 0) Then
		$SAVE = @ScriptDir & "/" & $GLOB_VIDEO_TITEL & $TYPE
	Else
		$SAVE = FileSaveDialog("Save file", "", "Flash(*.swf)|Flash_Movie(*.flv)", -1, $GLOB_VIDEO_TITEL)
		If StringRight($SAVE, 4) <> ".swf" Then
			$SAVE &= ".swf"
		EndIf
		If StringRight($SAVE, 4) <> ".flv" Then
			$SAVE &= ".flv"
		EndIf
	EndIf
	_GUICtrlStatusBar_SetText($STATUSBAR, "Downloading : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_DOWNLOAD($GLOB_URL, $SAVE, $PROGRESS)
	_GUICtrlStatusBar_SetText($STATUSBAR, "Encoding : (" & StringLeft($GLOB_VIDEO_TITEL, 20) & "...)")
	_ENCODE_IT($SAVE)
	_GUICtrlStatusBar_SetText($STATUSBAR, "... ready ...")
	GUICtrlSetData($PROGRESS, 0)
	GUICtrlSetState($BTN_DOWNLOAD, $GUI_ENABLE)
EndFunc




Func _GET_YOUTUBE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Youtube - ", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$T_CODE = _StringBetween($SCODE, '"t": ', " ")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$S_V = StringMid($DWNLINK, StringInStr($DWNLINK, "v=") + 2)
	If $T_NAME == "" Then
		$T_NAME = $S_V
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$GLOB_URL = "http://youtube.com/get_video?video_id=" & $S_V & "&t=" & $T_VALUE
EndFunc




Func _GET_EHRENSENF_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $S_V = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Ehrensenf", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "so.addVariable('file'", "')")
	If @error <> 1 Then
		$T_VALUE = StringReplace($T_CODE[0], '"', "")
		$T_VALUE = StringReplace($T_CODE[0], "'", "")
		$T_VALUE = StringReplace($T_VALUE, ",", "")
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_CLIPFISH_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	ClipPut($SCODE)
	MsgBox(0, "", "found clipfish")
	$TMP = _StringBetween($SCODE, "<title>", " - ")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "Clipfish", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "--", ".flv")
	If @error <> 1 Then
		$T_VALUE = _STRING_BEFORE_AFTER($T_CODE[0], "-", 1)
		$LAST2_DIGITS = StringRight($T_VALUE, 2)
		MsgBox(0, "", $T_VALUE)
		MsgBox(0, "", $LAST2_DIGITS)
	EndIf
	$GLOB_URL = "http://pg2.clipfish.de/media/" & $LAST2_DIGITS & "/" & $T_VALUE & ".flv"
EndFunc




Func _GET_MYVIDEO_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $LAST2_DIGITS = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "<title>", "</TITLE>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myvideo", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, "V15e.swf?", ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_MYSPACE_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	Local $URL_PREFIX = "http://mediaservices.myspace.com/services/rss.ashx?type=video&mediaID="
	Local $ID = _STRING_BEFORE_AFTER($DOWNLOAD_LINK, "=", 1)
	Local $DOWNLOAD_LINK_MYSPACE_XML = $URL_PREFIX & $ID
	$SCODE = _INetGetSource($DOWNLOAD_LINK_MYSPACE_XML)
	ClipPut($SCODE)
	$TMP1 = _StringBetween($SCODE, "<item>", "</item>")
	$TMP = _StringBetween($TMP1[0], "<title>", "</title>")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "myspace", "")
		$T_NAME = _REPLACE_SPECIAL_CHARS($T_NAME)
	EndIf
	$GLOB_VIDEO_TITEL = $T_NAME
	$T_CODE = _StringBetween($SCODE, '<media:content url="', ".flv")
	If @error <> 1 Then
		$T_VALUE = $T_CODE[0] & ".flv"
	EndIf
	$GLOB_URL = $T_VALUE
EndFunc




Func _GET_BREAK_COM_INFORMATION($DOWNLOAD_LINK)
	$GLOB_URL = ""
	$GLOB_VIDEO_TITEL = ""
	Local $SCODE = ""
	Local $T_NAME = ""
	Local $TMP
	Local $T_VALUE = ""
	$SCODE = _INetGetSource($DOWNLOAD_LINK)
	$TMP = _StringBetween($SCODE, "sGlobalFileName='", "';")
	If @error <> 1 Then
		$T_NAME = StringReplace($TMP[0], "break", "")
	EndIf
	$GLOB_VIDEO_TITEL = _REPLACE_SPECIAL_CHARS($T_NAME)
	$TMP = _StringBetween($SCODE, "sGlobalContentFilePath='", "';")
	If @error <> 1 Then
		$SGLOBALCONTENTFILEPATH = $TMP[0]
	EndIf
	$GLOB_URL = "http://media1.break.com/dnet/media/" & $SGLOBALCONTENTFILEPATH & "/" & $T_NAME & ".flv"
EndFunc




Func _DOWNLOAD($SITE, $PUNKT, $PROG = 0)
	$ORISIZE = InetGetSize($SITE)
	InetGet($SITE, $PUNKT, 1, 1)
	If $PROG = 0 Then ProgressOn("Download", "")
	Do
		$MSG = GUIGetMsg()
		If $MSG = $BTN_ABORT Then
			If MsgBox(4, "", "Abort?") = 6 Then Exit
		EndIf
		$SIZE1 = FileGetSize($PUNKT)
		$MBSIZE1 = FileGetSize($PUNKT)
		$INETGET = @InetGetBytesRead
		$PROZENT = (100 * $INETGET) / $ORISIZE
		$DECIMALPLACE = Round($PROZENT)
		$DECIMALPLACEMBSIZE1 = Round(@InetGetBytesRead / 1024)
		If $PROG = 0 Then
			ProgressSet($PROZENT, $DECIMALPLACE & "% " & "(" & $DECIMALPLACEMBSIZE1 & ") Kb has been Downloaded.")
		Else
			GUICtrlSetData($PROG, $PROZENT)
		EndIf
	Until @InetGetActive = 0
	If $PROG = 0 Then ProgressOff()
	Return $PUNKT
EndFunc




Func _ENCODE_IT($INFILE)
	GUICtrlSetData($PROGRESS, 0)
	$SOUTPUT = "mp3"
	$C = "ffmpeg.exe -i " & '"' & $INFILE & '"' & " -acodec " & $SOUTPUT & " -ab 128 -ar 22050 -ac 2 " & '"' & $INFILE & ".avi" & '"'
	$PID = Run($C, @ScriptDir, @SW_HIDE, $STDERR_CHILD)
	ProcessSetPriority($PID, 0)
	$STREAMCOUNTER = 0
	While ProcessExists($PID)
		If 1 <= $STREAMCOUNTER Then
			$READSTREAM = StderrRead($PID)
			$TMP = _StringBetween($READSTREAM, "Duration: ", ", start:")
			If @error <> 1 Then
				$DURATION = StringTrimRight($TMP[0], 2)
				$TMP = StringSplit($DURATION, ":")
				If @error <> 1 Then
					$H = $TMP[1]
					$M = $TMP[2]
					$S = $TMP[3]
					$TOTAL_SEC = ($H * 3600) + ($M * 60) + $S
				EndIf
			EndIf
			$TMP = _StringBetween($READSTREAM, "time=", " bit")
			If @error <> 1 Then
				$CURRENT_SEC = StringTrimRight($TMP[0], 2)
				$PERCENT = Int(100 * $CURRENT_SEC / $TOTAL_SEC)
				GUICtrlSetData($PROGRESS, $PERCENT)
			EndIf
			$STREAMCOUNTER = 0
		EndIf
		$STREAMCOUNTER = $STREAMCOUNTER + 1
	WEnd
EndFunc




Func _STRING_BEFORE_AFTER($INPUT, $SEPARATOR, $MODE)
	Local $TMP = StringSplit($INPUT, $SEPARATOR)
	If @error <> 1 Then
		If $MODE == 0 Then
			Return $TMP[1]
		Else
			Local $NBR = $TMP[0]
			Return $TMP[$NBR]
		EndIf
	Else
		Return -1
	EndIf
EndFunc




Func _REPLACE_SPECIAL_CHARS($STR)
	$STR = StringReplace($STR, "|", " ")
	$STR = StringReplace($STR, "-", " ")
	$STR = StringReplace($STR, "!", " ")
	$STR = StringReplace($STR, ".", " ")
	$STR = StringReplace($STR, "?", " ")
	$STR = StringReplace($STR, "_", " ")
	$STR = StringReplace($STR, "Ã¤", "ae")
	$STR = StringReplace($STR, "Ã¶", "oe")
	$STR = StringReplace($STR, "Ã¼", "ue")
	$STR = StringReplace($STR, "ÃŸ", "ss")
	$STR = StringStripWS($STR, 7)
	Local $STR1 = StringReplace($STR, " ", "_")
	Return $STR1
EndFunc

Alles anzeigen

das hier ist der code von deinem tool (brauchst garnicht erst versuchen es abzustreiten)
und da steht Func _GET_CLIPFISH_INFORMATION($DOWNLOAD_LINK)

naja ich will ezz nicht streiten und muss sagen das ich früher auch mal source "gerippt" habe xD
naja aber trotzdem nice ^^

Fuyo

Hab mich öffentlich im Thread oben entschuldigt

[Release] Youtube downloader & Konverter

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES