Option Explicit

Dim webbrowser, button
Set webbrowser = createobject("internetexplorer.application")
webbrowser.statusbar = False
webbrowser.toolbar   = False
webbrowser.menubar   = False
webbrowser.visible   = True

webbrowser.navigate("http://sitespeedanalysis.com/ ")

WScript.sleep(8000) 
webbrowser.document.all.item("url").value = "https://imgwallet.com/img-5c8cb909c8b92.html"

Set button = webbrowser.Document.getElementsByClassName("bbbbutton").Item(0)
button.Click

WScript.sleep(15000)

webbrowser.Quit