Есть форма: На ней есть кнопка и РТ поле.
Задача:При нажатии на кнопку, лотус лезет на определенную интернет страницу, берет линк файла, скачивает его и помещает в РТ поле.при этом пользователь никаких диалогов о скачивании файлов видеть не должен.
Сложности положить скачаный файл в РТ поле я думаю не будет...=)Но вот как скачать???
Что я сделал:
Dim obj As Variant
Dim html As Variant
Dim Link As Variant
Dim obj As Variant
Set obj = CreateObject("InternetExplorer.application")
obj.Navigate "C:\Documents and Settings\...\Рабочий стол\Main.html"
Set Html = obj.Document
Link = html.links(0).href 'Взял путь к файлу
obj.Navigate Link 'эта строчка выводит диалог на скачивание (может можно как то избежать?)
End Sub
Какие я вижу пути решения:
1.Использовать комманду IE - ExecWB( с параметрами 4(Меню "Файл" - "Сохранить как..."),2(Не запрашивать ввод пользователя )), но это лишь сразу выведет окно для сохранения файла.Вроде можно даже путь указать, но вот как бы из лотуса тогда отослать имитацию нажатия Enter?
2.Через объект Microsoft.XMLHTTP, но у меня не получилось, и говорят многие антивирусы блочат такой метод.
3.Ваш вариант...=)
Задача:При нажатии на кнопку, лотус лезет на определенную интернет страницу, берет линк файла, скачивает его и помещает в РТ поле.при этом пользователь никаких диалогов о скачивании файлов видеть не должен.
Сложности положить скачаный файл в РТ поле я думаю не будет...=)Но вот как скачать???
Что я сделал:
Dim obj As Variant
Dim html As Variant
Dim Link As Variant
Dim obj As Variant
Set obj = CreateObject("InternetExplorer.application")
obj.Navigate "C:\Documents and Settings\...\Рабочий стол\Main.html"
Set Html = obj.Document
Link = html.links(0).href 'Взял путь к файлу
obj.Navigate Link 'эта строчка выводит диалог на скачивание (может можно как то избежать?)
End Sub
Какие я вижу пути решения:
1.Использовать комманду IE - ExecWB( с параметрами 4(Меню "Файл" - "Сохранить как..."),2(Не запрашивать ввод пользователя )), но это лишь сразу выведет окно для сохранения файла.Вроде можно даже путь указать, но вот как бы из лотуса тогда отослать имитацию нажатия Enter?
2.Через объект Microsoft.XMLHTTP, но у меня не получилось, и говорят многие антивирусы блочат такой метод.
3.Ваш вариант...=)
