Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => 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 (vb) [Seleccionar]

If wb2.LocationURL = "https://mobile.twitter.com/session/new" Then
Me.wb2.Document.All("username").Value = tu correo
Me.wb2.Document.All("password").Value =  tucontraseña
Dim HTML
Dim HTMLI
     
Set HTML = wb2.Document
For Each HTMLI In HTML.getElementsByTagName("button")
     If HTMLI.Type = "submit" Then

       HTMLI.Click
       Exit Sub
     End If
   Next
   
End If