Autoposteo en facebook usando visual basic net

Publicado el: 27 de junio de 2019
Principiante
Acerca de este proyecto
Aprenda como iniciar sesión en facebook y publicar un post de manera automática con visual basic net.
visual basic facebook webbrowser
Publicidad
DETALLES

Este proyecto surgió por la necesidad de realizar un programa que de manera automática le escribiera un mensaje de felicitación a sus amigos de facebook cuando era la fecha de sus cumpleaños. Así que hice la parte básica que es de lo que trata este proyecto: de loguearse automáticamente y al presionar un botón publicar el mensaje escrito en un cuadro de texto. 


VIDEO DE FUNCIONAMIENTO

Vamos a trabajar con visual basic net, insertamos en nuestro formulario los siguientes componentes:

  • Un control webbrowser (donde se mostrara la pagina web)
  • 4 cuadros de texto, (nombre de usuario,contraseña, nombre de usuario al que se le enviara el mensaje, mensaje a enviar).
  • 3 botones de comando (loguearse, navegar al perfil del usuario que se le enviara el mensaje, publicar)

Lo primero es cargar la url de facebook en el webbrowser al momento de iniciar el programa, por eso en el evento de carga del formulario, navegamos a la pagina principal de la red social, vamos a usar la versión móvil de esta web (https://m.facebook.com/login), ya que es mas sencillo acceder a los nombres de sus controles que es lo que necesitamos en este proyecto. (Recordemos que para poder acceder o escribir en los campos de una pagina web a través de un control webbrowser, hay que conocer los nombres o identificadores de dichos campos.)



INICIAR SESIÓN AUTOMÁTICAMENTE

webBrowser.Document.GetElementById("m_login_email").SetAttribute("value", txtUsuario.Text)

webBrowser.Document.GetElementById("pass").SetAttribute("value", txtClave.Text)

webBrowser.Document.GetElementById("login").InvokeMember("click")


Como vemos, lo que hacemos es asignarle a los cuadros de texto usuario y clave de la pagina, los valores que se escriban en los cuadros de texto de nuestro programa en VB, y luego simulamos el clic en el botón de iniciar sesión. Si los datos ingresados son los correctos de nuestra cuenta, se carga la pagina de inicio de nuestro perfil.

Previa login

PUBLICAR EN NUESTRO MURO

Si se desea realizar una publicación o post en nuestro muro, simplemente escribimos las siguientes lineas en el evento clic del boton de PUBLICAR.


 wb.Document.GetElementById("xc_message").SetAttribute("value", txtMensajeMuro.Text) 'Se asigna el mensaje escrito

 wb.Document.GetElementById("view_post").InvokeMember("click")  'Se hace clic en el botón de publicar


Lo que hace es acceder al cuadro de texto donde se escribe el mensaje, llamado xc_message y se le asigna o escribe el texto que se encuentra en el cuadro de texto txtMensajeMuro.

Enseguida se hace clic en el botón de publicar.


PUBLICAR EN EL MURO DE UN AMIGO


Para escribir un mensaje en el muro de un amigo se utilizan las mismas sentencias del paso anterior, es decir, las mismas que se usaron para publicar en nuestro muro, con la diferencia que primero debemos navegar hacia el perfil o url de el amigo al que le deseamos enviar el mensaje, para ello en la ejecución de nuestro programa, escribimos la url de facebook de dicho amigo y luego hacemos clic en el botón IR.

Previa muro amigo



Descargar aca el proyecto completo.

CODIFICACIÓN
Codigo visual basic-
Se recomienda la descarga completa del proyecto que se encuentra en el enlace de este articulo.
'Creado por Jose Luis Bejarano Vasquez
' (+57) 3205341673
'10/03/2019
'Sistemasymicros
'https://www.youtube.com/c/sistemasymicros1
Public Class Form1

    
    Private Sub wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
        btnPublicarMuro.Enabled = True
    End Sub

    Private Sub btnIngresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIngresar.Click
        wb.Document.GetElementById("m_login_email").SetAttribute("value", txtUsuario.Text)
        wb.Document.GetElementById("pass").SetAttribute("value", txtClave.Text)
        wb.Document.GetElementById("login").InvokeMember("click")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wb.Navigate("https://m.facebook.com/login")
    End Sub

    Private Sub btnPublicarMuro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPublicarMuro.Click
        wb.Document.GetElementById("xc_message").SetAttribute("value", txtMensajeMuro.Text)
        wb.Document.GetElementById("view_post").InvokeMember("click")
    End Sub

    Private Sub btnIr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIr.Click
        wb.Navigate(txtUrl.Text)
    End Sub
End Class

Autor: sistemasymicros
25 proyectos 5 seguidores 0 siguiendo

Ingeniero en electrónica. Maker, apasionado por la programación. Sigueme en sistemasymicros.

COMENTARIOS
Para publicar un comentario debes