Как программно авторизироваться на Яндексе - VB

'Option Explicit
 
Function Get_Page(URI$, UserName$, Password$) As String
'    Dim http
'    waitForResponse
'
'    объявляем переменные
    Dim oHttp As Object
    Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    Call oHttp.open("GET", URI, 0)
    Call oHttp.SetCredentials(UserName, Password, 1)
    oHttp.Send
    While oHttp.Status <> 200
        oHttp.waitForResponse 100
        Debug.Print "***"
    Wend
 
    Get_Page = oHttp.ResponseText
 
    '======== Второй вариант
 
'    Dim oHttp As Object
'    On Error Resume Next
'    Set oHttp = CreateObject("MSXML2.XMLHTTP")
'    If Err.Number <> 0 Then
'        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
'    End If
'    On Error GoTo 0
'    If oHttp Is Nothing Then
'        Exit Function
'    End If
'    oHttp.open "GET", URI, False, UserName, Password
'    oHttp.Send
'    'получаем HTML страницы с курсами и извлекаем из него курс доллара
'    Get_Page = oHttp.ResponseText
'    Set oHttp = Nothing
 
End Function