DimEnv j,Hwnd
Dim i,HwndEx
i=0
j=0
HwndEx = Plugin.Window.Search("记事本")
HwndEx= Split(HwndEx,"|")
For UBound(HwndEx)
Hwnd=HwndEx(i)
BeginThread 多线程
rem dd
If j>i Then
i=i+1
Else
Goto dd
End If
Next
Sub 多线程()
Dim HD
HD=Hwnd
j=j+1
HD = Plugin.Window.FindEx(HD, 0, "Edit", 0)
For k=0 to 100
Call Plugin.Bkgnd.SendString(HD, k & " ")
Delay 100
Next
End sub