TracePrint "落落落落落落落落落落落落落落"
TracePrint "落   落叶教学-大漠多开例子   落"
TracePrint "落落    Qq 629233460    落落落落"
TracePrint "落落落落落落落落落落落落落落"
Dimenv Hwnd1        //定义环境变量(多线程需要)
RunApp "notepad.exe"  
RunApp "notepad.exe"      //启动记事本测试用
RunApp "notepad.exe"  
Delay 2000                //等待记事本工具打开
Hwnd = Plugin.Window.Search("无标题 - 记事本") //搜索所有记事本窗口句柄
MyArray = Split(Hwnd, "|")                    //分解句柄
If UBound(MyArray) >= 0 Then                  //判断是否搜到句柄?
    For i = 0 To UBound(MyArray) - 1 
        hwndEx = Clng(MyArray(i))             //类型转换
        Call Plugin.Window.Move(hwndEx, i * 200 + 100, i * 200 + 100) //调整窗口位置
        Call Plugin.Window.Active(hwndEx)     //激活前面
        Hwnd1 = Plugin.Window.FindEx(hwndEx, 0, "Edit", 0)            //获取可打字的窗口句柄
        BeginThread 线程函数                      //启动线程
        Delay 100                             //启动线程需要点时间
    Next
End If

//以下是【无限循环】防止全部脚本停止。  
Do
TracePrint "【无限循环】防止全部脚本停止"
    Delay 1000*30
Loop

//以下是【测试用】子程序例子  

Sub 线程函数()
  Hwnd = Hwnd1
    Set dm = createobject("dm.dmsoft")
    dm_ret = dm.BindWindow(Hwnd,"normal","windows","windows",0)
    TracePrint "线程绑定结果:"&dm_ret
   For i = 0 To 20
    dm.SendString Hwnd,i
      '  Call Plugin.Bkgnd.SendString(Hwnd2, i)
        Delay 100
        dm.KeyPress 13
       ' Call Plugin.Bkgnd.KeyPress(Hwnd2, 13)
        Delay 200
    Next
End Sub

Sub OnScriptExit()
    // 这句只会在主线程结束时被调用到
    dm_ret = dm.UnBindWindow()
End Sub