VBScriptは、IEウィンドウのタイトルに応じてESCを出力する

'Test function 
PressESC "Windows Internet Explorer", "{ESCAPE}" 
 
'The function we want to handle 
Function PressESC(WindowTitle, KeyCommand) 
  Set objShell = CreateObject("WScript.Shell") 'Define a WHS object 
  If objShell.AppActivate(WindowTitle) Then 'Detect if we have the Windows we want to detect 
    AppActivate WindowTitle 'Bring the window into focus 
    SendKeys KeyCommand 'Send an ESC key 
  End If 
End Function