[Iska]

Паразит, не интересовался. Видимо получать номер версии IE, сравнивать и добавлять по нужде сайт в списки: Programmatically add a site to Compatibility View list.

[Mike909]

?! Какой смысл делать переход на ссылку два раза: »

Это остатки другого скрипта, здесь я просто не доглядел, когда урезал. Так то конечно не нужно.

[Iska]

Mike909, ясно.

[Creat0R]

Паразит,

Код:

$sURL = 'http://forum.oszone.net/post-2726095.html'
$sTitle = StringRegExpReplace(BinaryToString(InetRead($sURL)), '(?si).*?<title>|</title>.*', '')
;$sTitle = StringRegExp(BinaryToString(InetRead($sURL)), '<title>(.*?)</title>', 3)[0]
MsgBox(0, @ScriptName, $sTitle)

[Паразит]

Creat0R, это то, что мне нужно. Просто и со вкусом. Но.

1. Не работает с защищённым соединением (HTTPS).
2. Если страница UTF-8, то выводятся кракозябры.

Я думаю, что второе это ерунда (легко поправимо), а вот с первым - я думаю, что не ерунда.

[Iska]

1. Не работает с защищённым соединением (HTTPS). »

Пример, где не работает. На https://ya.ru/ — у меня сработало.

Я думаю, что второе это ерунда (легко поправимо) »

Это не совсем так. Хорошо, если Вы заранее знаете, в каком виде и в какой кодировке отдаётся содержимое. Но в общем случае, при произвольном взятом url, начинается жёппа.

[Паразит]

Iska, точно. Не работает, если не указан протокол.

Так работает:

Код:

http://wincmd.ru/

А так нет:

Код:

www.wincmd.ru
wincmd.ru

[Iska]

Паразит, протокол желательно указывать. Ведь схема является составной и обязательной частью URI.

[Creat0R]

Код:

$sURL = 'http://wincmd.ru'

$sHtml = BinaryToString(InetRead($sURL))
$aTitle = StringRegExp($sHtml, '<title>(.*?)</title>', 3)

If Not @error Then
    $sTitle = (_Encoding_IsUTF8Format($aTitle[0]) ? BinaryToString(StringToBinary($aTitle[0]), 4) : $aTitle[0])
    MsgBox(0, @ScriptName, $sTitle)
EndIf

Func _Encoding_IsUTF8Format($sText, $iCheckASCIICode = False)
    Local $iAsc, $iExt, $iLen = StringLen($sText), $bLess128 = True

    For $i = 1 To $iLen
        $iAsc = Asc(StringMid($sText, $i, 1))

        If $iCheckASCIICode And $iAsc > 128 Then $bLess128 = False

        If Not BitAND($iAsc, 0x80) Then
            ContinueLoop
        ElseIf Not BitXOR(BitAND($iAsc, 0xE0), 0xC0) Then
            $iExt = 1
        ElseIf Not (BitXOR(BitAND($iAsc, 0xF0), 0xE0)) Then
            $iExt = 2
        ElseIf Not BitXOR(BitAND($iAsc, 0xF8), 0xF0) Then
            $iExt = 3
        Else
            Return False
        EndIf

        If $i + $iExt > $iLen Then Return False

        For $j = $i + 1 To $i + $iExt
            $iAsc = Asc(StringMid($sText, $j, 1))
            If BitXOR(BitAND($iAsc, 0xC0), 0x80) Then Return False
        Next

        $i += $iExt
    Next

    If $iCheckASCIICode Then Return($bLess128 = False)

    Return True
EndFunc

[Паразит]

Creat0R, великолепно, спасибо. Работает так, как надо.