Skip to Content

Программа для автоматического скачивания

8 всего / 0 новых
Последнее
Dispireit
Молчун
Сообщения: 5
Бонусы: 1
Пол: Мужской
Группы: Нет
Блог: читать!
Программа для автоматического скачивания

Пытаюсь прогамировать в делфи. Нужна программа задача: имитировать переход с сайта, загрузить страницу на ней "нажать кнопку скачать" дождаться ответа в загруженных данных найти нужную URL файла , начать её качать, в конце закачки при положительном результате перезагрузить соединение с интернетом и начать заного.

Форму и кнопки я могу прекрутить, впринципе могу собрать сам просто нужна информация если можно исходники, в инете материал разбросан а времени мало собирать крупици.

Dispireit
Молчун
Сообщения: 5
Бонусы: 1
Пол: Мужской
Группы: Нет
Блог: читать!

Так же программа нужна для автоматического скачивания списка файлов разрыв нужен для смены IP что бы сбросить тайм аут. ещё знаю что у файлообмеников такого рода есть партнёрские программы и копирование ссылок не приносит людям денег но привык уважать чужой труд. пытался найти программу такого рода в интернете нет, ни с ребутом интернета после каждой закачки, не имитации ссылки перехода

Сандер
Администратор
Сандер аватар
ГуруМодератор
Сообщения: 1944
Бонусы: 617
Пол: Мужской
Блог: читать!

Ну исходников у меня нет.
Но я тут поискал
Вот имитация referer


procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OLEVariant;
Url, Ref: string;
IEApp: OLEVariant;
begin
Flags := '1';
TargetFrameName := '';
PostData := '';
Url := '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&';
Ref := '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&';
// u cannot navigate to the url above without this referer
Headers := 'Referer: ' + Ref + #10 + #13;
Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;

А что касается сброса соединения, то вообще откуда возьмется другой IP? Я бы под это лучше прокси-сервера использовал

Dispireit
Молчун
Сообщения: 5
Бонусы: 1
Пол: Мужской
Группы: Нет
Блог: читать!

Забыл сказать у нас динамичекий IP и при перезагрузке он меняется 100% за постоянный нужно заплотить деньги и дорого!

Сандер
Администратор
Сандер аватар
ГуруМодератор
Сообщения: 1944
Бонусы: 617
Пол: Мужской
Блог: читать!

Вот тут есть код для переподсоединения
http://www.cyberguru.ru/programming/delphi/windows-devices-page2.html

Dispireit
Молчун
Сообщения: 5
Бонусы: 1
Пол: Мужской
Группы: Нет
Блог: читать!

Спасибо хороший исходник, может подсабите чтоб он грузил страницу не в веб браузер а например в виде файла , находил и нажимал нужную мне кнопку, загружал то что пришло в ответ и находил там нужную ссылку, если не сложно посоветуйте что почитать или как это реализовать

Dispireit
Молчун
Сообщения: 5
Бонусы: 1
Пол: Мужской
Группы: Нет
Блог: читать!

Сообщение от Сандер:
Вот тут есть код для переподсоединения
http://www.cyberguru.ru/programming/delphi/windows-devices-page2.html

то немного не то мне нужно просто отключить и подключить высокоскоростное подключение к интернету а не перезагружать сетевое подключение. Но всё равно , спасибо интерестный исходник

Сандер
Администратор
Сандер аватар
ГуруМодератор
Сообщения: 1944
Бонусы: 617
Пол: Мужской
Блог: читать!

Сообщение от Dispireit:
Спасибо хороший исходник, может подсабите чтоб он грузил страницу не в веб браузер а например в виде файла , находил и нажимал нужную мне кнопку, загружал то что пришло в ответ и находил там нужную ссылку, если не сложно посоветуйте что почитать или как это реализовать

Вот тут, мне кажется, много инфы
http://www.delphisources.ru/pages/faq/internet_net.html

RSS-материал


Активные пользователи

ПользовательБонусы
Сандер617
Nefertity247
Tori242
robot201
Chief183
STAER140
faiters139
Mavarik121
akkadites94
staiki94