Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Загрузка файла из интернет  [new]
hvh2014
Member

Откуда:
Сообщений: 63
Здравствуйте!

Подскажите в каком направление рыть..

Описание проблемы: Сайт на PHP. После авторизации на странице появляется кнопка, при клике на которую срабатывает скрипт для загрузки файла. Логин и пароль известны. Проблема в том, что скрипт не принимает в качестве параметров логин и пароль, т.е. надо явным образом авторизоваться через браузер, затем кликнуть на кнопку для загрузки файла.

Проблему авторизации я решил:
oHtml = CREATEOBJECT("InternetExplorer.Application")
oHtml.Navigate("Страница авторизации на сайте")
DO WHILE oHtml.ReadyState<>4 OR oHtml.Busy=.T.
DoEvents
ENDDO
oHtml.Document.Forms(x).elements(xx).Value='Логин'
oHtml.Document.Forms(x).elements(xxx).Value='Пароль'
oDoc=oHtml.Document
oAll=oDoc.all
FOR EACH oElem IN oAll
IF oelem.nodename="INPUT"
if oelem.type="image"
IF oelem.src="Gif файл картинки кнопки Войти"
oelem.click("Enter")
endi
endi
ENDIF
ENDFOR
*!* теперь если сделать:
oHtml.visible=.t.
oHtml.Navigate("Ссылка на загрузку файла.php")
*!* откроется диалог "Вы хотите открыть или сохранить файл из"

Мне же нужно чтобы программа молча скачала файл в указанную папку. URLDownloadToFile не поможет, он пытается скачать файл в новой сессии, и спотыкается на процедуре авторизации. https://www.sql.ru/forum/1103950/rabota-s-internet-explorer-programmnoe-sohranenie-fayla не хотелось бы использовать.
20 июл 15, 12:05    [17912079]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить