Код:
Debug OpenLibrary(1,"wininet.dll")

#INTERNET_OPEN_TYPE_PRECONFIG = 0
#INTERNET_DEFAULT_HTTP_PORT = 80
#INTERNET_SERVICE_HTTP = 3
#INTERNET_FLAG_KEEP_CONNECTION = 400000$

hInternet = InternetOpen_("AGENT 007", #INTERNET_OPEN_TYPE_PRECONFIG, "","", 0)
If hInternet
  hConnect = InternetConnect_(hInternet, "tipahost.com", #INTERNET_DEFAULT_HTTP_PORT, "", "", #INTERNET_SERVICE_HTTP, 0, 0)
  If hConnect
    hRequest = HttpOpenRequest_(hConnect, "GET", "", "HTTP/1.0", "", "*/*", #INTERNET_FLAG_KEEP_CONNECTION, 0)
    If hRequest
      
      ;как вставить печенья
      
      HttpSendRequest_(hRequest, "",0, "",0)
      Repeat
        otv_size = 0;переменная для ожидаемого размера пакета
        InternetQueryDataAvailable_(hRequest, @otv_size, 0,0);сколько данных будет принято
        mem_pack.s = Space(otv_size);выделяем под ожидаемый размер
        real_size = 0;cюда присунем реальный размер
        InternetReadFile_(hRequest, @mem_pack.s, otv_size, @real_size)
        If otv_size=real_size And real_size>0
          html.s = html.s+mem_pack.s
        Else
          If GetLastError_()
            result.s = "ERROR Ошибка при получение данных "+Str(GetLastError_())
            Break
          Else
            result.s = "OK"
            Break
          EndIf
        EndIf
      ForEver
      
      ;как получить печенья
      
    EndIf
  EndIf
EndIf

Помогите печеньки обработать, и[ надо получить, сохранnm, потом считать и вставить.
Или я рылся, в виннет есть поддержка печенек, но её как то надо велючать с помощью InternetSetOption, флаг INTERNET_OPTION_SUPPRESS_BEHAVIOR, видимо надо поставить INTERNET_SUPPRESS_COOKIE_POLICY, я пробовал, но мне упорно getlasterror пишет что неверный тип данных, в этом роде.
Помогите с печеньками пожалуйста, вот это необходимо оооччченнь