cookies

[begrusse]

Отправляю на сервер POST запрос, как здесь (http://bbs.vbstreets.ru/viewtopic.php?t=7726) вроде бы всё проходит как надо, но сервер отвечает что: "Для авторизации необходима поддержка cookies"
как сделать что бы кукис поддерживалось и post запрос отправлялся нормально?

[alibek]

Обрабатывай куки сам. Сервер тебе передает (в заголовках) всю необходимую информацию.

[begrusse]

немного непонятно, как их обратывать?

[alibek]

Сохранять, когда сервер говорит, что их надо сохранять, и возвращать сохраненные значения, когда сервер их запращивает.
http://msdn.microsoft.com/en-us/library/aa384321(VS.85).aspx

[ALX_2002]

А использование XMLHTTP не подходит ? Он автоматически Cookie передаёт.

[begrusse]

А использование XMLHTTP не подходит ? Он автоматически Cookie передаёт.

а что это такое?

[begrusse]

Вообщем я делаю так:

Код: Выделить всё

Private Sub Command1_Click()
Winsock1.Protocol = sckTCPProtocol 'Установка протокола
Winsock1.Connect "имя_сервера", 80 'подключение через порт 80
While Not Winsock1.State = 7 'Ждем, пока подключится.
DoEvents '
Wend '

Parametrs = "параметр1=значение&параметр2=значение" 'сохраняем параметры в 'переменной

Winsock1.SendData "POST /адрес_скрипта HTTP/1.1" & vbCrLf
Winsock1.SendData "Content-Type: application/x-www-form-urlencoded" & vbCrLf
Winsock1.SendData "Host: имя_сервера" & vbCrLf
Winsock1.SendData "Content-Length: " & len(Parametrs) & vbCrLf & vbCrLf
Winsock1.SendData Parametrs & vbCrLf
End Sub


Далее как написанно в описании "Далее сервер запустит скрипт и передаст данные, еоторые выдаст скрипт, т.е страницу, которая появилась бы в браузере. Если надо принять эти данные, то добавь еще это: "

Код: Выделить всё

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
End Sub

Потом я сохраняю содержимое переменой Data в html файл на диске C

Код: Выделить всё

F = FreeFile
Open "C:\1.HTML" For Append As F
Print #F, Data
Close #F

Если открыть это страницу на ней находится форма авторизации и написанно "Для авторизации необходима поддержка cookies"
Так как реализовать поддержку coocies?

[ALX_2002]

Вот пример с XMLHTTP

Код: Выделить всё


Dim XmlHttpRequest
Set XmlHttpRequest = CreateObject("Microsoft.xmlhttp")
XmlHttpRequest.open "POST","http://www.server.ru/script.php",False
XmlHttpRequest.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
XmlHttpRequest.send "a=1&b=2&c=3"

Select Case XmlHttpRequest.status
Case 200
   XmlHttpRequest.responseText
Case Else
   MsgBox XmlHttpRequest.status & " " & XmlHttpRequest.statustext,vbCritical
End Select


[alibek]

А еще там есть заголовки, в том числе Set-Cookie.
Ты ссылку читал?

[ALX_2002]

2 alibek:

А еще там есть заголовки, в том числе Set-Cookie.
Ты ссылку читал?

Как раз с этого и начал. Очень благодарен за статейку. . Дело в том, что в Win Me (помоему) наткнулся на то, что в ней XMLHTTP Cookie автоматически не обрабатывал. В Win 98 / 2000 / XP такого не наблюдал. Именно поэтому предложил автору

А использование XMLHTTP не подходит ? Он автоматически Cookie передаёт.

Я что то не учёл ?

[alibek]

ALX_2002, мой вопрос к автору топика относился, не к тебе.

[begrusse]

ALX_2002, мой вопрос к автору топика относился, не к тебе.

Она на английском, а прочетать стотью на английском мне не под силу..

[alibek]

Есть онлайновые переводчики.
Качеством не блещут, но смысл понять можно.
Особо обрати внимание на:

Set-Cookie: <name>=<value>[; <name>=<value>]...
[; expires=<date>][; domain=<domain_name>]
[; path=<some_path>][; secure][; httponly]

и

Cookie: <name>=<value> [;<name>=<value>]...

[begrusse]

Есть онлайновые переводчики.
Качеством не блещут, но смысл понять можно.
Особо обрати внимание на:

Set-Cookie: <name>=<value>[; <name>=<value>]...
[; expires=<date>][; domain=<domain_name>]
[; path=<some_path>][; secure][; httponly]

и

Cookie: <name>=<value> [;<name>=<value>]...

Пробывал я переводчиками, блин, тупой набор слов, ничего не понятно... Может подскажите, там примерчик приведёте...

[alibek]

Зачем ты обманываешь?
Перевод не идеальный, но понять вполне можно.

[begrusse]

Зачем ты обманываешь?
Перевод не идеальный, но понять вполне можно.

Я не вру в том переводчике что я переводил перевод был другим!