Доброго времени суток. Недавно писал программу которая ищет свободные домены с тИЦ и в ходе написания столкнулся с такой проблемой как склейка доменов. Собственно, склеенные домены ну нафиг мне не нужны, посему, решил написать проверку на клей в Яндексе.
Проверить домен на клей в частности и программно на Delphi в принципе не особо сложно, приведу проверку в Яндекс и Google. Для того что-бы проверить склейку в Яндекс достаточно перейти по адресу:
http://bar-navig.yandex.ru/u?ver=2&url=http://DOMEN&show=1
Где DOMEN — наш проверяемый домен. Для примера, проверим мой блог на склейку, идём сюда:
http://bar-navig.yandex.ru/u?ver=2&url=http://wooden-stool.ru&show=1
В ответ получим следующее
<urlinfo>
<url domain="wooden-stool.ru">
<![CDATA[/]]>
</url>
<yaca url="wooden-stool.ru"/>
<tcy rang="3" value="30"/>
<topics></topics>
<textinfo></textinfo>
<r1>oqtacppvmgigbsnrhehoiykrttyrv8viuocweqvhghggeivkjkhqgdwfalfrbjlkioswgnhqfttjmkhtwnrpkthngygsgoyvbbmu130fded6bb8a3e3eac592c5eeed30b54</r1>
</urlinfo>
Теперь, для того что бы понять склеен домен или нет, необходимо посмотреть на один из параметров XML ответа, а именно url где domain должен быть таким же как и проверяемый домен. Если же в domain другой домен, значит проверяемый склеен с тем что указан в этом параметре. Сейчас мы проверили мой блог на склейку, убедились что он не склеен, отлично. Для большего понимаю приведу пример где Яндекс бар явно указывает нам на то, что домен склеен, переходим по этой ссылке:
http://bar-navig.yandex.ru/u?ver=2&url=http://9o07.ru&show=1
в ответ мы получим это
<urlinfo>
<url domain="go3i.ru">
<![CDATA[/]]>
</url>
<yaca url="go3i.ru"/>
<tcy rang="2" value="10"/>
<topics></topics>
<textinfo></textinfo>
<r1>fhrxnjctlcplssxwbtlnqniomcyccxlqfdavlbwesramjbwpgjbxvkmmkmfjbucnpfyeuhterfptvcjkwwxpkgmsgxkidvyfohgh4faed1ee8777042f4f96d0d8b9e23d1d</r1></urlinfo>
и в ответе видим, что домен поменялся т.е. в 'url domain' у нас совсем другой домен, а именно 'go3i.ru' вместо проверяемого '9o07.ru'. То есть домен склеен и смысла покупать этот домен нету т.к. тИЦ отвалится. Клеят в основном люди считающие себя шипко умными, потом продают их, убирают перенаправления и покупатель остаётся не с чем, то есть смысла приобретать подобные домены нету. Ладно, проверять на склейку в Яндексе мы научились, теперь Google. Тут всё гораздо проще, идём в поисковых, вбиваем в строку поиска это 'info: domen.ru' и если в ответ SERP будет чистым, то домен не склеен. Если же будет ссылка на какой-то левый домен, значит проверяемый склеен с ним. Теперь перейдём к программной части, т.е. напишем простую утилиту которая на автомате проверяет домены на клей.
Запускаем Delphi (я юзаю 7 ветку), создаём новый проект, кидаем на форму компоненты memo (2 штуки) и button с вкладки стандарт и компонент idhttp1 с вкладки 'indy client'. В обработчик события OnClick кнопки (нажатие) пишем следующее:
var data, tyc, kley, z: string; i:integer; begin for i:=0 to memo1.lines.Count-1 do begin //Цикл, проходим по всем доменам в мемо label1.caption:='Проверено '+inttostr(i)+' из '+inttostr(memo1.lines.count-1); // можно на форму кинуть лейбл и отображать в нём информацию о том, сколько доменов уже проверено application.ProcessMessages(); // небольшой анти-клюкz:=LowerCase(memo1.lines[i]); // Переводим все символы в домене в нижний регистр, в противном случае программа может быть обманута //Получаем необходимые нам даннные от бара в XML формате (простой GET запрос) data:=idhttp1.Get('http://bar-navig.yandex.ru/u?ver=2&show=32&url=http://'+z); //В переменную tyc помещаем тИЦ проверяемого домена tyc:=copy(data,pos('value',data)+7,posex('"/>',data,pos('value',data))-pos('value',data)-7); if strtoint(tyc) < 10 then Если тИЦ проверяемого домена меньше 10 то... continue; // ...то в топку его, переходим к следующему домену из memo //в kley помещаем домен kley:=copy(data,pos('domain',data)+8,posex('">',data,pos('domain',data))-pos('domain',data)-8); if not (z = kley) then // если проверяемый домен и домен в 'url domen' разные то, домен склеен z:=z+' [ Клей c '+kley+' ]'; memo2.lines.add(z); end; end;
Пример я прокомментировал, но если в двух словах то, тут мы берём домены из текстового поля, получаем данные от бара по текущему домену из мемо, получаем тиц, если тиц меньше 10 то переходим к следующему домену из мемо, если нет то проверяем на склейку. То есть я немного проапгрейдил пример (добавил определение тиц и проверку, если меньше 10 то в топку его), но вы без проблем можете поменять его и получить только то что вам необходимо. В конечном итоге, во втором текстовом поле мы получаем все домены с положительным тИЦ + если домен склеен то выводим рядом с ним надпись 'Клей c {тут домен}'. Вы так же можете проверить на клей онлайн
К слову говоря, если вашего новорождённого преследует икота, ты вы можете узнать про причины возникновения и способы как избавиться от икоты у новорожденных, ведь продолжительность икоты может свидетельствовать о воспалении лёгких, а с этим необходимо бороться. Подробнее про икоту у новорожденных можно узнать на сайте malutka.net по ссылке выше. На этом у меня всё, удачи.
Ответов - 2 to “Программная проверка домена на клей и тиц на Delphi (Яндекс)”
Здорово, еще как идея проверить кто ссылается на сайт конкурентов
[...] домены, фильтр настраиваем так — тиц от 10 и убираем клеенные домены. [...]