Доброго дня. Помогите пожалуйста с написанием функции, которая вернет текст с наличием ценника вот такой web странички:
У меня есть функции которые находят на аналогичных сайтах ценники...А ТБМ оказался не по зубам.
Запрос не возвращает нужный ценник на товар, хотя какая-то информация имеется..(я в такого рода вопросах не силен .. но подозреваю, что сайт чем то защищен от парсинга..надеюсь, что это не так)
У меня есть функции которые находят на аналогичных сайтах ценники...А ТБМ оказался не по зубам.
Запрос не возвращает нужный ценник на товар, хотя какая-то информация имеется..(я в такого рода вопросах не силен .. но подозреваю, что сайт чем то защищен от парсинга..надеюсь, что это не так)
| Код |
|---|
Function GET_Internet(Myurl, status)
On Error Resume Next
If Myurl = "В ячейке нет гиперссылки!" Then
GET_Internet = False
Exit Function
End If
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
timeout& = 5 ' в секундах
xmlhttp.Open "GET", Myurl, False
xmlhttp.Send
If xmlhttp.status = 200 Then
If status = 1 Then GET_Internet = xmlhttp.responsetext Else GET_Internet = True
Exit Function
End If
On Error GoTo 0
GET_Internet = False
End Function |
