Option Explicit
dim a
set a=CreateObject("wscript.shell")
a.run "chrome.exe"
wscript.sleep 500
a.SendKeys"https://www.youtube.com/watch?v=RcVxCYJo3E4"
a.Sendkeys"{enter}"
wscript.sleep 5000
msgbox "lo