Autoposteo en facebook usando visual basic net
Acerca de este proyecto
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.
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.
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
Ingeniero en electrónica. Maker, apasionado por la programación. Sigueme en sistemasymicros.
PROYECTOS RELACIONADOS
