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 |