Global $sURL, $vRet, $vName, $iError
$sURL = InputBox(Chr(0), "Введите ссылку на канал/видео:", Default, Default, 400, 100)
If @error Then Exit
SplashTextOn(Null, "Подождите...", 140, 40, Default, Default, 33)
If Not StringInStr($sURL, "https://") Then $sURL = "https://" & $sURL
If Not StringInStr($sURL, "/channel/") Then
$vRet = StringRegExp(BinaryToString(InetRead($sURL, 17), 4), '<meta.*?itemprop="channelId".*?content="(.*?)">', 1)
If Not @error Then
$sURL = "https://www.youtube.com/channel/" & $vRet[0]
Else
SplashOff()
MsgBox(16, Null, "Не удалось получить кол-во подписчиков")
Exit
EndIf
EndIf
$vRet = BinaryToString(InetRead($sURL, 17), 4)
$vName = StringRegExp($vRet, '<meta.*?name="title".*?content="(.*?)">', 1)
If Not @error Then $vName = $vName[0]
$vRet = StringRegExp($vRet, '<span.*?class=".*?subscribed.*?title=".*?>(.*)></span>', 1)
$iError = @error
SplashOff()
If Not $iError Then
MsgBox(64, $vName, StringRegExpReplace($vRet[0], "[^0-9]", Null) & " подписчиков")
Else
MsgBox(16, Null, "Не удалось получить кол-во подписчиков")
EndIf