www.boolean.name

www.boolean.name (http://forum.boolean.name/index.php)
-   PureBasic (http://forum.boolean.name/forumdisplay.php?f=90)
-   -   WinNet поддержка, либо обработка COOCKIE (http://forum.boolean.name/showthread.php?t=17576)

m0t0d0r 29.11.2012 08:11

WinNet поддержка, либо обработка COOCKIE
 
Код:

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


Часовой пояс GMT +1, время: 12:57.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Перевод: zCarot