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 【脚本停止】
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
//【脚本作者】一只鱼　　　　　　　　　【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
//【创作日期】2006.08.20　　　　　　　【修改日期】2006.08.20
//【软件版本制作的脚本】按键精灵5.92正式版制作的脚本
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//