按键精灵大漠插件注册窗口绑定和颜色图片代码

Call 注册大漠()
Call 窗口绑定()
//Call 获取颜色()
//Call 查找颜色()
//Call 查找图片(()
Sub 查找颜色()
    dm_ret = dm.FindColor(226,418,416,570,"ff6146",1.0,0,intX,intY)
    If intX >= 0 and intY >= 0 Then
        dm.moveto intX, intY
        Delay 100
        dm.leftclick
    End If
End Sub
Sub 查找图片()
    dm_ret = dm.FindPic(0,0,2000,2000,"1.bmp","000000",0.9,0,intX,intY)
    If intX >= 0 and intY >= 0 Then
        dm.moveto intX, intY
        Delay 100
        dm.leftclick
    End If
End Sub
Sub 获取颜色()
    color = dm.GetColor(320,451)
    If color = "ff6146" Then
        dm.MoveTo 320,451
        Delay 100
        dm.leftclick
    End If
End Sub
Sub 窗口绑定()
    hwnd = dm.GetMousePointWindow()
    TracePrint hwnd
    dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0)
    Delay 1000
    dm_ret = dm.Capture(0, 0, 2000, 2000, "screen.bmp")
    TracePrint dm_ret
    Delay 1000
End Sub
Sub 注册大漠()
    need_ver = "3.1233"
    set ws=createobject("Wscript.Shell")
    ws.run "regsvr32 atl.dll /s"
    set ws=nothing
    PutAttachment "D:\path","*.*"
    PutAttachment ".\Plugin" ,"RegDll.dll"
    Call Plugin.RegDll.Reg("D:\path\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:\path\dm.dll /s"
        set ws=nothing
        Delay 1500  
        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:\path\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:\path"
    Delay 500
End Sub
Sub OnScriptExit()
    dm_ret = dm.UnBindWindow()
    If dm_ret = 1 Then 
        TracePrint "解除绑定成功"
    End If
End Sub
评论列表: (共0条评论)

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。