Code:
alias sendkeys {
  .comopen sendkeys WScript.Shell
  if ($com(sendkeys)) .comclose sendkeys $com(sendkeys,SendKeys,3,bstr,$1-)
}


sendkeys % $+ r