Facebook Video Sorunu Çözüm 2012 (ASP)

Daha önce bu sorunun nasıl çözüleceğini yazmıştım. Bir kaç hata oluşmuş, insanlar yorumlarda yeni problemlerden bahsetmişler.

Bazı videolar, özel veya sadece arkadaşlar olarak seçildiğinde bu videolara ulaşamıyoruz. Yükleyen kişinin facebook bilgileri gerekiyor. Bu nedenle herkese açık olan videolarda çalışmaktadır aşağıdaki kodlar;

Function cozumle(ByVal strEntry)
strEntry = Replace(strEntry, "\u00253A", ":")
strEntry = Replace(strEntry, "\u00252F", "/")
strEntry = Replace(strEntry, "\u00253F", "?")
strEntry = Replace(strEntry, "\u00253D", "=")
strEntry = Replace(strEntry, "\u002526", "&")
cozumle = strEntry
End Function

Function calistir(gelenurl)
alinbunudisari = split(gelenurl,"/")
kactanevar = ubound(alinbunudisari)
videoid = split(alinbunudisari(kactanevar),"_")
videoadres = "http://www.facebook.com/ajax/
flash/expand_inline.php?target_div=u879823_18&__a=1&v="& videoid(0)
Set XMLHTTP = server.CreateObject("MSXML2.ServerXMLHTTP")
XMLHTTP.Open "GET", videoadres, False
XMLHTTP.Send
strHTML = XMLHTTP.ResponseText
Set XMLHTTP = Nothing
sorunvarmi=Ubound(Split(strHTML,"Privacy Check Failed"))
' VİDEO HERKESE AÇIK MI KONTROL EDİYORUZ
if not sorunvarmi>0 then
kodbasi = """video_src"","""
kodsonu = """]"
kategori = split(strHTML,""&kodbasi&"
bitis = split(kategori(1),""&kodsonu&"")
metin= cozumle(bitis(0))
response.write metin
end if
End Function
ŞİMDİ Bİ VİDEO İLE KONTROLÜMÜZÜ YAPALIM
response.write calistir("http://video.ak.fbcdn.net/cfs-ak-ash2
/32947/796/106986696014839_7794.mp4")


3 Responses (Add Your Comment)

  1. Arkadaş eline sağlık.Kodları dosya olarak paylaşman mümkün mü?

  2. hocam ben birşey anlamadım linux sunucusu kullanıyorum kullanabilirmiyim bunu asp diyor fln bu kodları mysql ye mi giriyoruz

  3. Ben php kullanıyorum 😀

Leave a Reply

Formatting: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Other Entries

Kategoriler