Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Смена адреса парсера
 
ДД! Имеется парсер на excel. Нужно изменить адрес сайт парсинга. Искал по всему коду, так и не нашел. Где же он меняется?
 
crypto_boss, если уж Вы, видя код, не смогли его найти, то мы, не видя кода — тем более не сможем. Намёк ясен? ;)
 
ДД! А он там есть? Может у вас через получение внешних данных сделано?
Никаких врагов, зато и никаких друзей.
 
Цитата
Alemox написал:
Может у вас через получение внешних данных сделано?
Посмотрел, подключений нет
Цитата
StoTisteg написал:
Намёк ясен?
Код
Option Explicit

' Çàïèñü html-êîäà âåá-ñòðàíèöû â ïàðàìåòð "response".
' Èñïîëüçóåòñÿ ñïåöèàëüíûé çàãîëîâîê äëÿ ðàáîòû ñ ñàéòîì "myscore.ru".

Function Main(URL As String, response As String, Optional cookie As String = "") As Boolean

    Dim WinHttpReq As Object, i As Long
    
    
    '1. Çàïèñü html-êîäà âåá-ñòðàíèöû â îáúåêò "WinHttpRequest".
        ' Ïÿòü ïîïûòîê. Ò.ê. èíîãäà îáúåêò "WinHttpRequest" íå ñðàáàòûâàåò.
    For i = 1 To 5
    
        '1) Ñîçäàíèå îáúåêòà "WinHttpRequest".
            ' Ñ ïîìîùüþ ýòîãî îáúåêòà ìîæíî ïîëó÷èòü html-êîä âåá-ñòðàíèöû.
        Set WinHttpReq = CreateObject(Class:="WinHttp.WinHttpRequest.5.1")
        
        '2) Çàïèñü ñòðîêè çàïðîñà â îáúåêò "WinHttpRequest".
        WinHttpReq.Open "GET", URL, False
        
        '3) Ñîçäàíèå çàãîëîâêîâ çàïðîñà.
            ' ×òî îçíà÷àåò "SW9D1eZo", ÿ íå çíàþ. ß òàê ïîíÿë, ÷òî ýòî ïîñòîÿííûå äàííûå.
        WinHttpReq.setRequestHeader "X-Fsign", "SW9D1eZo"
        
        '4) Çàïèñü êóêîâ. Ïóñòûå êóêè âûçûâàþò run-îøèáêó.
        If cookie <> "" Then
            WinHttpReq.setRequestHeader "Cookie", cookie
        End If

        '5) Çàïèñü html-êîäà âåá-ñòðàíèöû â îáúåêò "WinHttpRequest".
        On Error Resume Next
            WinHttpReq.Send
            If Err.Number = 0 Then
                On Error GoTo 0
                Exit For
            End If
        On Error GoTo 0
        
    Next i
    
    If i > 5 Then
        Application.ScreenUpdating = True
        MsgBox "Âîçíèêëè ïðîáëåìû, êîòîðûå ìîãóò áûòü âûçâàíû ýòèìè ïðè÷èíàìè:" & vbCr & _
            "1) íåò èíòåðíåòà;" & vbCr & _
            "2) óêàçàí íåñóùåñòâóþùèé àäðåñ (URL) âåá-ñòðàíèöû;" & vbCr & _
            "3) ñåðâåð (óäàë¸ííûé êîìïüþòåð) íå ìîæåò îòîáðàçèòü ñòðàíèöó (îøèáêà 5##).", vbExclamation
        Exit Function
    End If
    
    '2. Êîïèðîâàíèå hmtl-êîäà âåá-ñòðàíèöû â ïàðàìåòð "response".
    response = WinHttpReq.ResponseText
    
    '3.
    Main = True
     
End Function
Изменено: crypto_boss - 4 Июн 2018 11:42:20
 
поиском по всему коду
ищем myscore.ru
меняем на другое

PS: думаете, перенастройка парсера выполняется только заменой адреса сайта?
если бы всё так просто было :)
 
Игорь, получаемый функцией параметр URL As String тоже как бы намекает там...
 
Цитата
Игорь написал:
поиском по всему кодуищем myscore.ruменяем на другое
Дело в том что, сайт не myscore.ru, а myscore.ru/basketball
А в поиске данного сайта нет
 
crypto_boss, копируйте код при русской раскладке клавиатуры - не будет проблем с кириллицей. Посмотрите свой #4...
Страницы: 1
Читают тему (гостей: 1)