Enviar post para twitter via HTTPRequest ASP

quarta-feira, 25 março 2009 10:52 por leolima77

Usei esse script para automatizar o envio das notícias do site que trabalho direto para o twitter.

    Response.Buffer = True

    Set xml = Server.CreateObject("Microsoft.XMLHTTP")

    usuarioTwitter = "usuario" 'troque pelo seu usuario do twitter
    senhaTwitter = "senha" 'troque pela sua senha do twitter

    novoPost = "Post usando HTTPRequest ASP" 'troque pelo conteudo do seu post

    xml.Open "POST", "http://" & usuarioTwitter & ":" & senhaTwitter & "@twitter.com/statuses/update.xml?status=" & server.URLencode(novoPost), False
    xml.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
    xml.Send

    Response.Write xml.responseText 'A resposta do twitter

    Set xml = Nothing

É possivel verificar o status da requisição e validar se rolou ou não a inclusão no sistema do twitter, por exemplo, substitua a linha da resposta(xml.responseText) por este código:

    if xml.status = "200" then
          response.write("Enviado com sucesso")
    else
          response.write("Falha no envio")
    end if

Dúvidas entrem em contato

Abs

Tags:   ,
Categorias:   Dicas
Ferramentas:   E-mail | del.icio.us | digg | rec6 | linkk | Permalink