调用大漠，如何在单脚本内操作多个窗口

vfhp9527

谁能发个源码给我，大漠说明里面有详细说明，但本人英文0水平，看到那些字母脑子就乱了，没有用到多线程的

经常有人问我这个问题，现在特别把这个方法说一下。

比如有3个窗口，需要在一个脚本内分别控制，以达到多开的目的.

如果用我的插件如何实现呢？

比如有3个窗口同时操作.

那么代码如下

// 三个句柄(这里随便写的值，自己更换)

Dim hwnd_all(3)

hwnd_all(0) = 11111

hwnd_all(1) = 22222

hwnd_all(2) = 33333

// 声明3个对象(有几个窗口声明几个)

Dim dm_all(3)

// 分别创建对象

Set dm_all(0) = createobject("dm.dmsoft")

Set dm_all(1) = createobject("dm.dmsoft")

Set dm_all(2) = createobject("dm.dmsoft")

// 声明公共对象,用于切换

Set dm = nothing
hwnd = 0

// 调试用,打印下版本,好习惯

TracePrint dm_all(0).Ver()

// 分别绑定窗口

For i = 0 To 2

   Call 切换对象(i)

   dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0)

   // 检测返回值

   If dm_ret = 0 Then

      MessageBox "绑定失败"

      EndScript

   End If

Next

// 分别设置路径字库等

For i = 0 To 2

   Call 切换对象(i)

   dm.SetPath "c:\test"

   dm.SetDict 0,"test.txt"

Next

// 脚本主循环

Do

   For i = 0 To 2

      Call 切换对象(i)

      Call 打怪()

   Next

Loop

Sub 切换对象(index)

   Set dm = dm_all(index)
   hwnd = hwnd_all(index)

   // 如果还需要切换窗口也可以在这里操作

End Sub

Sub 打怪()

   dm_ret = dm.FindStr(0, 0, 200, 200, "怪物名字", "ffffff-000000", 1.0, x, y)

   If x > 0 Then

      // 开始打怪

      // 以下省略，和单开一样的写法

   End If

End Sub

Sub OnScriptExit()

   // 分别解绑窗口

   For i = 0 To 2

      Call 切换对象(i)

      dm_ret = dm.UnBindWindow()

   Next

End Sub

383698358

这个没多线程好用 写起来也没多线程简单 你这个源码就已经是个例子 相应修改就可以使用

By:boredom

按键精灵????

厉害的海绵宝宝

你说的是中控系统吧。。。一个脚本内操作多个窗口。。。

vfhp9527

yuiyuiyuiyuiyuiyui