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