Call 注册大漠()
Rem 绑定
hwnd = dm.GetMousePointWindow()
Delay 200
dm_ret = dm.BindWindow(hwnd,"dx2","dx2","dx",0)
Delay 200
If dm_ret = 1 Then
Call Plugin.Msg.Tips("绑定成功")
Delay 100
Else
Goto 绑定
End If
Rem a
dm_ret = dm.FindPic(380,60,700,200,"图片.bmp","000000",0.9,0,X,Y)
Delay 50
//↑指定“范围”,进行“找图”
If X>0 and Y>0 Then
dm_ret = dm.SetWindowState(hwnd,1)//激活窗口
Delay 100
End If
//↑后台“找图”
Goto a
Sub OnScriptExit()
dm.UnBindWindow
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
dm.SetPath "c:\test_game"
dm_ret = dm.SetDict(0, "dm_soft.txt")
End Sub
你的按键精灵里要有大漠插件,要将dm.dll RegDll.dll 还有你要找的图片添加进脚本的附件里
首先要获得窗口句柄,然后把你这些命令修改成后台命令,就可以了,按键里有命令库也有DEMO可以看。