Dimenv id1, id2, id3,hd0, hd1, hd2
Dim i, HwndEx,Hwnd,j,a
i=0
j = 0
MessageBox "运行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为停止线程"
RunApp "notepad.exe"
RunApp "notepad.exe"
RunApp "notepad.exe"
Hwnd = Plugin.Window.Search("记事本")
MessageBox hwnd
HwndEx = Split(Hwnd, "|")
Call Plugin.Window.Min(HwndEx(0))
Call Plugin.Window.Min(HwndEx(1))
Call Plugin.Window.Min(HwndEx(2))
MessageBox "最小化"
HD0 = Plugin.Window.FindEx(HwndEx(0), 0, "Edit", 0)
HD1 = Plugin.Window.FindEx(HwndEx(1), 0, "Edit", 0)
HD2 = Plugin.Window.FindEx(HwndEx(2), 0, "Edit", 0)
Id1 = BeginThread(多线程1)
Delay 150
Id2 = BeginThread(多线程2)
Delay 250
Id3 = BeginThread(多线程3)
Delay 50
BeginThread 控制监控
Sub 多线程1
    For k = 0 To 1000
        Call Plugin.Bkgnd.SendString(HD0, k & "   ")
        Delay 30
    Next 
End sub
Sub 多线程2
    For k = 0 To 1000
        Call Plugin.Bkgnd.SendString(HD1, k & "   ")
        Delay 30
    Next 
End Sub
Sub 多线程3
    For k = 0 To 1000
        Call Plugin.Bkgnd.SendString(HD2, k & "   ")
        Delay 30
    Next 
End Sub

Sub 控制监控
	i=1
	While i=1
		a=WaitKey
		Select Case a
			Case 65
				PauseThread Id1
			Case 66
				PauseThread Id2
			Case 67
				PauseThread Id3
			Case 68
				ContinueThread Id1
			Case 69
				ContinueThread Id2
			Case 70
				ContinueThread Id3
			Case 71
				StopThread Id1
			Case 72
				StopThread Id2
			Case 73
				StopThread Id3				
		End Select
	Wend
End Sub