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:
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.
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.
Descargar aca el proyecto completo.
'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
Ingeniero en electronica, desarrollador de software. Desarrollo de proyectos con microcontroladores.