SendKeys 語 句 將 一 個 或 多 個 按 鍵 消 息 發 送 到 活 動 窗 口 ， 就 如 同 在 鍵 盤 上 進 行 輸 入 一 樣 。 
    本 示 例 使 用 Shell 函 數 來 運 行 Microsoft Windows 所 附 的 計 算 器 程 序 ； 然 后 使 用 SendKeys 語 句 來 按 下 計 算 器 的 某 些 數 字 鍵 ， 最 后 退 出 計 算 器 。 （ 若 要 觀 察 示 例 運 行 過 程 ， 可 將 示 例 粘 貼 到 過 程 中 ， 再 運 行 過 程 即 可 。 因 為 AppActivate 會 將 焦 點 轉 移 到 計 算 器 應 用 程 序 ， 故 本 示 例 不 能 以 單 步 方 式 來 運 行 。 ） 
    Dim ReturnValue, I 
    ReturnValue = Shell("CALC.EXE", 1) ' 運 行 計 算 器 。 
    AppActivate ReturnValue ' 激 活 計 算 器 。 
    For I = 1 To 100 ' 設 置 計 數 循 環 。 
     SendKeys I & "{+}", True ' 按 下 按 鍵 給 計 算 器 
    Next I ' 將 所 有 I 值 相 加 。 
    SendKeys "=", True ' 取 得 總 合 。 
    SendKeys "%{F4}", True ' 按 ALT+F4 關 閉 計 算 器 。 
    另 外 ， 使 用 SendKeys "% N", True可 以 最 小 化 ， 使 用 SendKeys "% M", True可 以 最 大 化 ， 
<END>