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:

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 -.-!