[Release] Youtube downloader & Konverter

Fuyo · 28. Juni 2009, 20:48

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]
autoitscript.com/forum/index.p…eaded&start=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 !

autoitscript.com/forum/index.p…eaded&start=0#entry490326

electriZer · 28. Juni 2009, 20:53

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 · 28. Juni 2009, 20:59

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 · 28. Juni 2009, 21:08

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 · 28. Juni 2009, 21:52

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 · 28. Juni 2009, 21:59

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 · 28. Juni 2009, 22:06

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

C-Quellcode

#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 · 28. Juni 2009, 22:11

xI

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

gez :: *electriZer*

ELiMINATOR · 28. Juni 2009, 22:16

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 · 28. Juni 2009, 22:29

Kein gespamme!

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

Und Reparier das ding mal ;)

Fuyo · 29. Juni 2009, 14:07

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 · 29. Juni 2009, 14:33

-.-

C-Quellcode

#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 · 29. Juni 2009, 14:41

Hab mich öffentlich im Thread oben entschuldigt

C-Quellcode

C-Quellcode

Teilen