[ VKontakte Optimizer ]

[ VKontakte Optimizer ] (//vkopt.net/forum/index.php)
-   Другие проекты для ВКонтакта (//vkopt.net/forum/forumdisplay.php?f=14)
-   -   Плагин для DM для скачивания с нормальными именами в любой версии (//vkopt.net/forum/showthread.php?t=5477)

Evgeny Burkut 30.01.2015 02:08

Плагин для DM для скачивания с нормальными именами в любой версии
 
Написал прогу для авто-именования аудио/видео файлов в ДМастере (дельфи 7, исходники вышлю).
Кому скидывать? Зашифровались все, ваще (
Писать - http://vk.com/burkut1

IkaR49 30.01.2015 16:24

Evgeny Burkut,для ДМ версии выше 5,14? Интересно, а можно кратко описать принцип работы программы?

Evgeny Burkut 04.02.2015 00:27

Цитата:

Сообщение от IkaR49 (Сообщение 67862)
Evgeny Burkut,для ДМ версии выше 5,14? Интересно, а можно кратко описать принцип работы программы?

Для любого ДМ. Прога тупо висит в трее, отслеживает окно добавления закачки, ищет в урле '&/' (признак вкопта), выдирает имя из этого урла (конвертит из escape кодов и переводит из utf в ansi) и вставляет автоматом в поле имени файла.

Evgeny Burkut 04.02.2015 00:40

Вложений: 1
Цитата:

Сообщение от IkaR49 (Сообщение 67862)
Evgeny Burkut,для ДМ версии выше 5,14? Интересно, а можно кратко описать принцип работы программы?

Вот, собссно, сам код на дельфи и exe:

h := FindWindow( 'TFileInfoForm', nil );
if h <> 0 then
begin
h2 := FindWindowEx ( h, 0, 'TPageControl', nil );
if h2 = 0 then Exit;

h3 := FindWindowEx ( h2, 0, 'TTabSheet', nil );
h4 := FindWindowEx ( h2, h3, 'TTabSheet', nil );
h5 := FindWindowEx ( h2, h4, 'TTabSheet', nil );

h6 := FindWindowEx ( h5, 0, 'TEdit', nil );
h7 := FindWindowEx ( h5, h6, 'TEdit', nil );
h8 := FindWindowEx ( h5, h7, 'TEdit', nil );
h9 := FindWindowEx ( h5, h8, 'TEdit', nil );

h10 := FindWindowEx ( h, 0, 'TComboBox', nil );
h11 := FindWindowEx ( h, h10, 'TComboBox', nil );
h12 := FindWindowEx ( h, h11, 'TComboBox', nil );
h13 := FindWindowEx ( h12, 0, 'Edit', nil );

if SendMessage( h13, WM_GETTEXT, SizeOf( s3 ), Integer(@s3) ) = 0 then Exit;

i := Pos( '&/', s3 );
if i = 0 then Exit;

s2 := HTTPDecode( Copy( s3, i + 2, SizeOf(s3) - i - 2 ) );
s2 := Utf8ToAnsi( s2 );

if h6 <> 0 then
if SendMessage( h9, WM_GETTEXT, SizeOf( s3 ), Integer(@s3) ) = 0 then
SendMessage( h9, WM_SETTEXT, 0, Longint( PChar( s2 ) ) );
end;

Вэлл 04.02.2015 10:02

Цитата:

Сообщение от Evgeny Burkut (Сообщение 67879)
Для любого ДМ. Прога тупо висит в трее, отслеживает окно добавления закачки, ищет в урле '&/' (признак вкопта), выдирает имя из этого урла (конвертит из escape кодов и переводит из utf в ansi) и вставляет автоматом в поле имени файла.

А можешь скинуть получившийся урл, который схавает последняя версия ДМ и сохранит файл с указанным именем? (А то у меня нет возможности сейчас запустить твою прогу).
Мы как только не пробовали раньше, всегда игнорировало всё что указано после ? в урле...

Evgeny Burkut 04.02.2015 10:20

Цитата:

Сообщение от Вэлл (Сообщение 67882)
А можешь скинуть получившийся урл, который схавает последняя версия ДМ и сохранит файл с указанным именем? (А то у меня нет возможности сейчас запустить твою прогу).
Мы как только не пробовали раньше, всегда игнорировало всё что указано после ? в урле...

Так урл не меняется, он как был с именем после '&/' так и остался, просто в ДМ почему-то убрали "декодировщик".

http://cs1-33v4.vk-cdn.net/p2/841b36...1%81%D1%8F.mp3
дает Александр Пушной - Надо радоваться, не надо напрягаться.mp3

http://cs634207v4.vk.me/u893829/vide...%5B240p%5D.mp4
дает Никогда (из х_ф _Дурак_, 2014) [240p].mp4
http://cs622622.vk.me/v622622829/163e0/k8EeeqnOG7s.jpg

Вэлл 04.02.2015 11:08

Evgeny Burkut, аа, я думал как-то модифицируется сам урл.
Ну такое дополнение хорошо для себя разве что. Распространять "костыль" к левой проге как-то не имеет смысла.

Evgeny Burkut 13.02.2015 20:58

Переписал программу в плагин для DMaster - sf.net
Радуйтесь )


Часовой пояс GMT +4, время: 15:49.

Сервер бесплатных медицинских консультаций
Дачный форум. уДачное общение.

VkOpt 2007 - 2020
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Перевод от zCarot