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

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
reyn90
Сообщения: 39
Зарегистрирован: 30 май 2009, 03:25

Создаю на платформе 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
Сообщения: 39
Зарегистрирован: 30 май 2009, 03:25

16 просмотрво на данный момент и никто не знает ответа!
reyn90
Сообщения: 39
Зарегистрирован: 30 май 2009, 03:25

Какие жадные люди. Вот решение, ловите:
TextBox3.Text = res.Headers("Set-Cookie")
TextBox3.Text = TextBox3.Text.Replace("PHPSESSID=", "")
TextBox3.Text = TextBox3.Text.Replace("; path=/", "")
Ответить