Skip navigation.
Главная страница

Узнать ТИЦ сайта

Способы как узнать ТИЦ сайта:

1. http://yandex.ru/cycounter?chajnik.ru
http://yandex.ru/cycounter?www.chajnik.ru (с www и без www могут отличаться);
2. http://search.yaca.yandex.ru/yca/cy/ch/chajnik.ru
http://search.yaca.yandex.ru/yca/cy/ch/www.chajnik.ru
3.
http://bar-navig.yandex.ru/u?ver=2&url=http://chajnik.ru&show=1


http://bar-navig.yandex.ru/u?ver=2&url=http://www.chajnik.ru&show=1

В первом случае ТИЦ Яндекс выдаёт в виде картинки:

Индекс цитирования.

Картинку можно сразу вставить на любой сайт.

4. C# . ТИЦ сразу для нескольких сайтов:

using System;
using System.Text.RegularExpressions;
using System.Net;

class Example
{
static void Main()
{
string[] sajt = { "http://chajnik.ru", "http://prohorov-andrej.ru", "http://searchengines.guru" };
foreach (string i in sajt){
string input=new WebClient().DownloadString("http://bar-navig.yandex.ru/u?ver=2&url="+i+"&show=1");
Console.WriteLine(i+" --- "+Regex.Match(input, @"value=""(\d+)").Groups[1].Value);
}
}
}

Исполняемый файл:
https://yadi.sk/d/YfW5eqnQ3442bE

5. VBS

Function GetHTMLText ( byval strURL )
'Set MyBrowser = CreateObject("MSXML2.XMLHTTP")
Set MyBrowser = CreateObject("MSXML2.ServerXMLHTTP.6.0")
MyBrowser.Open "GET", strURL, False
MyBrowser.send
If MyBrowser.status = 200 Then GetHTMLText = MyBrowser.responseText
Set MyBrowser = Nothing
End Function

Dim adr
adr = Array ("http://chajnik.ru", "http://prohorov-andrej.ru", "http://searchengines.guru")
Set objRegExp = CreateObject("VBScript.RegExp")

For i = 0 to 2
html = GetHTMLText ("http://bar-navig.yandex.ru/u?ver=2&url="&adr(i)&"&show=1")

objRegExp.Pattern = "value=.\d+"
Set objMatches = objRegExp.Execute(html)
Set objMatch = objMatches.Item(0)
v=objMatch.Value
v = Replace(v, "value=""", "")
uu=uu & adr(i)& " --- " & v & vbCrLf
Next

MsgBox uu

https://yadi.sk/d/hgPv8FUm37uiCq