Web Wiz - Solar Powered Eco Web Hosting

  New Posts New Posts RSS Feed - MOD:Watch youtube video,see pictures,download them
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

MOD:Watch youtube video,see pictures,download them

 Post Reply Post Reply
Author
edizz View Drop Down
Groupie
Groupie


Joined: 26 February 2006
Location: Turkey
Status: Offline
Points: 44
Post Options Post Options   Thanks (0) Thanks(0)   Quote edizz Quote  Post ReplyReply Direct Link To This Post Topic: MOD:Watch youtube video,see pictures,download them
    Posted: 30 October 2007 at 1:15pm

Watch youtube videos,see their pictures and download them

İf you use web wiz forums 8.x you can read my youtube video for 8.x topic

For 9.x

1-you must edit functions/functions_format_post.asp

before %> add this code


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

 

2-you must edit forums_posts.asp

Delete this line


If InStr(1, strMessage, "[TUBE]", 1) > 0 AND InStr(1, strMessage, "[/TUBE]", 1) > 0 Then strMessage = formatYouTube(strMessage)

 

and add this code there


if inStr(1,strMessage,"[TUBE]",1)>0 and inStr(1,strMessage,"[/TUBE]",1)>0 then strMessage=youtube(strMessage)

 

Back to Top
Scotty32 View Drop Down
Moderator Group
Moderator Group


Joined: 30 November 2002
Location: Manchester, UK
Status: Offline
Points: 1682
Post Options Post Options   Thanks (0) Thanks(0)   Quote Scotty32 Quote  Post ReplyReply Direct Link To This Post Posted: 30 October 2007 at 10:04pm
umm Web Wiz Forum V9 actually comes WITH a youtube tag (click BBCodes below)
S2H.co.uk - WebWiz Mods and Skins

For support on my mods + skins, please use my forum.
Back to Top
edizz View Drop Down
Groupie
Groupie


Joined: 26 February 2006
Location: Turkey
Status: Offline
Points: 44
Post Options Post Options   Thanks (0) Thanks(0)   Quote edizz Quote  Post ReplyReply Direct Link To This Post Posted: 04 February 2008 at 10:13am
but this shows 3 picture under the video and includes download link
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.


Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Policy

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2024 Web Wiz Ltd. All rights reserved.