Ir para conteúdo
Fórum Script Brasil
  • 0

Classe que resgata os Dados do Usuário do Twitter


Ted k'

Pergunta

<%
class UserTwitter
private objXMLDOM
private raiz, i
public nome, screen_name, location
public profile_image_url, url
public followers_count, friends_count
public favourites_count, statuses_count
public time_zone, profile_background_color
public profile_text_color, profile_link_color
public profile_sidebar_fill_color, profile_sidebar_border_color
public profile_background_image_url

public sub LerXML()
set objXMLDOM = server.createObject("MSXML2.DOMDocument.3.0")
objXMLDOM.async = false
objXMLDOM.setProperty "ServerHTTPRequest", true
objXMLDOM.validateOnParse = false
objXMLDOM.load("http://twitter.com/users/show/"&request.queryString("username")&".xml")

set raiz = objXMLDOM.getElementsByTagName("*")

for i = 0 to raiz.length - 1
select case (raiz.item(i).nodeName)
case ("name")                             : tw.nome                             = raiz.item(i).text
case ("screen_name")                     : tw.screen_name                     = raiz.item(i).text
case ("location")                         : tw.location                         = raiz.item(i).text
case ("profile_image_url")                 : tw.profile_image_url                 = raiz.item(i).text
case ("url")                             : tw.url                             = raiz.item(i).text
case ("followers_count")                 : tw.followers_count                 = raiz.item(i).text
case ("friends_count")                     : tw.friends_count                     = raiz.item(i).text
case ("favourites_count")                 : tw.favourites_count                 = raiz.item(i).text
case ("statuses_count")                 : tw.statuses_count                 = raiz.item(i).text
case ("time_zone")                         : tw.time_zone                         = raiz.item(i).text
case ("profile_background_image_url")    : tw.profile_background_image_url    = raiz.item(i).text
case ("profile_background_color")         : tw.profile_background_color         = ucase(raiz.item(i).text)
case ("profile_text_color")                : tw.profile_text_color                = ucase(raiz.item(i).text)
case ("profile_link_color")                : tw.profile_link_color                = ucase(raiz.item(i).text)
case ("profile_sidebar_fill_color")     : tw.profile_sidebar_fill_color     = ucase(raiz.item(i).text)
case ("profile_sidebar_border_color")     : tw.profile_sidebar_border_color     = ucase(raiz.item(i).text)
end select
next
set objXMLDOM = nothing
end sub

end class

set tw = new UserTwitter
tw.LerXML()
%>

Resultado:

exemplo_api_twitter1.gif

Baixe o Arquivo completo AQUI

Editado por Ted k'
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...