forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Visual Basic (http://forum.boolean.name/forumdisplay.php?f=62)
-   -   Как из Response установить куки в новый Request (http://forum.boolean.name/showthread.php?t=17197)

reyn90 19.08.2012 16:18

Как из Response установить куки в новый Request
 
Создаю на платформе Visual Basic.NET

1.Итак, я создаю первый запрос HttpWebRequest
Код:

Dim req As Net.HttpWebRequest = DirectCast(Net.HttpWebRequest.Create(url_adres), Net.HttpWebRequest)
и создаю контейнер для куков.
Код:

Dim tmpOk As New CookieContainer
Потом присваиваю куки запросу
Код:

req.CookieContainer = tmpOk
2.После чего получаю ответ от запроса req
Код:

Dim res As Net.HttpWebResponse = DirectCast(req.GetResponse, Net.HttpWebResponse)
И сходу присваиваю переменной tmpOk куки от ответа
Код:

tmpOk.Add(res.Cookies)
3.Теперь создаю второй запрос:
Код:

Dim req2 As Net.HttpWebRequest = DirectCast(Net.HttpWebRequest.Create("url_adres2), Net.HttpWebRequest)
Устанавливаю опять куки
Код:

req2.CookieContainer = tmpOk
Вот только во второй ЗАПРОСЕ там где url_adres2 должно быть что то вроде 7titft7nuut3d22mqtdg67f1c4
В перехвате запросов
Cookie PHPSESSID=7titft7nuut3d22mqtdg67f1c4; _ym_visorc=w
ВОПРОС: Как получить программно строку Cookie PHPSESSID=7titft7nuut3d22mqtdg67f1c4; _ym_visorc=w ????

reyn90 20.08.2012 07:27

Ответ: Как из Response установить куки в новый Request
 
15 просмотров на данный момент и никто не знает ответа!

Nerd 20.08.2012 13:46

Ответ: Как из Response установить куки в новый Request
 
vb - мёртвый язык.

reyn90 21.08.2012 07:04

Ответ: Как из Response установить куки в новый Request
 
Цитата:

Сообщение от Nerd96 (Сообщение 236748)
vb - мёртвый язык.

А вот VB.NET по сравнению с VB живёт и имеет большме перспективы.
Итак, если кто пишет на VB.NET вот решение проблемы
Код:

TextBox3.Text = res.Headers("Set-Cookie")
TextBox3.Text = TextBox3.Text.Replace("PHPSESSID=", "")
TextBox3.Text = TextBox3.Text.Replace("; path=/", "")



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

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