Option Explicit

' Çàïèñü html-êîäà âåá-ñòðàíèöû â ïàðàìåòð "response".
' Èñïîëüçóåòñÿ ñïåöèàëüíûé çàãîëîâîê äëÿ ðàáîòû ñ ñàéòîì "myscore.ru".

Function Main(URL As String, response As String, Optional cookie As String = "") As Boolean

    Dim WinHttpReq As Object, i As Long
    
    
    '1. Çàïèñü html-êîäà âåá-ñòðàíèöû â îáúåêò "WinHttpRequest".
        ' Ïÿòü ïîïûòîê. Ò.ê. èíîãäà îáúåêò "WinHttpRequest" íå ñðàáàòûâàåò.
    For i = 1 To 5
    
        '1) Ñîçäàíèå îáúåêòà "WinHttpRequest".
            ' Ñ ïîìîùüþ ýòîãî îáúåêòà ìîæíî ïîëó÷èòü html-êîä âåá-ñòðàíèöû.
        Set WinHttpReq = CreateObject(Class:="WinHttp.WinHttpRequest.5.1")
        
        '2) Çàïèñü ñòðîêè çàïðîñà â îáúåêò "WinHttpRequest".
        WinHttpReq.Open "GET", URL, False
        
        '3) Ñîçäàíèå çàãîëîâêîâ çàïðîñà.
            ' ×òî îçíà÷àåò "SW9D1eZo", ÿ íå çíàþ. ß òàê ïîíÿë, ÷òî ýòî ïîñòîÿííûå äàííûå.
        WinHttpReq.setRequestHeader "X-Fsign", "SW9D1eZo"
        
        '4) Çàïèñü êóêîâ. Ïóñòûå êóêè âûçûâàþò run-îøèáêó.
        If cookie <> "" Then
            WinHttpReq.setRequestHeader "Cookie", cookie
        End If

        '5) Çàïèñü html-êîäà âåá-ñòðàíèöû â îáúåêò "WinHttpRequest".
        On Error Resume Next
            WinHttpReq.Send
            If Err.Number = 0 Then
                On Error GoTo 0
                Exit For
            End If
        On Error GoTo 0
        
    Next i
    
    If i > 5 Then
        Application.ScreenUpdating = True
        MsgBox "Âîçíèêëè ïðîáëåìû, êîòîðûå ìîãóò áûòü âûçâàíû ýòèìè ïðè÷èíàìè:" & vbCr & _
            "1) íåò èíòåðíåòà;" & vbCr & _
            "2) óêàçàí íåñóùåñòâóþùèé àäðåñ (URL) âåá-ñòðàíèöû;" & vbCr & _
            "3) ñåðâåð (óäàë¸ííûé êîìïüþòåð) íå ìîæåò îòîáðàçèòü ñòðàíèöó (îøèáêà 5##).", vbExclamation
        Exit Function
    End If
    
    '2. Êîïèðîâàíèå hmtl-êîäà âåá-ñòðàíèöû â ïàðàìåòð "response".
    response = WinHttpReq.ResponseText
    
    '3.
    Main = True
     
End Function