大漠多窗口绑定

Posted 2023-03-23

set dm = createobject("dm.dmsoft")
hwnds = dm.EnumWindow(0, "神途", "", 1 + 4 + 8 + 16)
h_s = split(hwnds, ",")
Dim dm_all(),m,hwnd_all()
h_u = UBound(h_s) + 1
TracePrint h_u
Redim dm_all(h_u),hwnd_all(h_u)
m=0
For h_u
Set dm_all(m) = createobject("dm.dmsoft")
hwnd_all(m) = h_s(m)
m = m + 1
Next
Set dm = nothing
hwnd_all(m) = 0
For i = 0 To UBound(h_s)
Call 切换对像(i)
dm_ret = dm.SetWindowState(hwnd, 12)
dm_ret = dm.BindWindow(hwnd,"dx2","dx","dx",0)
Next
For i = 0 To UBound(h_s)
Call 切换对像(i)
dm.SetPath "d:\大漠插件"
dm.SetDict 0,"字库.txt"
Next
For i = 0 To UBound(h_s)
Call 跑步
Next
Sub 切换对像(index)
Set dm = dm_all(index)
hwnd=hwnd_all(index)
End Sub
Sub OnScriptExit()
For i = 0 To UBound(h_s)
Call 切换对象(i)
dm_ret = dm.UnBindWindow()
Next
End Sub

参考技术A 第一，既然你开始已经用到Hwnd，后面数组就不能用Hwnd了，数组名和变量名不能一样。
第二，nowhwnd要定义环境变量，不是环境变量不能传人线程内。追问

能说的明白点么，Hwnd这个是不一样的哦
第二，nowhwnd要定义环境变量，（这个我环境了还是一样，）