‘測試函數 
PressESC "Windows Internet Explorer", "{ESCAPE}" 
 
'我們要處理的函數 
Function PressESC(WindowTitle, KeyCommand) 
  Set objShell = CreateObject("WScript.Shell") ‘定義一個WHS對象 
  If objShell.AppActivate(WindowTitle) Then '檢測是否有我們要檢測的Windows 
    objShell.AppActivate WindowTitle ‘把窗口對焦 
    objShell.SendKeys KeyCommand '發送一個ESC鍵 
  End If 
End Function