powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добраться до ссылок на сайте
5 сообщений из 30, страница 2 из 2
Добраться до ссылок на сайте
    #38165690
сккотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alex77755,
печеньки==cookies
Код: vbnet
1.
2.
rem PSF=39e670ec99aa50ce013b5f9c4f916dab <-- "тикет" для данной сесии
rem path=/" <-- указание (?серверу) перенаправить на "корневую" страницу - http://betcityru.com


Если используете этот WebBrowser Object , то
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
   strURL = "http://betcityru.com/top.php"
   Set oHttp = CreateObject("MSXML2.XMLHTTP")
   oHttp.Open "POST", strURL, False
   Dim param
   ' вместо {логин} и {пароль} передаёте Ваши логин и пароль для авторизации на betcityru.com
   param = "login=" & {логин} & "&psw=" & {пароль}
   oHttp.Send param

dim sAddnHdrs$
sAddnHdrs = oHttp.getResponseHeader("Set-Cookie")

' не знаю, как правильно Cookies: или Cookies=
sAddnHdrs$ = "Cookies: " & sAddnHdrs

' описание объекта http://msdn.microsoft.com/en-us/library/aa752093%28v=vs.85%29.aspx
' object.Navigate(url, Flags, TargetFrameName, PostData, Headers) 
WB.Navigate "http://betcityru.com", , , , sAddnHdrs

' ЗЫ: если Вам "от начала и до конца" нужна визуализацияв браузере, 
'       то можно не мучить себя непонятным MSXML2.XMLHTTP с его хидерами и прочими, 
'       а везде испльзовать WebBrowser ( останется только его объектную модель немного изучить )

...
Рейтинг: 0 / 0
Добраться до ссылок на сайте
    #38165939
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
скукотища , спасибо за стремление помочь!
Но кажется я стал походить на американца:
Задорнов: "Мы с этими америкацами ДВА МЕСЯЦА! на чистом английском разговариваем, а они ничего не понимают! Ну тупые!!"
Столько разных было вариантов проб, что уже не помню как получилось, что в Debug.Print oHttp.getAllResponseHeaders появлялась строка с Set-Cookie: Теперь её нет. И соответственно авторизация не проходит. Блин!! Да что ж я такой "американец".
Беру потом прямо из кода назначения param копипаст логин и пароль в поля ввода. Ввод, авторизация!(уже проверял: может не правильно забил в код логин и пароль?).
Нарочно не придумашь! Пока писал ответ сходил позавтракать. Программа была выключена.
F8 по шагам. в дебаггере есть строка с Set-Cookie:!? и вход прошёл. Одно смущает: Пока вход не проходил и я делал ручной вход, то даже при sAddnHdrs = oHttp.getResponseHeader("Set-Cookie")="" вход осуществлялся. Попадалось раньше, что данные хранятся в КЕШ.
Но не совсем вьехал в тему. И раньше замечал, что иногда при повторном входе авторизация происходит автоматом, а иногда нет. Как всё не стабильно в этой системе. Почему из десяти раз только один раз появилась строка с Set-Cookie:!?. Как это можно стабилизировать и привести к однозначности?
Назначения сделал так:
Код: vbnet
1.
2.
sAddnHdrs$ = "Cookies:= " & sAddnHdrs
WB.Navigate "http://betcityru.com", , , sAddnHdrs ' PostData 4 параметр, а не 5


Ну вот опять: простояла выключенной пару минут. запустил не по шагам.
Строки в дебаггере с Set-Cookie нет, sAddnHdrs ="", а вход осуществлён!
...
Рейтинг: 0 / 0
Добраться до ссылок на сайте
    #38165955
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alex77755,
у меня sAddnHdrs - не "данные POST", а "дополнительные заголовки" ( пятый параметр ).

То что у Вас некоторые запросы пролазят без авторизации - действительно заслуна кэша.
...
Рейтинг: 0 / 0
Добраться до ссылок на сайте
    #38166201
Диклевич Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alex77755Скачал утилитку. Установил. Русской нет такой? А то врядли смогу разобраться, что там она выдаёт и как это можно использовать
да там и разбираться то нечего. запустить Fiddler2, потом Tools -> Fiddler Options -> HTTPS -> отметить CAPTURE HTTPs CONTENT и DECRYPT HTTPS Traffic -> OK, и вперед шариться по сайтам в браузере.
к примеру, если пойти по интересующему адресу, пройти авторизацию, то в Fiddler слева будут видны отправленные запросы, по клику на запрос, справа можно будет увидеть детали: Header, тип POST/GET, параметры, ответ, куки и всю прочую лабуду.
потом, это все можно автоматизировать в VB.
...
Рейтинг: 0 / 0
Добраться до ссылок на сайте
    #38167128
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообщем после того как я вышел из сайта кнопкой выход вход перестал осущесляться но и по запросу с параметрами строка с куками не формировалась. После 2 часов перерыва по F8 с большими паузами прошёл запрос и строка кукис в списке появилась(один раз), но авторизация не прошла. запустил Fiddler и попытался разобраться: И о чудо: строка появилась
Set-Cookie: PSF=554fb518387d8c713bbec3a9ebf4e1e6; path=/. Авторизация не прошла естественно. Сделал ручную авторизацию.
По интуиции решил сравнивать запросы на строках с http://betcityru.com/top.php.
Там много что отличается, но я подумал, что мне надо параметры запроса(в нужном направлении хоть копаю?)
И во что увидел. Как это можно использовать для автоматизации.
PSF=554fb518387d8c713bbec3a9ebf4e1e6 это видно в параметрах и при попытке автоматической и ручной авторизации.
Значит для автоматической авторизации не хватает каких-то параметров?
авторпо клику на запрос, справа можно будет увидеть детали: Header, тип POST/GET, параметры, ответ, куки и всю прочую лабуду. потом, это все можно автоматизировать в VB.
Следует ли рассматривать это как невозможность автоматизировать процесс в VB? Что надо сначала посмотреть параметры и прочую лабуду и только потом переписывать код? Или есть возможность автоматизации?
Справку по объекту WebBrowser скачал. Много примеров. Но все примеры только для тех случаев когда всё находится на одном полотне. А в моём случае на странице только ссылки на загрузку:
Код: html
1.
<frame name="btop" src="top.php" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" noresize>
...
Рейтинг: 0 / 0
5 сообщений из 30, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Добраться до ссылок на сайте
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]