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

Download me
Autor: sistemasymicros
24 proyectos 1 seguidores 0 siguiendo

Ingeniero en electronica, desarrollador de software. Desarrollo de proyectos con microcontroladores.

COMENTARIOS
Para publicar un comentario debes