Получение конечной ссылки из сокращенной

igorit · 10 Янв 2017

Всем привет! Прошу прошения если тема дубль - поиск не работает "Система загружена...". Если такая тема уже есть - просто дайте ссылку.

Бывает что ссылки сокращают различными сервисами, на пример ссылка: goo.gl/nzMLI ведет на главную страницу http://autoit-script.ru. Если команде InetGet подставить короткую ссылку, то он ее нормально воспримет и скачает страницу http://autoit-script.ru. Но вопрос не в том что бы скачать, а в том что бы получить конечную ссылку. Как мне из goo.gl/nzMLI получить http://autoit-script.ru (для дальнейших манипуляций)? Как это сделать?

SECTOR · 18 Янв 2017

Попробуйте так

Код:

Dim $sLink = "https://goo.gl/IeZAg6"

Dim $oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1')

If @error Then
	MsgBox(0,"","Oops!")
	Exit
EndIf

$oRequest.Option(6) = False ;WinHttpRequestOption_EnableRedirects
$oRequest.Open('GET', $sLink)
$oRequest.Send()
$oRequest.WaitForResponse

Dim $sLocation = $oRequest.GetResponseHeader('Location')

MsgBox(0,"",$sLocation)

Автор темы	Похожие темы	Форум	Ответы	Дата
	Окна, Диалоги Получение всех окон различными способами не приводит к идентичному результату	Общие вопросы по AutoIt	0	2 Апр 2023
M	Криптография Получение срока действия лицензии КриптоПро CSP	Общие вопросы по AutoIt	0	28 Фев 2023
B	Формирование графика в формулу и получение точки в переменную	Общие вопросы по AutoIt	2	29 Окт 2022
	Получение информации о файле	Общие вопросы по AutoIt	4	20 Окт 2022
F	Данные, строки Получение данных с двух сайтов одновременно	Общие вопросы по AutoIt	2	14 Май 2022

Поиск

Поиск

Получение конечной ссылки из сокращенной

igorit

Новичок

SECTOR

Продвинутый