- 定义环境变量 id1
- 定义变量 i, HwndEx,Hwnd,j, a
- 令 i = 0
- 令 j = 0
- 弹出窗口 "运行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为停止线程"
- 启动程序或打开文件 "notepad.exe"
- 启动程序或打开文件 "notepad.exe"
- 启动程序或打开文件 "notepad.exe"
- 令 Hwnd = Window.Search("记事本")
- 弹出窗口 hwnd
- 令 HwndEx = Split(Hwnd,"|")
- 调用 Window.Min(HwndEx(0))
- 调用 Window.Min(HwndEx(1))
- 调用 Window.Min(HwndEx(2))
- 弹出窗口 "最小化"
- 令 HD0 = Window.FindEx(HwndEx(0),0,"Edit",0)
- 令 HD1 = Window.FindEx(HwndEx(1),0,"Edit",0)
- 令 HD2 = Window.FindEx(HwndEx(2),0,"Edit",0)
- (语句无法识别,可能有错误): Id1 = BeginThread(多线程1)
- 延时 150 毫秒
- (语句无法识别,可能有错误): Id2 = BeginThread(多线程2)
- 延时 250 毫秒
- (语句无法识别,可能有错误): Id3 = BeginThread(多线程3)
- 延时 50 毫秒
- 启动线程 控制监控
- 子程序 多线程1
- 循环 k 从 0 到 1000
- 调用 Bkgnd.SendString(HD0,k & " ")
- 延时 30 毫秒
- 循环结束
- 子程序结束
- 子程序 多线程2
- 循环 k 从 0 到 1000
- 调用 Bkgnd.SendString(HD1,k & " ")
- 延时 30 毫秒
- 循环结束
- 子程序结束
- 子程序 多线程3
- 循环 k 从 0 到 1000
- 调用 Bkgnd.SendString(HD2,k & " ")
- 延时 30 毫秒
- 循环结束
- 子程序结束
- 子程序 控制监控
- 令 i = 1
- 循环当 i = 1 时
- 令 a = WaitKey
- 根据 a 选择
- 情况 65:
- PauseThread(Id1)
- 情况 66:
- PauseThread(Id2)
- 情况 67:
- PauseThread(Id3)
- 情况 68:
- ContinueThread(Id1)
- 情况 69:
- ContinueThread(Id2)
- 情况 70:
- ContinueThread(Id3)
- 情况 71:
- StopThread(Id1)
- 情况 72:
- StopThread(Id2)
- 情况 73:
- StopThread(Id3)
- 选择结束
- 循环结束
- 子程序结束