-------------------------------------------
Youtube Dan Indirme Adresini çekmek 
-------------------------------------------
aşağıdaki kodla youtube üzerindeki herhangi bir videonun indirme adresinizi bulmanızı sağlar bu kodu r10 dan bir arkadaştan almıştım ama adını unuttum kusura bakmasın
aşağıdaki kodu indir.asp olarak kaydedin ve indirmek istediğiniz youtube videosunuz adresini mesela
youtube.com/watch?v=1-Oi-N9e-1g
adres bu olsun
siteadresi.com/indir.asp?link=http://www.youtube.com/watch?v=1-Oi-N9e-1g
şeklinde verirseniz size indirme adresini verir
örnek:
http://www.0dx.net/indir.asp?link=ht...?v=1-Oi-N9e-1g <%
'
'
'maniakcoder
'
'
link = Request.QueryString("link")
'XMLHTTP Open
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = link
bilgi = GETHTTP(URL)
'video linki
sayi1 = InStr(1, bilgi, "/player2.swf?video_id")
sayi2 = InStr(sayi1 + 1, bilgi, "movie_player")
sayi3 = sayi2 - sayi1
aaa = Mid(bilgi,sayi1+21,sayi3 - 25)
tamlink= "http://youtube.com/get_video?video_id" & aaa
response.write "video indirme linki : <b><a style=""text-decoration: none"" href="""&tamlink&""">" &tamlink& "</a></b><br><br> "
response.write "<b>WWW.0DX.NET - KOMiK ViDEO ARSiVi - WWW.0DX.NET</b><br><br> "
response.write "Videoyu kaydederken uzantısını <b>.flv</b> olarak vermeyi unutmayınız."
%>