hmm ben youtube botu yaptım
kernel nicki üyenin verdiği bu kod bir sayfanın kaynak kodunu görüntüler
Alıntı
Private Function YouTube(URL)
Const adTypeText = 2
Const adReadAll = -1
Set objYouTubeHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
Set objYouTube = Server.CreateObject("ADODB.Stream" )
objYouTubeHTTP.Open "GET" , URL, false
objYouTubeHTTP.sEnd
objYouTube.Open
objYouTube.Type = adTypeText
objYouTube.WriteText(objYouTubeHTTP.ResponseBody)
objYouTube.Position = 0
objYouTube.CharSet = "windows-1254"
YouTube = objYouTube.ReadText(adReadAll)
objYouTube.Close
Set objYouTube = Nothing
Set objYouTubeHTTP = Nothing
End Function
Sana kalan ise bu kaynağı alıp split instr mid gibi fonksiyonlarla uygun yerleri bulmak