Load with UserName & Password

[Andrey Fedorov]

Для получения курса валют использовался следующий код:

Код: Выделить всё

    Set X = CreateObject("MSXML.DOMDocument")
    X.async = False
    sUrlRequest = "http://www.cbr.ru/scripts/XML_dynamic.asp?date_req1=" _
                & Format(dDate, "dd.mm.yyyy") _
                & "&date_req2=" & Format(dDate, "dd.mm.yyyy") _
                & "&VAL_NM_RQ=" & "R0123" & IIf(bЕвро, 9, 5)
    If X.Load(sUrlRequest) Then Exit Do

Все нормально работало, но вот установили прокси-сервер требующий авторизации (username & password) - работать, само-собой перестало.

В связи с этим вопрос - как заставить работать вновь - то есть передавать пресловутые UserName & Password???

[Andrey Fedorov]

В общем, разобрался уже сам - так работает:

Код: Выделить всё

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
Set X = CreateObject("MSXML2.DOMDocument")
oXMLHTTP.Open "GET", sUrlRequest, False, MyName, MyPassword
oXMLHTTP.Send
X.loadXML(oXMLHTTP.responseText)

[i'm pissed]

дай исходник посмотреть plz

[Andrey Fedorov]

дай исходник посмотреть plz

Дык я его здесь и привел... См. выше.