Favorites, Featured

WhatsApp Versenden

September 28, 2021

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