Buscar no youtube vídeos

[-_KIKO_- 0]

Nunca ajudei na comunidade, então vamos la :)

 

Código abaixo busca videos no youtube, ta meio EMPORCALHADO o código, mas funciona.

Usa o componente ASPHTTP, só procurar por ai que acha...se não me engano é free!

 

CODE

<form id="form1" name="form1" method="get" action="buscar_youtube.asp">

<label>

<input type="valor" name="valor" id="valor" />

</label>

<label>

<input type="submit" name="button" id="button" value="Procurar" />

</label>

</form>

<%

if request.querystring("valor") <> "" then

 

 

function videosyoutube(busca)

'//Componente a ser usado ASPHTTP

busca = replace(busca," ","+")

Set HttpObj = Server.CreateObject("AspHTTP.Conn")

HTTPObj.Url = "http://www.youtube.com/results?search_query="& busca & "&search_type=&aq=f"

site = HTTPObj.GetURL

 

'/// Início do Get

total_chars = len(site)

ate_sz = instr(site, "<!-- start search results -->") -1

ate_cmp = instr(site, "<!-- end search results -->") -1

inicio_cantor = left(site,ate_sz)

final_cantor = right(site,total_chars-ate_cmp)

var_videos = replace(site,inicio_cantor,"")

var_videos = replace(var_videos,final_cantor,"")

var_videos = replace(var_videos,chr(34),"'")

var_videos = replace(var_videos,"<table width='100%'>","")

var_videos = replace(var_videos,"<tr valign='top'><td>","")

var_videos = replace(var_videos,"<div class='vlcell' style='width:24.9%'>","")

var_videos = replace(var_videos,"<div class='vlentry' >","")

var_videos = replace(var_videos,"<div class='vlcontainer'><div class='v120WideEntry'><div class='v120WrapperOuter'><div class='v120WrapperInner'>","")

var_videos = replace(var_videos,"</div>","")

var_videos = replace(var_videos,"<div class='vldescbox'>","")

var_videos = replace(var_videos,"<div class='vltitle'>","")

var_videos = replace(var_videos,"<div class='vlshortTitle'>","")

var_videos = replace(var_videos,"<div class='vllongTitle'>","")

var_videos = replace(var_videos,"<div class='vldesc'>","")

videosyoutube = "<table width=" & chr(34) & "100%" & chr(34) & " border="& chr(34) & "0"& chr(34) & " cellspacing="& chr(34)& "1"& chr(34)&" cellpadding="& chr(34) & "0"& chr(34) & "><tr>"

sply_videos = split(var_videos,"<")

y = 1

for x = lbound(sply_videos) to ubound(sply_videos)

if instr(sply_videos(x),"href") <> 0 and instr(sply_videos(x),"watch") <> 0 and instr(sply_videos(x),"title") <> 0 then

if sply_videos(x) <> sply_videos(last_x) then

var_sply = split(sply_videos(x),"'")

if y <= 12 then

for z = lbound(var_sply) to ubound(var_sply)

if z = 1 then

codigo_video = replace(var_sply(z),"/watch?v=","")

end if

if z = 3 then

titulo_video = var_sply(z)

end if

next

if p = 2 then

tr = "</tr><tr>"

p = 2

else

tr = ""

end if

videosyoutube = videosyoutube & "<td><center><object width=" & chr(34) & "300"& chr(34) & " height="& chr(34) & "250"& chr(34) & "><param name="& chr(34) & "movie"& chr(34) & " value=" & chr(34) & "http://www.youtube.com/watch?v=" & codigo_video &" ' </param><param name="& chr(34) & "movie"& chr(34) & " value="& chr(34) & "http://www.youtube.com/watch?v="& codigo_video & "" & chr(34) & "></param><param name="& chr(34) & "movie"& chr(34) & " value="& chr(34) & "http://www.youtube.com/watch?v=" & codigo_video & ""& chr(34) & "></param><param name="& chr(34) & "wmode"& chr(34) & " value=" & chr(34) & "transparent"& chr(34) & "></param><embed src="& chr(34) & "http://www.youtube.com/watch?v="& codigo_video & chr(34) & " \ width="& chr(34) & "200"& chr(34) & " height="& chr(34) & "175"& chr(34) & " \ type="& chr(34) & "application/x-shockwave-flash"& chr(34) &" wmode="& chr(34) & "transparent"& chr(34) & " \ pluginspage="& chr(34) &"http://www.macromedia.com/go/getflashplayer"& chr(34) & "></embed> </object><br />"& titulo_video & "</center></td>" & tr

 

end if

p = p + 1

end if

last_x = x

y = y + 1

 

end if

next

videosyoutube = videosyoutube & "</table>"

response.write videosyoutube

end function

 

call videosyoutube(request.querystring("valor"))

end if

 

%>

 

 

 

só dar CTRL+C, CTRL+V , instalar o componente e rodar...

pronto funciona!

 

;)

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Mário Monteiro 179]

Parabens pelo topico

 

Será util para quem procura por este tipo de solução

[Ted k' 126]

está show mesmo, parabéns, gostei!!