📬Enviar mensaje de WHATSAPP VERSIÓN ESCRITORIO EN VB.NET 💯 SIN 🚫APIS SIN 🚫 TWILIO, NO TOKENS

Descarga el material del siguiente link "Video material | Material de vídeo | ビデオ素材 | Matériel vidéo | Videomaterial"
develomart.blo...
Desinstala la versión de WhatsApp si la tienes instalada de Microsoft Store.
Instala la versión anterior te dejo el siguiente link de descarga.
drive.google.c...
En este video te mostramos cómo mandar un mensaje de WhatsApp desde la versión de escritorio completamente solo. En tan solo unos sencillos pasos podrás buscar a tus contactos, escribir tu mensaje y enviarlo sin necesidad de usar tu teléfono móvil. Ahorrarás tiempo y esfuerzo al poder usar la versión de escritorio para enviar tus mensajes desde tu ordenador. No te pierdas este tutorial y aprende a usar WhatsApp de una forma más eficiente y práctica. ¡Dale al play y descubre cómo!

[@user-wh7yg7fz8r]

Excelente!!! tenia meses buscando, y queriendo hacer algo como esto, gracias! te has ganado un humilde seguidor...

[@Kalamardo2010]

Que forma mas arcaica de programar y de usar el servicio de Whatsapp

[@jaalbites]

Muchas gracias!!! Excelente! me ayudó mucho!!! Saludos!

[@mariogoitiamares3907]

Todo a la perfección gracias por este gran aporte me funciona al 100%, gracias devmart 👌👌

[@devmart]

Saludos ,Mario, gracias por ver el video y comentar!!

[@Gesimarification]

Hola tienes el código ? Para descargarlo

[@harrisonreyes939]

Hola, le envie un email hace dias por favor lealo. gracias

[@eliaspereyra5308]

Muy buen video! Excelente aporte. Por casualidad tendrás el link de descarga de whatsapp? Ya que con la versión de la Microsoft store estoy teniendo inconvenientes y no consigo el .exe

[@enzoguizadomedina]

Hola a mi no me corre , se queda en esta linea: p.Start() An unhandled exception of type 'System.ComponentModel.Win32Exception' occurred in System.dll Usan algun DLL ustedes.???

[@seedu96]

probé para enviar a un numero desconocido sin tenerlo como contacto y no me deja, habrá alguna solución?

[@AlejandroCordoba73]

Excelente video !Tendras la version en c# y se podra enviar mensajes a grupos

[@devmart]

si esta la version para c# kzbin.info/www/bejne/rZXGY6KsYqyooas , para grupos aun no lo subo

[@ricardoserrano5121]

Me aparece archivo dañado al momento de descomprimir whatsapp de winrar

[@devmart]

Hola Ricardo, revisa este enlace: drive.google.com/drive/folders/1EXgSO434_OpSzX4hoY1w4Qd6s9qAz044?usp=share_link

[@DheryM]

@@devmart buenos dias, la carpeta esta vacia

[@mascapito309]

me envia mensajes a mi mismo numero, que hago?

[@devmart]

Hola, mira prueba con el siguiente codigo, creo que whatsApp actualizo algo y cambiaron algunos parametros, pero ya probe este codigo y funciona bien.. copialo y pegalo Saludos y gracias por comentar! Dim mensaje As String = txtMsg.Text Dim numero As String = txtNumero.Text Dim p As New Process() p.StartInfo.FileName = "C:\Users\Ing. Martin\AppData\Local\WhatsApp\WhatsApp.exe" p.Start() Threading.Thread.Sleep(5000) 'Espera 5 segundos para que cargue la aplicación 'Envía el mensaje SendKeys.SendWait("^n") 'Presiona Ctrl+N para abrir una nueva conversación Threading.Thread.Sleep(2000) 'Espera 2 segundos para que cargue la ventana de nueva conversación SendKeys.SendWait(numero) 'Escribe el número de teléfono al que se enviará el mensaje Threading.Thread.Sleep(1000) 'Espera 1 segundos para que cargue la ventana de nueva conversación SendKeys.SendWait("{ENTER}") 'Presiona Enter para confirmar el número de teléfono 'Envía el mensaje Threading.Thread.Sleep(2000) 'Espera 2 segundos cuando ya se tiene el foco de la conversación SendKeys.SendWait("^v") 'Pega lo que se tiene en portapapeles al la conversación Threading.Thread.Sleep(1000) 'Espera 1 segundo y manda el mensaje SendKeys.SendWait("{ENTER}") 'Manda la tecla enter

[@mascapito309]

​@@devmart perdona, cuál siguiente código? Hasta copié tu código y me sigue mandando a mi mismo 😢

[@devmart]

Dim mensaje As String = txtMsg.Text Dim numero As String = txtNumero.Text Dim p As New Process() p.StartInfo.FileName = "C:\Users\Ing. Martin\AppData\Local\WhatsApp\WhatsApp.exe" p.Start() Threading.Thread.Sleep(5000) 'Espera 5 segundos para que cargue la aplicación 'Envía el mensaje SendKeys.SendWait("^n") 'Presiona Ctrl+N para abrir una nueva conversación Threading.Thread.Sleep(2000) 'Espera 2 segundos para que cargue la ventana de nueva conversación SendKeys.SendWait(numero) 'Escribe el número de teléfono al que se enviará el mensaje Threading.Thread.Sleep(1000) 'Espera 1 segundos para que cargue la ventana de nueva conversación SendKeys.SendWait("{ENTER}") 'Presiona Enter para confirmar el número de teléfono Threading.Thread.Sleep(1000) 'Espera 1 segundo y manda el mensaje SendKeys.SendWait("{ENTER}") 'Manda la tecla enter

[@devmart]

Tamben verifica que el telefono al que vas a enviar este a 10 digitos. que este bien..

[@mascapito309]

@@devmart solo se puede con números de 10 dígitos?

[@gemberthernanromerosantiag6208]

Necesito que me ayudes por favor en ese proyecto

[@tauro1239]

Buenas tardes whasapp busines no e bloquea la aplicación por spam ? cada que tiempo se puede enviar los mensajes y a cuantos contactos ,acepta solo texto tambien imagenes o videos se pueden enviar esa aplicacion es gratuita o ilimtada ?

[@devmart]

Hola Tauro buenas tardes !, yo he mandado mas de 100 mensajes por día y no me ha bloqueado, en el enlace que te dejo al final de este mensaje esta un video que subí hace unas semanas en donde puedes mandar también mensajes con imágenes o videos no mayores a los 16MB. Link: kzbin.info/www/bejne/oaXadoRqbc-CqtU

[@mascapito309]

ay caborn = holy sheet

[@jeacservice2592]

el link de la descarga no funciona.... lo podras volver a subir?

[@marceloromero7614]

amigo puedo acceder al archivo, como pudiste hacer que puedan tener acceso al .exe de wsp?

[@joseluisroblesc.562]

mi hermano una consultita como puedo hacer que antes que envie el mensaje ..valide primero si el numero tiene whasapp o no ? echame una manito en eso por favor te lo voy agrader mucho..estoy desarrollando un sistema y me esta causando mucho problema el aplicativo del whasap cuando el numero del destinatario no tiene whasapp

[@iBlink]

Jose Luis lo lograste resolver?

[@tntrevo]

muy bueno..! empero que pasa si no tengo al contacto agregado?

[@devmart]

Hola Alan, Aunque no tengas al contacto agregado si se manda el mensaje!!

[@RabbitBlasco]

Muy bueno!!! Se puede hacer algo así pero para que envíe sms?

[@devmart]

Si se puede.. en unos días lo voy a subir..

[@inventariosimportadoraelhu3857]

Saludos buen proyecto. Para que WhatsApp se ejecute en segundo plano. Se puede.

[@devmart]

Hola!, Yo lo he realizado en segundo plano y si se puede!

[@JoseSilva-js3cb]

Puedes compartir la información

[@devmart]

@@JoseSilva-js3cb A claro que si mira: Para ejecutar WhatsApp en segundo plano, se puede utilizar el componente ProcessStartInfo y establecer la propiedad WindowStyle en ProcessWindowStyle.Hidden. aqui te envio el codigo modificado: Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click Dim numero As String = txtNumero.Text Dim mensaje As String = txtMensaje.Text Dim p As New Process() Dim psi As New ProcessStartInfo() psi.FileName = "C:\Users\Ing. Martin\AppData\Local\WhatsApp\WhatsApp.exe" psi.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo = psi p.Start() Threading.Thread.Sleep(5000) SendKeys.SendWait("^n") Threading.Thread.Sleep(2000) SendKeys.SendWait(numero) SendKeys.SendWait("{ENTER}") Threading.Thread.Sleep(2000) SendKeys.SendWait(mensaje) SendKeys.SendWait("{ENTER}") End Sub

[@devmart]

Al establecer psi.WindowStyle = ProcessWindowStyle.Hidden, se ejecutará WhatsApp en segundo plano sin mostrar su ventana principal. Saludos!

[@JoseSilva-js3cb]

Cambie la propiedad, pero tuvo el mismo efecto. Se mostró la venta principal

[@henryjavier101]

Hola... excelete aporte mi amigo pero e mensaje me lo envio yo mismo! porque?

[@devmart]

El ejemplo es para que pueda enviar a otros contactos, también te lo puedes mandar a ti mismo, para hacer tus propias pruebas..

[@user-dp8zv1vt9e]

Hola buenas noches , se actualizo whatsapp y ya no me deja abrirlo,lo intente deshinstalar pero me instala la version nueva, sabes como le podria hacer ?

[@jaalbites]

Hola, me pasó igual, entonces en vez buscar la ruta del exe y ejecutarlo desde el programa, abres el WhatsApp, y obtienes el proceso del WhatsApp con esta declaración, a mi me funcionó. Dim procesoWhatsApp As Process() = Process.GetProcessesByName("WhatsApp")

[@myriamcortez5579]

@@jaalbites Hola, si puedes me envias el codigo, gracias

[@gemberthernanromerosantiag6208]

Buenas noches cómo hago para comunicarme contigo mi estimado

[@devmart]

[e-mail]

[@Credinero-yg7be]

hola quiero enviar sms a whatsapp web desde vb 2008 un programa sencillo, por favor si alguien me ayuda. seria ingresar el numero de whatsapp en un TextBoxNumero y el mensaje también ingresar en un TextBoxMensaje y enviar con un Boton

[@roquefabian]

- Funciona si no tienes agendado el contacto ??? - Se puede enviar varios a la vez ?

[@devmart]

- Si se puede mandar a contactos, aunque no los tengas agregados. - Aún no subo tutorial para mandar varias a la vez, pero si se puede, en unos días estaré subiendo un video al respecto. 👍👊

[@giovannyescandon7597]

Y si no te lo agregado el contacto

[@devmart]

Aun así, manda el mensaje.

[@seedu96]

se pueden enviar enlaces web?

[@devmart]

Si se puede.. aqui tienes el codigo, remplezalo por este otro... Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click Dim numero As String = txtNumero.Text Dim mensaje As String = txtMensaje.Text Dim p As New Process() Dim psi As New ProcessStartInfo() psi.FileName = "C:\Users\TU USUARIO\AppData\Local\WhatsApp\WhatsApp.exe" psi.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo = psi p.Start() Threading.Thread.Sleep(5000) SendKeys.SendWait("^n") Threading.Thread.Sleep(2000) SendKeys.SendWait(numero) SendKeys.SendWait("{ENTER}") ' Agregar el enlace web al mensaje Dim enlace As String = "www.ejemplo.com" ' Reemplaza con tu enlace web Threading.Thread.Sleep(2000) SendKeys.SendWait(enlace) SendKeys.SendWait("{ENTER}") Threading.Thread.Sleep(2000) SendKeys.SendWait(enlace) SendKeys.SendWait("{ENTER}") End Sub Saludos!!

[@rolandofelix1144]

Consulta por favor: cómo hago con WhatsApp Web?