• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[问题] 求助dm.EnumWindow无法获得的窗口句柄 [复制链接]

1#
想通过标题迷糊查找说明两字来绑定大漠接口说明


提示:绑定窗口时现在无效句柄

Call 注册
Call 绑定
Call 运行
Call OnScriptExit//解开绑定


Sub 绑定



hwnds = dm.EnumWindow("0", "说明", "", 1 + 4 + 8 + 16)
//枚举窗口标题117.135.138.155/tx33窗口句柄赋值给hwnds
hwnds = split(hwnds,",")

dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)


    
End Sub
Sub 绑定01
//set dm = createobject("dm.dmsoft")
//dm.SetPath "c:"
hwnd = dm.GetMousePointWindow()
TracePrint hwnd
dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)

    
End Sub
Sub 运行
    dm.MoveTo 434,220
Delay 100
dm.LeftClick
Delay 100
dm.KeyPress 96

Delay 100
dm.KeyPress 9
Delay 100
dm.KeyPress 96
Delay 100
dm.KeyPress 13
Delay 100


End Sub
Sub 注册
    





need_ver = "3.1233"





set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing





PutAttachment "c:\test_game","*.*"



PutAttachment ".\Plugin" ,"RegDll.dll"



Call Plugin.RegDll.Reg("c:\test_game\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 c:\test_game\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
End Sub
Sub OnScriptExit()//解开
dm_ret = dm.UnBindWindow()
End Sub

发新话题 回复该主题