『壹』 按键精灵大漠插件如何安装
大漠插件帮助文件里面其实是有说明的
首先新建一个脚本 把文件RegDll和dm两个插件添加到附件里面去
输入代码
Call Register_dm
Sub Register_dm
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws=nothing
PutAttachment ".", "dm.dll"
PutAttachment ".\Plugin", "RegDll.dll"
Call Plugin.RegDll.Reg(".\dm.dll")
Delay 200
Set dm = createobject("dm.dmsoft")
ver = dm.Ver()
If ver <> "3.1233" then
Set dm = nothing
Set ws=createobject("Wscript.Shell")
ws.run "regsvr32 .\dm.dll /s"
Set ws=nothing
Delay 1000
Set dm = createobject("dm.dmsoft")
Delay 200
ver = dm.Ver()
If ver <> "3.1233" then
MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath() & Chr(10) & "请关闭程序,重新打开本程序再尝试"
End if
End If
End Sub
运行一次即可
还有要把文件RegDll和dm两个插件复制到按键精灵的plugin文件夹中哦
『贰』 求高手给个按键精灵 大漠 后台找图点击的完整代码 谢谢！
//首先，你的电脑已经大漠注册了
set dm = createobject("dm.dmsoft")
dm.SetPath "d:"
//截好的图片这里是放在D盘下，可以修改
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,"gdi","windows","windows",0)
//gdi是图片模式，自己调试
dm_ret = dm.FindPic(0,0,2000,2000,"图片名.bmp","000000",0.9,0,x,y)
If x>= 0 Then
dm.MoveTo x,y
delay 200
dm.LeftClick
End If
dm_ret = dm.UnBindWindow()
EndScript