1。运行一个程序《记事本程序》 

2。激活《记事本程序》窗口为最前面 

3。利用VBS的 多功能弹窗 

4。2句合为一句用（:）冒号 

5。输出内容！ 

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01 2009/3/23

Beep    //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   //　　　　　　　　　　　　运行外部程序[记事本]检测脚本　　　　　　　　　　　　//   //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   VBS Dim obj , i , t   VBS i = 0   VBS set obj=CreateObject("WScript.Shell")   //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   VBSCall RunApp("notepad.exe")   Delay 2000   While i < 3       VBS i = i + 1       //《激活窗口为最前面①》       If obj.AppActivate ("未定标题 - 记事本") Or obj.AppActivate ("无标题 - 记事本")           SayExpression "运行记事本成功! (输入内容 "&i&" 次)"           KeyPress 13 1           Delay 1000       Else            //《显示信息①》           VBS t="Sorry ！"&vbCrLf&vbCrLf           VBS t=t&"[ 记事本 ]没有被运行或者被提前关闭，检测运行结束。"&vbCrLf&vbCrLf           VBSCall obj.Popup(t&"5 秒后自动关闭 ！",5,"按鍵自检脚本：",16)           Gosub 【脚本停止】       EndIf    EndWhile    //《激活窗口为最前面②》   VBS obj.AppActivate ("未定标题 - 记事本") : obj.AppActivate ("无标题 - 记事本")   SayString 等待 1 秒，自动关闭记事本!   Delay 1000   //《关闭[ 记事本 ]》   KeyDown 18 1   KeyPress 115 1   KeyUp 18 1   Delay 500   //《[ 记事本 ]不保存》   KeyPress 78 1   Delay 500   //《显示信息②》   VBS t="你好，[ 记事本 ]运行很成功。^o^  "&vbCrLf&vbCrLf   VBSCall obj.Popup(t&"3 秒后自动关闭 ！",3,"按鍵自检脚本：",64)   EndScript    //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   Sub 【脚本停止】       KeyUp 18 1   EndScript    Return 【脚本停止】