1. 定义环境变量 id1
2. 定义变量 i, HwndEx，Hwnd，j, a
3. 令 i = 0
4. 令 j = 0
5. 弹出窗口 "运行3个记事本，依次为线程1，2，3，" & vbcrlf & "按下键盘a，b，c，d，e，f，g，h，i" & vbcrlf & "则a，b，c为暂停线程1，2，3，而d，e，f为继续线程，g，h，i为停止线程"
6. 启动程序或打开文件 "notepad.exe"
7. 启动程序或打开文件 "notepad.exe"
8. 启动程序或打开文件 "notepad.exe"
9. 令 Hwnd = Window.Search("记事本")
10. 弹出窗口 hwnd
11. 令 HwndEx = Split(Hwnd,"|")
12. 调用 Window.Min(HwndEx(0))
13. 调用 Window.Min(HwndEx(1))
14. 调用 Window.Min(HwndEx(2))
15. 弹出窗口 "最小化"
16. 令 HD0 = Window.FindEx(HwndEx(0),0,"Edit",0)
17. 令 HD1 = Window.FindEx(HwndEx(1),0,"Edit",0)
18. 令 HD2 = Window.FindEx(HwndEx(2),0,"Edit",0)
19. (语句无法识别，可能有错误): Id1 = BeginThread(多线程1)
20. 延时 150 毫秒
21. (语句无法识别，可能有错误): Id2 = BeginThread(多线程2)
22. 延时 250 毫秒
23. (语句无法识别，可能有错误): Id3 = BeginThread(多线程3)
24. 延时 50 毫秒
25. 启动线程 控制监控
26. 子程序 多线程1
27.     循环 k 从 0 到 1000
28.         调用 Bkgnd.SendString(HD0,k & " ")
29.         延时 30 毫秒
30.     循环结束
31. 子程序结束
32. 子程序 多线程2
33.     循环 k 从 0 到 1000
34.         调用 Bkgnd.SendString(HD1,k & " ")
35.         延时 30 毫秒
36.     循环结束
37. 子程序结束
38. 子程序 多线程3
39.     循环 k 从 0 到 1000
40.         调用 Bkgnd.SendString(HD2,k & " ")
41.         延时 30 毫秒
42.     循环结束
43. 子程序结束
44. 子程序 控制监控
45.     令 i = 1
46.     循环当 i = 1 时
47.         令 a = WaitKey
48.         根据 a 选择
49.         情况 65:
50.             PauseThread(Id1)
51.         情况 66:
52.             PauseThread(Id2)
53.         情况 67:
54.             PauseThread(Id3)
55.         情况 68:
56.             ContinueThread(Id1)
57.         情况 69:
58.             ContinueThread(Id2)
59.         情况 70:
60.             ContinueThread(Id3)
61.         情况 71:
62.             StopThread(Id1)
63.         情况 72:
64.             StopThread(Id2)
65.         情况 73:
66.             StopThread(Id3)
67.         选择结束
68.     循环结束
69. 子程序结束