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 пишет что неверный тип данных, в этом роде.