Школоло / Говнокод #6617 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
function TForm1.getyoutube(ss: string): string;
var
//Вылавливаем ссылку
i:integer;
pos:integer;
length1:integer;
ssylka:string;
pos_str:string;
//Удаляем ненужные символы
pos_str2:string;
pos2,pos23:integer;
ssc:char;
begin
//Вылавливаем ссылку если это ютубовская ссылка
if isitok('youtube.com',ss)=true then
begin
  protect;
  memo1.lines.Text:=idhttp1.Get(ss);
  for i:=0 to memo1.Lines.Count do
  begin
  pos_str:='				img.src = '+#39;
  pos:=AnsiPos(pos_str,memo1.Lines.Strings[i]);
  if pos=1 then
  begin
  length1:=length(memo1.Lines.Strings[i])-length(pos_str)-2;
   ssylka:=copy(memo1.Lines.Strings[i],pos+length(pos_str),length1);
    end;
    end;
    ssc:=#160;
     pos_str:='youtube.com';
    pos:=AnsiPos(pos_str,ssylka);
    delete(ssylka,pos+length(pos_str),1);
    delete(ssylka,6,1);
    delete(ssylka,7,1);
      pos_str2:='youtube.com/';
    pos2:=AnsiPos(pos_str,ssylka);
    pos2:=pos2+length(pos_str2);
       pos_str2:='?ip';
    pos23:=AnsiPos(pos_str,ssylka);
    delete(ssylka,pos2,pos2-pos23);
    insert('videoplayback',ssylka,pos2);
    result:=ssylka;
    end
    else
    begin
      protectoff;
    form2.show;
      form1.enabled:=false;
    end;
      protectoff;
end;

Очень старый способ скачать видео с YouTube

Запостил: KapoeD KapoeD, (Updated )

Комментарии (43) RSS

  • ava ctm # Ссылка на оригинал 0

    а я как ламер заходил через оперу, а потом в кеше вытаскивал файл по дате 🙁
    Ответить

    • ava telnet # Ссылка на оригинал 0 ⇈

      А я, как ламер, заходил через %browser_name%, открывал инструменты разработчика и ловил HTTP-запрос к видеофайлу. Впрочем, я не настолько часто дёргаю видео с тытрубы, чтобы искать более скоростные методы.
      Ответить

    • ava bugmenot # Ссылка на оригинал 0 ⇈

      да уж, это действительно идиотизм

      вообще-то это букмарклетом делается, всё равно браузер из процесса не выкинуть
      раньше ссылка была прямо в DOM
      Ответить

      • ava Vindicar # Ссылка на оригинал 0 ⇈

        Она и сейчас есть, просто её из flashvars надо вынимать.
        Пользуюсь самописным скриптом - работает.

        Правда, раньше на ссылку можно было качалку натравить... сейчас то ли куки проверяют, то ли ещё что... короче, только браузером же и выкачивать.

        http://pastebin.com/BcBtZjJ4
        Тот ещё говнокод, конечно...
        Ответить

        • ava bugmenot # Ссылка на оригинал 0 ⇈

          хм, а у меня перестало работать с flashvars
          теперь вроде как ихний флеш апплет подкачивает XML с зоопарком форматов и ссылками
          Ответить

            • ava bugmenot # Ссылка на оригинал 0 ⇈

              да, это была ложная тревога, либо они что-то мутили, либо я, букмарклет тоже опять работает

              > ошибка
              закралось плохое слово на A? 😉
              Ответить

    • ava 7ion # Ссылка на оригинал 0 ⇈

      А я как ламер, поставил плагин для скачки видео с Ютуба и жал всего лишь Download.
      Теперь буду лазить в кэш Оперы.
      Ответить

  • ava guest # 0

    л,Q,P!L$Y:O?E,UXH(G(Y?Z)M(M)B!YB"TX$V:A!S"V?BA C:P,I O:F)P,DG(S(B"W)K$IЙCQIBJASSIHNZZSLTVKKSZCCBOJCMIGRYDMFTVSYUIDTAUMMINJJDUURYXRGGFMBYVTEZIBJNURXQYVGPIRLVSAWDHCNDXSRGWWQSIEXFZUUSTADMLDSOSYUOGWOUUQQFDKSQYPFVXKEYOBXIWPCOJLDELQTHSCFZJAJWXAFEBZLKDBKPIYOCGWFUWZVRXGCGQUSDCXSNDPMAPPFYMUAFKFLMTOVRADQBHHYTXWBWU
    Ответить

Добавить комментарий

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓