『壹』 按鍵精靈大漠插件如何安裝
大漠插件幫助文件裡面其實是有說明的
首先新建一個腳本 把文件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