Modificar nuestro estado en Twitter usando ASP

Bueno, a veces queremos hacer aplicaciones en las que requerimos de utilizar servicios de otros sitios, en este caso pondre un ejemplo de como actualizar nuestro estado en Twitter utilizando su API y ASP

El codigo es corto y sencillo de entender:

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

twitter_username = "username" ‘CAMBIAR POR TU USUARIO EN TWITTER
twitter_password = "password" ‘CAMBIAR POR TU CLAVE EN TWITTER

new_status = "visita blog.creandowebs.com!" ‘CAMBIA POR EL NUEVO 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 ‘VER LA RESPUESTA DE TWITTER

Set xml = Nothing
%>

Como vez es sencillo, puedes implementarlo utilizando un FORM para enviarle la informacion al archivo con el codigo anterior

0 comentarios: