1. 响一声
2. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
3. //　　　　　　　　　　　　运行外部程序[记事本]检测脚本　　　　　　　　　　　　//
4. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
5. （VBScript语句） Dim obj , i , t
6. （VBScript语句） i = 0
7. （VBScript语句） set obj=CreateObject("WScript.Shell")
8. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
9. 调用外部VBScript子程序 运行一个外部程序("notepad.exe")
10. 延时2000毫秒
11. 如果表达式 (i < 3) 为真,则循环执行
12.     （VBScript语句） i = i + 1
13.     //《激活窗口为最前面①》
14.     如果表达式 (obj.AppActivate ("未定标题 - 记事本") Or obj.AppActivate ("无标题 - 记事本")) 为真,则
15.         SayExpression "运行记事本成功! (输入内容 "&i&" 次)"
16.         按键<Enter>
17.         延时1000毫秒
18.     否则
19.         //《显示信息①》
20.         （VBScript语句） t="Sorry ！"&vbCrLf&vbCrLf
21.         （VBScript语句） t=t&"[ 记事本 ]没有被运行或者被提前关闭，检测运行结束。"&vbCrLf&vbCrLf
22.         调用外部VBScript子程序 运行一个外部程序("notepad.exe")
23.         调用子程序 【脚本停止】
24.     条件结束
25. 循环结束
26. //《激活窗口为最前面②》
27. （VBScript语句） obj.AppActivate ("未定标题 - 记事本") : obj.AppActivate ("无标题 - 记事本")
28. 输入文本 等待 1 秒，自动关闭记事本!
29. 延时1000毫秒
30. //《关闭[ 记事本 ]》
31. 按住<Alt>
32. 按键<F4>
33. 弹起<Alt>
34. 延时500毫秒
35. //《[ 记事本 ]不保存》
36. 按键<N>
37. 延时500毫秒
38. //《显示信息②》
39. （VBScript语句） t="你好，[ 记事本 ]运行很成功。^o^ "&vbCrLf&vbCrLf
40. 调用外部VBScript子程序 运行一个外部程序("notepad.exe")
41. 脚本停止运行
42. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
43. 子程序 【脚本停止】
44.     弹起<Alt>
45. 脚本停止运行
46. 子程序结束,回到调用处
47. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
48. //【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
49. //【脚本作者】一只鱼　　　　　　　　　【QQ群】5619170
50. //【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
51. //【创作日期】2006.08.20　　　　　　　【修改日期】2006.08.20
52. //【软件版本制作的脚本】按键精灵5.92正式版制作的脚本
53. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//