Atualizar status do Twitter usando PHP ou ASP

Hoje iremos aprender um negócio super legal, veremos como você pode criar um sistemas PHP ou ASP para postar no Twitter, vejam como é simples


ASP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
        <      
        'foi preciso acrescentar esses dois comandos abaixo e salvar a página com sistema utf-8, após isso funcionou perfeito.
        response.Charset = "utf-8"
        response.ContentType = "text/html"


Response.Buffer = True

Dim twitter
Set twitter = Server.CreateObject("Microsoft.XMLHTTP")

        twitter_usuario  = "usuario"    
        twitter_senha   = "senha"

        mensagem = "aqui vai o texto ç"

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

Set twitter = Nothing

Response.write "enviado com sucesso"%>

PHP

<?
#Mensagem a ser enviada
$msg = "testando o twitter pelo php - http://www.htmlstaff.org/ver.php?id=20474";

$out = "POST http://twitter.com/statuses/update.json HTTP/1.1\r\n";
$out .= "Host: twitter.com\r\n";

#Configure abaixo o seu login e senha do Twitter
$out .= "Authorization: Basic ".base64_encode ('usuario:senha')."\r\n";

$out .= "Content-type: application/x-www-form-urlencoded\r\n";
$out .= "Content-length: ".strlen ("status=$msg")."\r\n";
$out .= "Connection: Close\r\n\r\n";
$out .= "status=$msg";

$fp = fsockopen ("twitter.com", 80);
fwrite($fp, $out);
fclose($fp);
?>

Fora o envio de mensagens, você pode manipular praticamente tudo do
Twitter (desde de listagem de mensagens, amigos, mensagens favoritas
etc).

Maiores informações na API do Twitter:

http://www.twitter.com/help/api