function youtube(strMessage) do while inStr(1,strMessage,"[tube]",1)>0 Dim tube_bas,tube_son,adres,kod tube_bas=inStr(1,strMessage,"[tube]",1) tube_son=instr(tube_bas,strMessage,"[/tube]",1) adres=duzenle(mid(strMessage,tube_bas+6,tube_son-tube_bas-6))
kod="<br><object width=""425"" height=""350"">" kod=kod&"<param name=""movie"" value=""http://www.youtube.com/v/sLNZ0QuNtmg""></param>" kod=kod&"<param name=""wmode"" value=""transparent""></param>" kod=kod&"<embed src=""http://www.youtube.com/v/"&adres&""" type=""application/x-shockwave-flash"" wmode=""transparent"" width=""425"" height=""350""></embed></object>" kod=kod&"<br><img height=""100"" src=""http://img.youtube.com/vi/"&adres&"/1.jpg"" width=122><img height=""100"" src=""http://img.youtube.com/vi/"&adres&"/2.jpg"" width=""122""><img height=""100"" src=""http://img.youtube.com/vi/"&adres&"/3.jpg"" width=""122""><br>" kod=kod&"<a target=""_blank"" href=""http://www.izletin.com/video_indir.asp?adres=http://www.youtube.com/watch?v="&adres&""">Download this video</a><br>"
strMessage=replace(strMessage,mid(strMessage,tube_bas,tube_son-tube_bas+7),kod) loop youtube=strMessage end function
function duzenle(adres) dim baslangic,karakter,kod baslangic=instr(adres,"=")+1 karakter=instr(baslangic,adres,"&")
if karakter>0 then kod=mid(adres,baslangic,karakter-baslangic) else kod=mid(adres,baslangic) end if duzenle=trim(kod) End Function
|