大佬大漠插件 后台找字怎么弄, ,前台到时可以找到,一遮挡就无了
这是绑定代码
Set dm = createobject("dm.dmsoft")
DimEnv hwnd
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)
这是找字代码
Set dm = createobject("dm.dmsoft")
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)
dm.SetPath "D:\zk"
dm.SetDict 0, "D:\zk\铁匠.TXT"
dm_ret = dm.FindStr(0,0,800,600,"铁","ffff08-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
TracePrint intX
TracePrint inty
End If
这是绑定代码
Set dm = createobject("dm.dmsoft")
DimEnv hwnd
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)
这是找字代码
Set dm = createobject("dm.dmsoft")
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)
dm.SetPath "D:\zk"
dm.SetDict 0, "D:\zk\铁匠.TXT"
dm_ret = dm.FindStr(0,0,800,600,"铁","ffff08-000000",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
TracePrint intX
TracePrint inty
End If