Inhalt
- Bot für WhatsApp programmieren
- Selenium Bibliothek Installation
- Treiber für Chromeversion downloaden
- VBA Modulerstellung & Projektskizze
- Aktivierung Selenium Bibliothek
- Chrome starten und WhatsApp aufrufen
- WhatsApp QR Code Scan und Profilaufruf (manuell)
- Nummer/Name ins Suchfeld von WhatsApp einfügen
- Nachricht in Chat eingeben
- Testlauf mit manuellem QR Code Scan
- WhatsApp QR Code Scan automatisieren
- Testlauf mit automatisiertem QR Code Scan
- Bot Wartezeiten
- Schleife für mehrere Nachrichten
Code
Sub WhatsAppVerschicken() 'Selenium Bibliothek aktivieren 'Variablen deklarieren Dim bot As New WebDriver Dim ks As New Keys Dim i As Long 'Benutzerprofil laden: Hier eigenes Benutzerprofil angeben bot.SetProfile "C:\Users\kaiwe\AppData\Local\Temp\Selenium\scoped_dir12440_675518715\Default" 'Chrome starten und die WhatsApp-Seite öffnen bot.Start "Chrome", "https://web.whatsapp.com" bot.Get "/" bot.Wait (10000) 'Messagebox anzeigen 'MsgBox "Bitte scanne den QR COde und klicke anschließend auf 'OK'." 'Schleife über alle Einträge For i = 2 To 11 'Telefonnummer/Name ins Suchfeld einfügen bot.FindElementByXPath("//*[@id='side']/div[1]/div/label/div/div[2]").SendKeys (Tabelle1.Cells(i, 1).Value) bot.Wait (500) 'Suche bestätigen bot.SendKeys (ks.Enter) bot.Wait (500) 'Nachricht einfügen bot.SendKeys (Tabelle1.Cells(i, 2).Value) bot.Wait (500) 'Nachricht absenden bot.SendKeys (ks.Enter) Next i 'Bestätigung MsgBox "Alles hat geklappt" 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Sub