[ VKontakte Optimizer ]
Имя
Пароль




Забыли пароль? Регистрация
Вернуться   [ VKontakte Optimizer ] > Прочее > Другие проекты для ВКонтакта
Важная информация

Ответ
 
Опции темы Опции просмотра Вложений: 1
Evgeny Burkut
30.01.2015
 
Мимо проходил, заглянул)
О пользователе
 
Сообщений: 10
ВкоптоКарма: 2


[#1]
Хорошо Плагин для DM для скачивания с нормальными именами в любой версии

Написал прогу для авто-именования аудио/видео файлов в ДМастере (дельфи 7, исходники вышлю).
Кому скидывать? Зашифровались все, ваще (
Писать - http://vk.com/burkut1
Оффлайн
 
Ответить с цитированием
IkaR49
30.01.2015
 
 
Аватар для IkaR49
Опытный
О пользователе
 
Сообщений: 2,033
ВкоптоКарма: 1,347


[#2]
По умолчанию

Evgeny Burkut,для ДМ версии выше 5,14? Интересно, а можно кратко описать принцип работы программы?
Оффлайн
 
Ответить с цитированием
Evgeny Burkut
04.02.2015
 
Мимо проходил, заглянул)
TC
О пользователе
 
Сообщений: 10
ВкоптоКарма: 2


[#3]
По умолчанию

Цитата:
Сообщение от IkaR49 Посмотреть сообщение
Evgeny Burkut,для ДМ версии выше 5,14? Интересно, а можно кратко описать принцип работы программы?
Для любого ДМ. Прога тупо висит в трее, отслеживает окно добавления закачки, ищет в урле '&/' (признак вкопта), выдирает имя из этого урла (конвертит из escape кодов и переводит из utf в ansi) и вставляет автоматом в поле имени файла.
Оффлайн
 
Ответить с цитированием
Evgeny Burkut
04.02.2015
 
Мимо проходил, заглянул)
TC
О пользователе
 
Сообщений: 10
ВкоптоКарма: 2


[#4]
По умолчанию

Цитата:
Сообщение от IkaR49 Посмотреть сообщение
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;
Вложения
Тип файла: zip DMasterHelper.zip (252.9 Кб, 26 просмотров)
Оффлайн
 
Ответить с цитированием
Вэлл
04.02.2015
 
 
Аватар для Вэлл
ПсИХ=)))
О пользователе
 
Сообщений: 3,709
ВкоптоКарма: 8,514


[#5]
По умолчанию

Цитата:
Сообщение от Evgeny Burkut Посмотреть сообщение
Для любого ДМ. Прога тупо висит в трее, отслеживает окно добавления закачки, ищет в урле '&/' (признак вкопта), выдирает имя из этого урла (конвертит из escape кодов и переводит из utf в ansi) и вставляет автоматом в поле имени файла.
А можешь скинуть получившийся урл, который схавает последняя версия ДМ и сохранит файл с указанным именем? (А то у меня нет возможности сейчас запустить твою прогу).
Мы как только не пробовали раньше, всегда игнорировало всё что указано после ? в урле...
__________________
Оффлайн
 
Ответить с цитированием
Evgeny Burkut
04.02.2015
 
Мимо проходил, заглянул)
TC
О пользователе
 
Сообщений: 10
ВкоптоКарма: 2


[#6]
По умолчанию

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

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
Оффлайн
 
Ответить с цитированием
Вэлл
04.02.2015
 
 
Аватар для Вэлл
ПсИХ=)))
О пользователе
 
Сообщений: 3,709
ВкоптоКарма: 8,514


[#7]
По умолчанию

Evgeny Burkut, аа, я думал как-то модифицируется сам урл.
Ну такое дополнение хорошо для себя разве что. Распространять "костыль" к левой проге как-то не имеет смысла.
__________________
Оффлайн
 
Ответить с цитированием
Evgeny Burkut
13.02.2015
 
Мимо проходил, заглянул)
TC
О пользователе
 
Сообщений: 10
ВкоптоКарма: 2


[#8]
По умолчанию

Переписал программу в плагин для DMaster - sf.net
Радуйтесь )
Оффлайн
 
Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
Ответ

Нижняя навигация
Вернуться   [ VKontakte Optimizer ] > Прочее > Другие проекты для ВКонтакта


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


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

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

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