[Frage]Youtube Downloader

    • [Frage]Youtube Downloader

      Hi alle Autoit Coder ich bin im Netz auf einen Youtube downloader Code gestoßen , der folgendermaßen aussieht ...

      C-Quellcode

      1. #include <GUIConstants.au3>
      2. #include <inet.au3>
      4. GUICreate("You Tube Video-Downloader", 273, 105, 193, 115, -1)
      5. $DwnInput = GUICtrlCreateInput("http://www.youtube.com/watch?v=6DEh0eSpNvY", 8, 24, 257, 21)
      6. GUICtrlCreateLabel("www.youtube.com Download Link:", 8, 8, 268, 15)
      7. $start = GUICtrlCreateButton("&Start", 8, 48, 128, 25, 0)
      8. $Progress = GUICtrlCreateProgress(8, 80, 257, 16)
      9. $abb = GUICtrlCreateButton("A&bbruch", 137, 48, 128, 25, 0)
      10. GUISetState(@SW_SHOW)
      12. While 1
      13. $nMsg = GUIGetMsg()
      14. Switch $nMsg
      15. Case $GUI_EVENT_CLOSE
      16. Exit
      17. Case $start
      18. GUICtrlSetState($start,$GUI_DISABLE)
      19. $dwnlink = GUICtrlRead($DwnInput)
      20. $sCode=_INetGetSource ($dwnlink)
      21. $s_t=StringRegExp($sCode, "&t=(.*?)&", 3)
      22. $s_v=stringmid($dwnlink,stringinstr($dwnlink,"v=")+2)
      23. $save = FileSaveDialog("Speichere SWF","","Flash(*.swf)",-1,$s_v)
      24. If StringRight($save,4) <> ".swf" Then $save&=".swf"
      25. _Download("http://youtube.com/get_video?video_id=" & $s_v & "&t=" & $s_t[0], & $save, & $Progress)
      26. GUIDelete()
      27. MsgBox(0,"","Fertig!")
      28. Exit
      29. EndSwitch
      30. WEnd
      32. Func _Download($site,$punkt,$prog=0)
      33. $orisize = InetGetSize($site)
      34. InetGet($site,$punkt,1,1)
      35. If $prog = 0 Then ProgressOn("Download","")
      36. Do
      37. $msg = GUIGetMsg()
      38. If $msg = $abb Then
      39. If MsgBox(4,"","Abbruch?") = 6 Then Exit
      40. EndIf
      41. $size1 = FileGetSize($punkt)
      42. $MBsize1 = FileGetSize($punkt)
      43. $inetget = @InetGetBytesRead
      44. $Prozent = (100 * $inetget ) / $orisize
      45. $decimalplace = Round ($Prozent)
      46. $decimalplaceMBsize1 = Round (@InetGetBytesRead / 1024)
      47. If $prog = 0 Then
      48. ProgressSet ($Prozent, $decimalplace & "% " & "(" & $decimalplaceMBsize1 & ") Kb sind bereits gedownloadet.")
      49. Else
      50. GUICtrlSetData($prog,$Prozent)
      51. EndIf
      52. Until @InetGetActive = 0
      53. If $prog = 0 Then ProgressOff ()
      54. Return $punkt
      55. EndFunc
      Alles anzeigen


      Das klappt ja auch EIGENTLICH alles bis dieser error kommt


      Des weiteren möchte ich , wenn ich die datei gedownloadet habe , es in mp3 umwandeln

      Das soll so klappen

      Autoit.de schrieb:

      lad dir noch ffmpeg runter, dann kannst es auch gleich umwandeln lassen, und bevor es zu problemen kommt beim benutzen, die namen dürfen beim übergeben keine leerzeichen beinhalten

      Quellcode

      1. set /p Name=Type in the name of the flv(without .flv):
      2. ffmpeg -i %Name%.flv -ar 44100 -ac 2 -ab 256k %Name%.mp3


      So wie soll das gehen und wie kann ich den error beheben , weil dann könnte ich meinen downloader fertig stellen ^^

      lg Fuyo

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • also zu dem errror:
      iwo is ne variable, welche eigentlich als array benutzt wird im script
      diese ist aber kein array, wenn sie benutzt wird
      deswegen muss man die iwie zu nem array machrn, aber wo der befehl dafür ist im code, weiß ich nicht
      ich würde sie nämlich nicht als array deklarieren
      weiß nicht, was das für auswirkungen hat

    • Also ich habe den selben Code auf dem Pc. Von wem der war, kann ich leider nicht mehr sagen.
      Code:

      C-Quellcode

      1. #include <GUIConstants.au3>
      2. #include <inet.au3>
      4. GUICreate("You Tube Video-Downloader", 273, 105, 193, 115, -1)
      5. $DwnInput = GUICtrlCreateInput("Hier YouTube Link Rein !", 8, 24, 257, 21)
      6. GUICtrlCreateLabel("www.youtube.com Download Link:", 8, 8, 268, 15)
      7. $start = GUICtrlCreateButton("&Start", 8, 48, 128, 25, 0)
      8. $Progress = GUICtrlCreateProgress(8, 80, 257, 16)
      9. $abb = GUICtrlCreateButton("A&bbruch", 137, 48, 128, 25, 0)
      10. GUISetState(@SW_SHOW)
      12. While 1
      13. $nMsg = GUIGetMsg()
      14. Switch $nMsg
      15. Case $GUI_EVENT_CLOSE
      16. Exit
      17. Case $start
      18. GUICtrlSetState($start,$GUI_DISABLE)
      19. $dwnlink = GUICtrlRead($DwnInput)
      20. $sCode=_INetGetSource ($dwnlink)
      21. $s_t=StringRegExp($sCode, "&t=(.*?)&", 3)
      22. $s_v=stringmid($dwnlink,stringinstr($dwnlink,"v=")+2)
      23. $save = FileSaveDialog("Speichere FLV","","Flash Video(*.flv)",-1,$s_v)
      24. If StringRight($save,4) <> ".swf" Then $save&=".wav"
      25. _Download("http://youtube.com/get_video?video_id=" & $s_v & "&t=" & $s_t[0],$save,$Progress)
      26. GUIDelete()
      27. MsgBox(0,"","Fertig!")
      28. Exit
      29. EndSwitch
      30. WEnd
      32. Func _Download($site,$punkt,$prog=0)
      33. $orisize = InetGetSize($site)
      34. InetGet($site,$punkt,1,1)
      35. If $prog = 0 Then ProgressOn("Download","")
      36. Do
      37. $msg = GUIGetMsg()
      38. If $msg = $abb Then
      39. If MsgBox(4,"","Abbruch?") = 6 Then Exit
      40. EndIf
      41. $size1 = FileGetSize($punkt)
      42. $MBsize1 = FileGetSize($punkt)
      43. $inetget = @InetGetBytesRead
      44. $Prozent = (100 * $inetget ) / $orisize
      45. $decimalplace = Round ($Prozent)
      46. $decimalplaceMBsize1 = Round (@InetGetBytesRead / 1024)
      47. If $prog = 0 Then
      48. ProgressSet ($Prozent, $decimalplace & "% " & "(" & $decimalplaceMBsize1 & ") Kb sind bereits gedownloadet.")
      49. Else
      50. GUICtrlSetData($prog,$Prozent)
      51. EndIf
      52. Until @InetGetActive = 0
      53. If $prog = 0 Then ProgressOff ()
      54. Return $punkt
      55. EndFunc
      Alles anzeigen


      Als Versuchsobjekt habe ich diesen Link genommen:

      Quellcode

      1. http://www.youtube.com/watch?v=DlS8RO2_LmQ


      Hoffe es klappt :have a nice day: