[Resolvido] Atualização de Status no Twitter

[xanburzum 169]

Postar uma mensagem para sua conta no Twitter com este código XMLHTTP snippit.

 

Response.Buffer = True
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

twitter_username = "username" 'seu sername
twitter_password = "password" 'sua senha

new_status = "visit strangework.com!" 'mudança para o novo Status 

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

Response.Write xml.responseText 
'resposta view Twitter’s
Set xml = Nothing