Question

按键精灵大漠后台绑定成功，就是鼠标点击不了，求解

Call 注册大漠()
Call 打开网站()
Delay 3000
Call 窗口绑定()
Sub 窗口绑定()
Dim hwnd
hwnd = dm.FindWindow("IEFrame", "化龙巷新房房产中介工作台欢迎您-房产中介工作台 - Windows Internet Explorer")
TracePrint hwnd
dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "windows", 0)
If dm_ret = 1 Then
TracePrint "绑定成功"
Else
TracePrint "绑定失败"
End If
dm.moveto 853,133
Delay 1000
dm.leftclick
Delay 2000
dm.moveto 80,244
Delay 1000
dm.leftclick
Delay 2000
End Sub
Sub 注册大漠()
need_ver = "3.1233"
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing
PutAttachment "D:\化龙巷","*.*"
PutAttachment ".\Plugin" ,"RegDll.dll"
Call Plugin.RegDll.Reg("D:\化龙巷\dm.dll")
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
set dm = nothing
set ws=createobject("Wscript.Shell")
ws.run "regsvr32 D:\化龙巷\dm.dll /s"
set ws=nothing
Delay 1500
set dm = createobject("dm.dmsoft")
ver = dm.Ver()
if ver <> need_ver then
messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
messagebox "请关闭程序,重新打开本程序再尝试"
endscript
end if
end if
If ver = need_ver Then
TracePrint "恭喜你注册成功！插件所在目录是:"&dm.GetBasePath()
End If
dm.SetPath "D:\化龙巷"
End Sub
Sub 打开网站()
Call RunApp("C:\Program Files\Internet Explorer\iexplore.exe https://house.hualongxiang.com/vipie/common/index#")
Delay 1000
Call Plugin.Window.Size(hWnd, 980, 650)
End Sub

Answer 1

1:确定句柄没错?
2:鼠标模式换其他的试试(windows2,windows3,dx,dx2)

追问

已经成功了