Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Програмно Save as... IE.ExecWB / 4 сообщений из 4, страница 1 из 1
17.12.2008, 23:30
    #35721272
Gelo_R
Gelo_R
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмно Save as... IE.ExecWB
СЧ помощью objIE.ExecWB можно сохранить объект. А как попросить браузер сохранить в нужную папку и с нужным именем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2008, 09:21
    #35721540
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмно Save as... IE.ExecWB
По идее так.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Dim objIE As SHDocVw.InternetExplorer

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate "about:blank"
    
    While objIE.Busy
        DoEvents
    Wend
    
    objIE.Visible =  1 
    
    objIE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, "C:\1\temp.txt"

Но, все равно будет появляться диалоговое окно "Сохранить как...". По-видимому, это как-то связано с системой безопасности IE.

Можно воспользоваться альтернативным вариантом.

Код: plaintext
1.
2.
3.
4.
5.
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) As Long
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2008, 11:38
    #35721838
Gelo_R
Gelo_R
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмно Save as... IE.ExecWB
А можно более подробно про альтернативный вариант? (я имею ввиду параметры функции)
и еще одно, если сайт запароленый, эта функция работает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2008, 16:32
    #35722846
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Програмно Save as... IE.ExecWB
URLDownloadToFile: Fast, Simple and Transparent File Downloads Bypassing the IE Cache .

По-поводу, если запароленный. Попробуй так передать.

Код: plaintext
"http://username:password@www.a.ru/Test.htm"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Програмно Save as... IE.ExecWB / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 410ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161501]:
 0ms
get settings:
 11ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 77ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 240ms
total:  410ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]