<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP")
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function
chanel = "UC4huRAjkfX9PaFs3Az5IX0g" 'TRT1 kanal ID'si istediğiniz bir kanalın ID'si ile değiştirin
apiKey = "AIzaSyBAYENo4dDfYVAQd7HbFI_99ciSwzLF-rw" 'Google'dan aldığınız API kimliği
strVeri = VeriAL("https://www.googleapis.com/youtube/v3/channels?part=contentDetails&id="& chanel &"&key="& apiKey)
chid = split(strVeri, """")
videoAdres = VeriAL("https://www.googleapis.com/youtube/v3/search?part=snippet&channelId="& chid(31) &"&eventType=live&type=video&key="& apiKey)
vid = split(videoAdres, """")
if UBound(vid) > 22 then
VideoAdres = vid(41)
else
' Bu kısımda yayın yoksa gösterilecek olan video kodları eklenebilir, veritabanından rastgele çekilebilir, elle istenilen video ayarlanabilir
VideoAdres = "4yXJBAhn0Q4"
end if
'adres sonundaki ?autoplay=1 otomatik başlaması için istemiyorsanız kaldırın
Response.Write ""
%>
