|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Получить заголовок страницы в Интернете |
|
[решено] Получить заголовок страницы в Интернете
|
Пользователь Сообщения: 68 |
Профиль | Отправить PM | Цитировать
Привет. Такая задача.
Надо получить заголовок страницы, которая расположена на удалённом сервере. Т.е., надо получить текст между тэгами <TITLE>. С помощью каких встроенных функций можно такое сделать? |
|
Отправлено: 12:41, 04-04-2017 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Паразит, не интересовался. Видимо получать номер версии IE, сравнивать и добавлять по нужде сайт в списки: Programmatically add a site to Compatibility View list.
|
Отправлено: 16:50, 04-04-2017 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 38
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
|
Отправлено: 18:46, 04-04-2017 | #12 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Mike909, ясно.
|
Отправлено: 19:11, 04-04-2017 | #13 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать |
------- Отправлено: 00:42, 05-04-2017 | #14 |
Пользователь Сообщения: 68
|
Профиль | Отправить PM | Цитировать Creat0R, это то, что мне нужно. Просто и со вкусом. Но.
1. Не работает с защищённым соединением (HTTPS). 2. Если страница UTF-8, то выводятся кракозябры. Я думаю, что второе это ерунда (легко поправимо), а вот с первым - я думаю, что не ерунда. |
Отправлено: 05:19, 05-04-2017 | #15 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Паразит:
Цитата Паразит:
|
||
Отправлено: 09:17, 05-04-2017 | #16 |
Пользователь Сообщения: 68
|
Профиль | Отправить PM | Цитировать |
Отправлено: 09:50, 05-04-2017 | #17 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Паразит, протокол желательно указывать. Ведь схема является составной и обязательной частью URI.
|
Отправлено: 09:57, 05-04-2017 | #18 |
Must AutoIt Сообщения: 3054
|
Профиль | Сайт | Отправить PM | Цитировать $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 |
------- Отправлено: 12:56, 05-04-2017 | #19 |
Пользователь Сообщения: 68
|
Профиль | Отправить PM | Цитировать Creat0R, великолепно, спасибо. Работает так, как надо.
|
Отправлено: 13:11, 05-04-2017 | #20 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Заголовок сообщения: | I7adonok | Металлолом | 3 | 06-06-2013 05:17 | |
php способы получить данные со страницы в инете | enikei | Вебмастеру | 2 | 13-10-2010 04:54 | |
[решено] Как получить только исхоный код страницы по HTTP (без картинок и тд - только текст)? | evg64 | AutoIt | 3 | 10-01-2010 01:17 | |
Интернет - Internet Explorer 6.0 sp2. Как указать печать адреса страницы при печати страницы. | GifuN | Microsoft Windows 2000/XP | 1 | 11-11-2008 08:29 |
|