Есть готовые программы, например Universal Share Downloader:  
http://www.softportal.com/software-4561-usdownloader.html

Спасибо за ссылку, но весь вопрос и заключается, чтобы это сделать в VBA.  
В плексе есть просмотр курса валют, но код закрыт.  
Думаю задачу можно решить подобным как там методом...но как ??

И я про это ;-)

(забыл пожписаться в теме выше..)

{quote}{login=KukLP}{date=28.01.2011 12:54}{thema=}{post}Я пользуюсь JDownloader. Он после скачивания очередного парта автоматом меняет ip за счет переподключения.  
Но с депозита умеет качать вообще без задержки в 60 сек.{/post}{/quote}  
 
у не верю, чт на VBA невозможно повторить то что делает например ваша программа    
JDownloader...  
 
Ладно, может вопросы задовать по мере решения задачи?:  
- как можно макросом нажать кнопку на сайте (открыли его гиперссылкой) ?

Никто не говорит, что невозможно. Эксель при правильном подходе может и борщ сварить. Вопрос зачем, если существуют спецпрограммы написанные именно для этих задач? Можно, например чайником или КАМАЗом гладить белье, но оправдано ли это?

неужели никто не поможет?  
или затача тупиковая?

Спасибо, начало есть!  
 
Вот что получил пока:  
 
Sub deposit()  
'нужно предварительно открытое окно iExplorera (иначе ошибка)  
Dim stAppName As String  
stAppName = "C:\Program Files\Internet Explorer\iexplore.exe"  
Call Shell(stAppName, 1)  
 
Dim objIE As Object, f  
Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Visible = 1  
objIE.Navigate ("http://depositfiles.com/ru/files/vbhj7yn2b")  
Do While (objIE.ReadyState <> 4)  
Loop  
f = objIE.Document.forms(1).elements(0).Click()  
 
Beep  
   PauseTime = 70  ' время паузы  
   Start = Timer     ' стартуем  
   Do While Timer < Start + PauseTime  
       DoEvents  
   Loop  
Beep  
 
'еще раз жмем, но на новой страничке  
f = objIE.Document.forms(1).elements(0).Click()  
End Sub  
 
Но дальше непонятно, что делать...  
Получаю окно в эксплорере (во вложении)  
Нужно побороть эту блокировку всплывающих окон и сохранить файл C:\Temp и после загрузки закрыть окна эксплорера

У меня все скачалось.  
 
Option Explicit  
#If VBA7 Then  
   #If Win64 Then  
       Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  
    #Else  
       Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  
   #End If  
#End If  
 
Sub deposit()  
   Dim objIE As Object, f  
   Set objIE = CreateObject("InternetExplorer.Application")  
   objIE.Visible = 1  
   objIE.Navigate ("http://depositfiles.com/files/h8c5h0n9j")  
   Do While (objIE.ReadyState <> 4)  
   Loop  
   f = objIE.Document.forms(1).elements(0).Click()  
   Sleep 70000  
   f = objIE.Document.forms(1).elements(0).Click()  
Sleep 3000  
objIE.Quit  
End Sub  
 
У меня win7 64 bit. Internet Explorer 8. Файл автоматически передался в Download Master и начал качаться.  
Побороть блокировку можно, настроив IE (уменьшив параметры безопасности). Предварительный запуск IE не нужен. И обновите IE, наконец. )))

здесь окошки в которых неоюходимы клики...

спасибо.  
сейчас попробую..

{quote}{login=ГеШа78}{date=30.01.2011 12:15}{thema=}{post}все работает!!!  
единственное пришлось доработать закрытие:  
 
Shell "taskkill.exe /f /im iexplore.exe"  
 
 
longines, поясни как ты определял кнопки на страничке?  
как это применить при скачивании с др. файлообменников, например с летитбита?{/post}{/quote}  
 
Опять же - необязательно открывать эксплорер через shell. Он открывается и закрывается как объект через Application.  
 
Определял через DOM. Вообще то рекомендую почитать про DOM - полезно при парсинге XML и HTML.

А почитать про DOM? )))  
Линки можно искать при помощи окна Locals при паузе программы.    
 
f = objIE.Document.forms(3).elements(14).Click()  
Sleep 3000  
f = objIE.Document.forms(3).elements(16).Click()  
Sleep 18000  
f = objIE.Document.forms(0).elements(19).Click()  
Sleep 70000  
f = objIE.Document.link(0).href  
 
Тайм-ауты ставьте свои, в зависимости от скорости интернета.

как именем пользоваться разобрался..  
 
f = objIE.Document.forms(3).elements("submit_way_selection2").Click()  
 
 
НО на втором окне код (f = objIE.Document.forms(3).elements(16).Click())  
не попадает на нужную кнопку, пробовал имя, а его у этого объекта НЕТ !?!? Как так?  
 
Трерий код f = objIE.Document.forms(0).elements(19).Click() - попадает на кнопку скачивания ПЛАТНО, и выдает страничку "..не правильно введен код из СМС"  
 
Извиняюсь за дотошность, но как подправить?