Automate Image PDF Videos Upload Via Whatsapp

How to upload image, pdf and video files automatically via Whatsapp desktop using VBA with Chrome, Selenium and Selenium Wrapper softwares.
Option Explicit
Dim driver As New WebDriver

Sub SendDataUsingChromeDriverSeleniumWrapper()

'Chrome Driver
'Selenium
'Selenium Wrapper

Dim filepath As String, myMessage As String

Dim keys As New SeleniumWrapper.keys

myMessage = Sheet1.Range("C2")

filepath = InputBox("Enter the file path")

driver.Start "chrome"

driver.Get "https://web.whatsapp.com/send?phone=919810081867&text=" & myMessage

driver.Window.Maximize

driver.Wait 5000

driver.FindElementByXPath("//div[@title='Attach']").Click

driver.Wait 10000

driver.FindElementByXPath("//input[@accept='image/*,video/mp4,video/3gpp,video/quicktime']").SendKeys (filepath)

driver.Wait 2000 ' this wait time depends on the size of your file max 64 mb

driver.FindElementByXPath("//span[@data-icon = 'send']").Click

driver.Wait 2000

driver.SendKeys (keys.Enter)

End Sub

Видео Automate Image PDF Videos Upload Via Whatsapp канала Dinesh Kumar Takyar