Public Function WinHTTPRequestGET(ByVal URL As String, Cookie As Boolean, CookieURL As String, Refer As String) As String
  Dim objWinHttp As WinHttp.WinHttpRequest
  Dim f As Long
    DoEvents
    Set objWinHttp = New WinHttp.WinHttpRequest
    objWinHttp.SetTimeouts 30, 30, 0, 0
    objWinHttp.open "GET", URL, False
    objWinHttp.setRequestHeader "User-Agent", "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.10.229 Version/11.61"
    objWinHttp.setRequestHeader "Accept", "text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1"
    objWinHttp.setRequestHeader "Accept-Language", "ru-RU,ru;q=0.9,en;q=0.8"
    objWinHttp.setRequestHeader "Accept-Encoding", "default"
    objWinHttp.setRequestHeader "Accept-Charset", "Windows-1251"
    objWinHttp.setRequestHeader "Connection", "Keep-Alive"
    objWinHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
    If Refer <> "" Then objWinHttp.setRequestHeader "Referer", Refer
    If Cookie = True Then If ProcesGetCookie(CookieURL) <> "" Then objWinHttp.setRequestHeader "Cookie", ProcesGetCookie(CookieURL)
    objWinHttp.send
    WinHTTPRequestGET = objWinHttp.responseText
    Set objWinHttp = Nothing
End Function

Public Function ConvertToWinTxt(ByVal Txt As String) As String
  ConvertToWinTxt = Txt
  
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(65), "В")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(63), "І")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(73), "Н")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(69), "И")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(79), "Ц")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(85), "Ь")
  ConvertToWinTxt = Replace(ConvertToWinTxt, Chr(69), "К")

End Function

'ІНТЕРНЕТ ЕКСПЛОВЕР
Public IE(9) As Object
Public PIG_IEZagKstVikon As Long
Public PIG_IEViknoStatus(9) As Boolean

Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

'Закачка
Public Function PBDownloadFile(URL As String, LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then PBDownloadFile = True
End Function

Public Sub PIG_VklIE(Nomr As Long, Vsbl As Boolean)
Set IE(Nomr) = CreateObject("InternetExplorer.Application")
    IE(Nomr).Visible = Vsbl
    PIG_IEViknoStatus(Nomr) = True
End Sub
Public Sub PIG_Quit_IE(Nomr As Long)
  IE(Nomr).Quit
  Set IE(Nomr) = Nothing
End Sub
Public Sub PIG_IE_Navigate(Nomr As Long, Adres As String)
    'If PIG_IEViknoStatus(Nomr) = False Then Exit Sub
    IE(Nomr).navigate Adres
End Sub
Public Function PIG_IE_readyState(Nomr As Long) As Long
  PIG_IE_readyState = IE(Nomr).readyState
End Function
Public Function PIG_IE_innerHTML(Nomr As Long) As String
  PIG_IE_innerHTML = IE(Nomr).document.documentElement.innerHTML
  'IE(Nomr).document.documentElement.outerhtml
End Function
Public Function PIG_IE_outnerHTML(Nomr As Long) As String
  PIG_IE_outnerHTML = IE(Nomr).document.documentElement.outerHTML
End Function

'Взнати бітрейд який ще не визначався
Public Function PIG_VznatiNevidomiyBitred() As Long
  PIG_VznatiNevidomiyBitred = -1
  Dim f As Long
'''  For f = 0 To 2000
'''    If ZmL_Select(f) = False And ZmL_Artist(f) <> "" And ZmL_Track(f) <> "" Then PIG_VznatiNevidomiyBitred = f: Exit Function
'''  Next
End Function
Public Function PIG_WaitForStageOkOrError(Nomr As Long, tmrSecMax As Long) As Boolean
  Dim i As Long
  For i = 1 To tmrSecMax * 10
  Call Sleep(100)
    If PIG_IE_readyState(Nomr) = 4 Then
      PIG_WaitForStageOkOrError = True
      Exit Function
    End If
  Next
End Function