Хочу зайти на сервер с паролем и скачать страницу
Так работает:

   WebBrowser1.Navigate (url):msgbox 1
   a = URLDownloadToFile(0, url, "file", 0, 0) 

Т.е. WebBrowser1 запрашивает пароль, устанавливает соединение и все путем. Но я хочу обойтись только API.. типа:

    hOpen = InternetOpen("прога", 3, vbNullString, vbNullString, 0)
    h = InternetConnect(hOpen, url, 80, "логин", "пароль", 3, 0, 0):
    hFile = InternetOpenUrl(hOpen, url, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    InternetReadFile hFile, sBuffer, 1000, Ret
    MsgBox sBuffer

Не работает.. причем вторая строка вроде прорабатывает нормально но в буфере написано что надо установить соединение..
Как сделать правильно? Спасибо..

http://ru.wikipedia.org/wiki/CURL