Перейти к содержимому
BRCBET - Ставки и Полезные Ресурсы

sega757

Пользователь
  • Публикации

    17
  • Зарегистрирован

  • Посещение

Репутация

16 Нейтральная

О sega757

  • Звание
    Старт
  • День рождения 14.05.1987

Посетители профиля

108 просмотров профиля
  1. Сори что то скрин получается меленький не видно) там в настройках стоит загрузить с myscore ру. Спасибо попробую впн
  2. Sub getOdds(id As String) Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "https://d.soccer24.com/x/feed/d_od_" & id & "_en_2_eu", False http.setRequestHeader "X-Fsign", "SW9D1eZo" http.Send fs_input = http.ResponseText Set objRegExp = CreateObject("VBScript.RegExp") '1X2 ''.....bookmaker(.*?)*(.*?)odds-wrap.... (вместо второй звездочки можно указать нужного БК, например, bet365 objRegExp.Pattern = "block-1x2-ft(.*?)bookmaker(.*?)*(.*?)odds-wrap(.*?)alt=" & Chr(34) & "(.*?):" & Chr(34) & ">(.*?)<\/span>(.*?)odds-wrap(.*?)alt=" & Chr(34) & "(.*?):" & Chr(34) & ">(.*?)<\/span>(.*?)odds-wrap(.*?)alt=" & Chr(34) & "(.*?):" & Chr(34) & ">(.*?)<\/span>" If objRegExp.test(fs_input) = True Then Set objMatches = objRegExp.Execute(fs_input) objRegExp.Pattern = "(.*)\[(.*)\](.*)" If objRegExp.test(objMatches.Item(0).submatches(4)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(4)) Sheets("Коэффициенты").Range("A2").Value = "П1" Sheets("Коэффициенты").Range("B2").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C2").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A2").Value = "П1" Sheets("Коэффициенты").Range("B2").Value = objMatches.Item(0).submatches(5) Sheets("Коэффициенты").Range("C2").Value = objMatches.Item(0).submatches(5) End If If objRegExp.test(objMatches.Item(0).submatches(8)) = True Then Set objMatches2 = objRegExp.Execute(objMatches.Item(0).submatches(8)) Sheets("Коэффициенты").Range("A3").Value = "X" Sheets("Коэффициенты").Range("B3").Value = objMatches2.Item(0).submatches(0) Sheets("Коэффициенты").Range("C3").Value = objMatches2.Item(0).submatches(2) Else Sheets("Коэффициенты").Range("A3").Value = "X"
  3. Всем привет, может кто подскажет в чем ошибка ? Нажимаю загрузить и Загрузка очных ок Загрузка домашних ок Загрузка гостевых Microsoft Visual Basic Run-time error "-2146697211(800c0005)" Не удается найти указанный ресурс.
  4. sega757

    ASSISTANT OPREDELITEL

    19.02.2019 - БАСКЕТБОЛ https://cloud.mail.ru/public/NBdB/Yt7USNYN4 19.02.2019 - ФУТБОЛ https://cloud.mail.ru/public/HwwD/Yr9KCpU9v 19.02.2019 - ХОККЕЙ https://cloud.mail.ru/public/92hg/ZCgK9FS69 20.02.2019 - БАСКЕТБОЛ https://cloud.mail.ru/public/DaLX/idUu35Cw2 20.02.2019 - ФУТБОЛ https://cloud.mail.ru/public/D1pW/LGgzG6Efx 20.02.2019 - ХОККЕЙ https://cloud.mail.ru/public/FbbT/iqAdsUd9f
  5. sega757

    ASSISTANT OPREDELITEL

    16.02.2019 - БАСКЕТБОЛ https://cloud.mail.ru/public/JJiu/eTGQubJdV 16.02.2019 - ФУТБОЛ https://cloud.mail.ru/public/7o1e/A7Ymkiu9Q 16.02.2019 - ХОККЕЙ https://cloud.mail.ru/public/7avA/H8Y4iAo37
  6. sega757

    ASSISTANT OPREDELITEL

    14.02.2019 - ФУТБОЛ https://cloud.mail.ru/public/L3XV/rx6mMucap 14.02.2019 - ХОККЕЙ https://cloud.mail.ru/public/Kknv/zV3VQgLzn 14.02.2019 - БАСКЕТБОЛ https://cloud.mail.ru/public/4YXD/QMa9soFtU
  7. sega757

    ASSISTANT OPREDELITEL

    БАСКЕТБОЛ 13.02.2019 https://cloud.mail.ru/public/71sU/aSXMztGDD На сегодня уже нет смысла выкладывать там пару матчей
  8. sega757

    ASSISTANT OPREDELITEL

    Сегодня ФУТБОЛ https://cloud.mail.ru/public/2qUW/w957854CW ХОККЕЙ https://cloud.mail.ru/public/B6j1/4SubVTumN
  9. sega757

    ASSISTANT OPREDELITEL

    Вчера не было времени добраться до пк если на сегодня еще надо могу выложить ФУТБОЛ 13.02.2019 https://cloud.mail.ru/public/5hm2/RDsfAaSFb ХОККЕЙ 13.02.2019 https://cloud.mail.ru/public/C8ZU/kzygyjm2o Если надо надо на Баскетбол пишите выложу
  10. sega757

    ASSISTANT OPREDELITEL

    Футбол 11.02.19 https://cloud.mail.ru/public/Gf8j/AkdDeWXJP Хоккей 11.02.19 https://cloud.mail.ru/public/12ST/QRi5o4HhZ
  11. sega757

    ASSISTANT OPREDELITEL

    09.02.2019 - ХОККЕЙ https://cloud.mail.ru/public/E7gd/cnYL3DTAw
  12. sega757

    ASSISTANT OPREDELITEL

    09.02.2019 - ФУТБОЛ https://cloud.mail.ru/public/7UnB/nJWTZ4nPT
  13. sega757

    ASSISTANT OPREDELITEL

    Всем привет! как успехи ? на завтра выкладывать?
  14. sega757

    ASSISTANT OPREDELITEL

    Если кому интересно Хоккей на завтра https://cloud.mail.ru/public/HJ1d/KrRBKFL3t
×
×
  • Создать...