易拖动控件可以获取句柄，但是绑定不成功，求大神，画江山游戏

13703293029

.版本 2
.支持库 dm
.支持库 spec

.程序集 窗口程序集1
.程序集变量 PatBool, 逻辑型
.程序集变量 Oldhandle, 整数型
.程序集变量 DM, dmsoft
.程序集变量 WindowHandle, 整数型

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ #无指针
SetCapture (图片框1.取窗口句柄 ())
时钟1.时钟周期 ＝ 150

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ #有指针
ReleaseCapture ()
时钟1.时钟周期 ＝ 0
.如果真 (PatBool ＝ 真)
    PatWindowRim (Oldhandle)
.如果真结束


.子程序 PatRim
.参数 DCA, 整数型
.参数 Rect, Rect

.如果真 (IsRectEmpty (Rect) ＝ 0)
    PatBlt (DCA, Rect.left, Rect.top, Rect.right － Rect.left, 3, #DSTINVERT)
    PatBlt (DCA, Rect.left, Rect.bottom, Rect.right － Rect.left, -3, #DSTINVERT)
    PatBlt (DCA, Rect.left, Rect.top ＋ 3, 3, Rect.bottom － Rect.top － 6, #DSTINVERT)
    PatBlt (DCA, Rect.right, Rect.top ＋ 3, -3, Rect.bottom － Rect.top － 6, #DSTINVERT)
.如果真结束


.子程序 PatWindowRim
.参数 Handle, 整数型
.局部变量 DCA, 整数型
.局部变量 Rect, Rect

DCA ＝ CreateDCA (“DISPLAY”, “”, “”, 0)
.判断开始 (Oldhandle ≠ Handle)
    .如果 (PatBool ＝ 真)
        GetWindowRect (Oldhandle, Rect)
        PatBool ＝ 假
    .否则
        GetWindowRect (Handle, Rect)
        PatBool ＝ 真
        Oldhandle ＝ Handle
    .如果结束
    PatRim (DCA, Rect)
    DeleteDC (DCA)

.默认
    GetWindowRect (Handle, Rect)
    PatRim (DCA, Rect)
    DeleteDC (DCA)
    .判断开始 (PatBool ＝ 真)
        PatBool ＝ 假
    .默认
        PatBool ＝ 真
    .判断结束

.判断结束


.子程序 _时钟1_周期事件
.局部变量 Point, Point

GetCursorPos (Point)
WindowHandle ＝ WindowFromPoint (Point.x, Point.y)
PatWindowRim (WindowHandle)
编辑框1.内容 ＝ 到文本 (WindowHandle)

.子程序 窗口绑定
.局部变量 dd, 整数型


dd ＝ DM.BindWindowEx (WindowHandle, “dx”, “dx”, “dx”, “dx.public.fake.window.min”, 4)
调试输出 (WindowHandle)
调试输出 (dd)
调试输出 (DM.GetLastError ())


.子程序 _按钮1_被单击

窗口绑定 ()
DM.MoveTo (655, 715)
DM.delay (200)
DM.LeftClick ()

KB科技

你应该获取的是窗口句柄 估计你拖动到游戏画面上了 然后获取了画面的句柄了吧

13703293029

找到问题了，绑定模式有问题，现在又出现了新问题，绑定上了窗口句柄，但是鼠标移动点击无效，不知道什么情况求解