怎样向正在运行的程序发送关闭、最大化、最小化的命令.txt

VB技巧问答10000例 VB技巧问答10000例

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>