Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: k0ws en 21 Mayo 2011, 16:50 pm



Título: [Duda] Postear en twitter desde VB6
Publicado por: k0ws en 21 Mayo 2011, 16:50 pm
Buenas,sé que ya hay otros hilos con esta duda,los he buscado sin respuesta,incluso he buscado el twitter stealer de F3B14N,pero el link esta caido,he buscado los metodos post y get,pero sigo sin enterarme.

Alguien tiene una orientacion de como se podria lograr postear en twitter desde VB6.

-Saludos-


Título: Re: [Duda] Postear en twitter desde VB6
Publicado por: raul338 en 21 Mayo 2011, 18:12 pm
O usas oauth (que es un sistema de autenticacion de twitter creo) o haces como Leandro Ascierto (http://www.leandroascierto.com.ar/categoria/Aplicaciones/articulo/Facebook_Photo_Uploader.php) que hizo todo por wininet con SSL (manera casera y funciona hasta que cambien el funcionamiento de la pagina)


Título: Re: [Duda] Postear en twitter desde VB6
Publicado por: Psyke1 en 21 Mayo 2011, 23:10 pm
Exacto, no te va ha ser fácil.  :silbar:
Ahora debes registrar tu aplicación en http://dev.twitter.com/ , documentarte bien con el API y usar OAuth.
O otra manera horrorosamente fea/lenta es usar un WebBrowser... :-\
Si usaras VB.net creo que hay una librería hecha... :silbar:

DoEvents! :P


Título: Re: [Duda] Postear en twitter desde VB6
Publicado por: k0ws en 21 Mayo 2011, 23:41 pm
Gracias,voy a documentarme  ;-).

-Saludos-


Título: Re: [Duda] Postear en twitter desde VB6
Publicado por: yalosabes en 24 Mayo 2011, 00:35 am
Yo uso esto :

ahmm aclaro que wb2 es un Control WebBrowser
Código
  1. If wb2.LocationURL = "https://mobile.twitter.com/session/new" Then
  2. Me.wb2.Document.All("username").Value = tu correo
  3. Me.wb2.Document.All("password").Value =  tucontraseña
  4. Dim HTML
  5. Dim HTMLI
  6.  
  7. Set HTML = wb2.Document
  8. For Each HTMLI In HTML.getElementsByTagName("button")
  9.     If HTMLI.Type = "submit" Then
  10.  
  11.       HTMLI.Click
  12.       Exit Sub
  13.     End If
  14.   Next
  15.  
  16. End If
  17.