Код:
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 пишет что неверный тип данных, в этом роде.
Помогите с печеньками пожалуйста, вот это необходимо оооччченнь