Способы как узнать ТИЦ сайта:
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