Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.AppActivate("Firefox")
WshShell.SendKeys "{F5}"
WshShell.AppActivate("TextPad")

##</code><code>##

perl -MWin32::OLE -e "$obj = Win32::OLE->new('WScript.Shell') or die $!; $obj->AppActivate('Chrome') or die $!; $obj->SendKeys('{F5}');"