He estado un poco ocupado por eso no he hecho nada. Pero acá estoy de nuevo haciendo una actualización, en esta entrada voy a poner un poco del código fuente que use para poder hacer un update de mi estado.
Bueno, este extracto de codigo es básicamente lo que use, para la primera etapa, luego con algo similar a esto seguiré adelante supongo, recuerdo para los que no leyeron el post anterior, es la segunda vez que estoy usando .NET y no entiendo mucho, asi que cada cambio me lleva mucho tiempo.
La siguiente etapa constara de dos partes que tendré que ver y leer como hacerlas, y son la de poder usar la variable ”source” de la api, para poder setear el nombre del programa en cada update. Y la otra, es poder generar el primer instalador .CAB para que alguien lo pueda probar ademas de quien escribe. Hoy por hoy, no tengo ni idea de como hacerlas, asi que si alguien tiene una idea y me quiere dejar un mensaje bienvenido sea.
Ahora si el codigo
Primero que nada las variables
van en la definicion de la clase
Dim apiurl As String = “http://twitter.com/statuses/update.xml”
Dim username As String = “”
Dim pass As String = “”
Dim data As String
Dim buffer As Byte()
Dim request As HttpWebRequest
Dim resp As HttpWebResponse
Dim nStream As Stream
Dim sReader As StreamReader
Dim respString As String
Los imports
Imports System.Net
Imports System.IO
Imports System.Text
Y lo mas importante
Cuando le damos click al boton twitt this
‘tomamos el usuario y el password de los textbox’
username = usuario.Text
pass = password.Text
‘creamos las credenciales para poder acceder’
Dim credenciales = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(username + “:” + pass))’seteamos la variable data para enviar nuestro update’
data = “status=” + txtMensaje.Text.Trim
‘cargamos en buffer la matriz de bytes, para enviar por HTTP y codificada en UTF8 como quiere twitter’
buffer = Encoding.UTF8.GetBytes(data)
‘Aca cre0 un objeto webrequest que hará “hit” en la URL determinada por apiurl’
request = WebRequest.Create(apiurl)
‘Esto va porque si no, da error’
System.Net.ServicePointManager.Expect100Continue = True
request.ProtocolVersion = HttpVersion.Version10
‘ajustes estándar de la petición’
request.ContentType = “application/x-www-form-urlencoded”
request.Method = “POST”
request.ContentLength = data.Length
request.KeepAlive = False
‘Autorizacion de la cabezera’
request.Credentials = New NetworkCredential(Me.username, Me.pass)
request.Headers.Add(“Authorization”, “Basic ” + credenciales)
‘Aquí se crea el objeto de tipo Stream, asociado al requerimiento HTTP, para escribir la matriz de bytes buffer().’
nStream = request.GetRequestStream
nStream.Write(buffer, 0, buffer.Length)
nStream.Close()
‘Obtengo la respuesta, la decodifica, y la vuelca en un string’
resp = request.GetResponse
sReader = New StreamReader(resp.GetResponseStream, System.Text.Encoding.UTF8)
respString = sReader.ReadToEnd.ToString
Si anda o no anda veremos un carte, y en caso de andar muestra el xml que fue enviado en txtresponse’
If respString Is Nothing Then
MessageBox.Show(“La respuesta ha sido nula”)
Return
End If
MessageBox.Show(“El texto fue enviado correctamente”)
txtResponse.Text = respString
Comentarios