易语言 大漠插件怎么获取窗口句柄
易语言 大漠插件怎么获取窗口句柄
窗口_取鼠标指向句柄
的感言：谢谢你帮了我大忙！
其他回答 (1)
dsffssssssssss
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号你的位置：
大漠插件问题：窗口绑定后，坐标不是窗口坐标，而是屏幕坐标
09:42:07 |
来源: 按键精灵资源站
注册成功，绑定成功。按说窗口绑定成功了，所有的坐标都转为窗口坐标。但找字得到的坐标和点击的坐标，经测试，都是屏幕坐标，而不是绑定的窗口坐标。见红色语句。求教高手，问题到底在哪里。
Call 注册大漠()
// 获取句柄
hwnd = dm.GetMousePointWindow()
dm_ret = dm.SetWindowState(hwnd,1)
dm_ret = dm.BindWindow(hwnd, &dx&, &windows&, &windows&, 0)
dm.delay 2000
// 检测绑定返回值
if dm_ret = 0 then
& & last_error = dm.GetLastError()
& & // 如果是WIN7 VISTA WIN2008系统,检测当前系统是否有开启UAC
& & if dm.GetOsType() = 3 then
& && &&&// 有开启UAC的话，尝试关闭
& && &&&if dm.CheckUAC() = 1 then
& && && && &if dm.SetUAC(0) = 1 then
& && && && && & // 关闭UAC之后，必须重启系统才可以生效
& && && && && & messagebox &已经关闭系统UAC设置，必须重启系统才可以生效。点击确定重启系统&
& && && && && & dm.ExitOs 2
& && && && && & Delay 2000
& && && && && & endscript
& && && && &end if
& && &&&end if
& & end if
& & // 具体错误码的含义，可以参考函数GetLastError的说明.
& & messagebox &绑定失败，错误码是:&&last_error
& & messagebox &如果确定关闭了UAC,很可能是系统的防火墙拦截，请暂时关闭360等安全防火墙再尝试&
& & EndScript
dm_ret = dm.GetClientRect(hwnd, x1, y1, x2, y2)
ll = x2 - x1 : hh = y2 - y1
MessageBox &窗口坐标为：&&cstr(x1)&&，&&cstr(y1)&&窗口宽高为：&&cstr(ll)&&，&&cstr(hh)
set dm = createobject(&dm.dmsoft&)
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,&xjsj.txt&)
dm_ret = dm.FindStr(0, 0, , &巡逻队&, &ffffff-000000&, 1.0, intX, intY)
MessageBox &找到坐标为：&&cstr(intX)&&，&&cstr(intY)
dm.moveto intX, intY + 30
dm.delay 50
dm.leftclick
dm.delay 500
dm.moveto ll - 190, hh - 119
dm.delay 50
dm.leftclick
// 下面这是脚本结束时执行的部分
Sub OnScriptExit()
& & dm.UnBindWindow
Sub 注册大漠
need_ver = &3.1233&
PutAttachment &.\plugin&,&regdll.dll&
& & PutAttachment &d:\dm&,&*.*&
& & Call Plugin.RegDll.Reg(&d:\dm\dm.dll&)
& & set dm = createobject(&dm.dmsoft&)
& & dm.SetPath &d:\dm&
& & dm.SetDict 0, &xjsj.txt&
& & Delay 40& &}