Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > PureBasic

PureBasic Мощный кросс-платформенный язык среднего уровня на основе BASIC. Подходит для решения широкого круга задач.

Ответ
 
Опции темы
Старый 29.11.2012, 12:11   #1
m0t0d0r
AnyKey`щик
 
Регистрация: 29.11.2012
Сообщений: 1
Написано 0 полезных сообщений
(для 0 пользователей)
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 пишет что неверный тип данных, в этом роде.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 15:15.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com