twittear desde Vb6

[yalosabes]

Bueno debido a problemas de mi hosting ( http://www.teensmagazine.net ) .. ya no tenia donde enviar claves datos, de mis victimas amigos.

Asi que lo mas practico que se ocurrio fue twittear, los datos obtrenido desde mi cuenta twitter (obiamente una cuenta nueva y falsa).

Mi pregunta es :

¿Existe alguna forma mas sencilla, de twittear desde Vb6? quizas en menos lineas..

Codigo:

Código (vb) [Seleccionar] Expandir


Private Sub twittear()
If wb2.LocationURL = "https://mobile.twitter.com/session/new" Then
Me.wb2.Document.All("username").Value = "AquiCorreo"
Me.wb2.Document.All("password").Value = "AquiContraseña"
Dim HTML
Dim HTMLI
Set HTML = wb2.Document
For Each HTMLI In HTML.getElementsByTagName("input")
    If HTMLI.Type = "submit" Then
      HTMLI.Click
      Exit Sub
    End If
  Next
End If

If wb2.LocationURL = "http://mobile.twitter.com/" Then
'p2.Visible = True
Me.wb2.Document.All("tweet_text").Value = id.Text & contraseña.Text  
Set HTML = wb2.Document
For Each HTMLI In HTML.getElementsByTagName("input")
    If HTMLI.Value = "Tweet" Then
      HTMLI.Click
      Exit Sub
    End If
  Next
  End If
End Sub


pd : No confien en AqpHost -.-!

[seba123neo]

busca sobre el metodo POST y sockets.