Adrelar (Все сообщения пользователя)

Копирование теста с сайта

Пользователь

Сообщений: 5 Регистрация: 17.10.2017

15.11.2017 20:07:19

Цитата

Еще пару строк кода.
Этот сайт,как и все его аналоги,старается защитить инфу.
Текст для дальнейшей обработки скриптов можно получить так.
Если поиграться,можно его дешифровать,ничего сложного нет.

Код

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17	Function HTTPRequest() As String Dim XMLHTTP On Error Resume Next Set XMLHTTP = CreateObject("Microsoft.XMLHTTP") XMLHTTP.Open "GET", "http://d.livescore.in/ru/x/feed/f_1_0_2_ru_4", "False" XMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo" XMLHTTP.setRequestHeader "X-Requested-With", "XMLHttpRequest" XMLHTTP.setRequestHeader "Referer", "http://d.livescore.in/ru/x/feed/proxy" XMLHTTP.setRequestHeader "Accept", "/" XMLHTTP.setRequestHeader "user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)" XMLHTTP.setRequestHeader "Accept-Language", "*" XMLHTTP.send If XMLHTTP.Status = 200 Then HTTPRequest = XMLHTTP.responseText End If Set XMLHTTP = Nothing End Function

А как это же реализовать с хоккейными матчами, касательно myscore? Как узнать нужные директории в адресной строке? Я пытался прописывать http://d.myscore.ru/hockey/x/feed/f_1_0_2_ru_4 , но ничего не выдаёт вообще. Может XMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo" другой. Есть предположение, что это ключ. Но нет уверенности, далёк я от мастерства. Дайте пинок, куда копать?

Перейти

Найти ошибкy в коде VBA на расшифровкy зашифрованного текста с помощью Xor

Adrelar Пользователь Сообщений: 5 Регистрация: 17.10.2017	# 09.11.2017 19:31:05 Спасибо, разобрался
	Перейти

Найти ошибкy в коде VBA на расшифровкy зашифрованного текста с помощью Xor

Adrelar

Пользователь

Сообщений: 5 Регистрация: 17.10.2017

08.11.2017 21:28:13

Код

Sub test()
Dim a, b, c, d As String
c = "977484691753649015648892966987691643279490771591486987671887"
b = "Rrfvtgbyhnujm"
a = ""
lentext = Len(c)
lenpass = Len(b)
For cn = 1 To lentext Step 3
a = a + Chr(Val(Mid(c, cn, 3)) Xor Asc(Mid(b, (Int(cn / 3) Mod lenpass) + 1, 1)))
Next cn
MsgBox a
End Sub

Код выше, который выдает синтаксическyю ошибкy, использyю Эксель 2010. Мозги yже вытекают через yши. Помогите. Проблемная строка под номером 9,

Изменено: Adrelar - 08.11.2017 21:31:51

Перейти

втоматизация подсчета выигрышей в тyрнирной таблице по хоккею

Adrelar

Пользователь

Сообщений: 5 Регистрация: 17.10.2017

17.10.2017 21:18:08

Цитата
MOTO написал: =ЕСЛИ(R4="";"";СУММПРОИЗВ(--($D$1:$D$5000=R4)(ЛЕВСИМВ($E$1:$E$5000;2)>ПРАВСИМВ($G$1:$G$5000;2))+($H$1:$H$5000=R4)(ЛЕВСИМВ($E$1:$E$5000;2)<ПРАВСИМВ($G$1:$G$5000;2)))) Смотри файл в архиве (более 100кб)

Спасибо большое!

Перейти

втоматизация подсчета выигрышей в тyрнирной таблице по хоккею

Adrelar

Пользователь

Сообщений: 5 Регистрация: 17.10.2017

17.10.2017 12:10:34

Привет всем. Имею в наличии excel 2016. Пытаюсь второй день автоматизировать подсчет выигрышей в сводную таблицу по календарю и застрял. Не могу составить нужную формулу, искал по планете, нашёл одно решение, но оно не выдает нужного числа, красуется ноль. Поможите? Ссылка на таблицу:
https://vk.com/doc77677207_452211301?hash=a098d5f535a10ef127&dl=1b5c5633799d0ee75b

Изменено: Adrelar - 17.10.2017 14:33:11

Перейти