kok80
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
извиняюсь, если не в то место пишу, кто-то ссылался на вебпрограммирование, но такого раздела на нашел
открываю страницу http://www.petrolesport.ru/services_info.php
ввожу данные HMCU9104979 в окошко INPUT, жму НАЙТИ
результат на экране
Делаю на VBA в Excel, посмотрел сначала сниффером, что запашивается, делаю все также (или не также ? в setRequestHeader пихал все, что можно)
Получаю через GET страницу http://www.petrolesport.ru/services_info.php
в ней есть 2 идентификатора SID (SID = "32байта данных" ) и BID такой же, вытаскиваю их
пытаюсь получить 2ю страницу через GET - получаю ошибку 403
Код ниже
Сразу появляется вопрос
- может ли сервер определить, кто запрашивает данные, его страница или кто другой
Public Sub OpenSIte()
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", "http://www.petrolesport.ru/services_info.php", False
http.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
http.send
response = http.responsetext
possid = InStr(1, response, "sid = '") + 7
sid = Mid(response, possid, 32)
posbid = InStr(1, response, "bid = '") + 7
bid = Mid(response, posbid, 32)
http.Open "GET", "http://www.petrolesport.ru/GetContInfo.php?q=EMCU1216305&sid=" + sid + "&bid=" + bid, False
http.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
http.send
If http.Status = 403 Then MsgBox ("Error")
Set http = Nothing
End Sub |
