按键精灵运行外部程序源码

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

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

3。利用VBS的 多功能弹窗 

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

5。输出内容！ 

运行环境：分辨率：1440x900 色深：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 【脚本停止】