按键精灵 请问怎么后台找图?

2025-03-17 10:52:41
推荐回答(2个)
回答1:

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 还有你要找的图片添加进脚本的附件里

回答2:

首先要获得窗口句柄,然后把你这些命令修改成后台命令,就可以了,按键里有命令库也有DEMO可以看。