按键精灵，有好几个版本，哪个版本是免费的，且可以实现游戏中后台点击鼠标的？（请看补充）
发布网友
发布时间：2022-04-23 18:48
共1个回答
热心网友
时间：2023-10-13 15:23
一般都用2014版,大漠插件有免费版的 版本号是 3.1233
怎么注册我教你
下载大漠插件3.1233
如果需要解压就解压,把解压后的dm.dll和RegDll.dll2个文件放到按键精灵附件中.
运行以下代码.这个是注册大漠插件的,也可以当做模板来使用,以后做脚本的时候把脚本放到//↑↑↑↑↑↑↑↑↑ 脚本结束 ↑↑↑↑↑↑↑↑↑ 这个上面就可以了.
//这个是使用大漠插件的模板,使用大漠插件必须先注册,这里的模板已经包含注册// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包
// 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
//↓↓↓↓↓↓↓↓↓ 大漠参数相关设置 ↓↓↓↓↓↓↓↓↓
Const need_ver = "3.1233"
Const BasePath = "D:\大漠释放\文件"//大漠所在路径
//↑↑↑↑↑↑↑↑↑ 大漠参数相关设置 ↑↑↑↑↑↑↑↑↑
Call RegDm()
//↓↓↓↓↓↓↓↓↓ 脚本开始 ↓↓↓↓↓↓↓↓↓
If dm.DmGuard(1, "np") = 0 Then
TracePrint "打开保护盾失败"
ElseIf dm.DmGuard(1, "np") = 1 Then
TracePrint "打开保护盾成功......"
Else
TracePrint "未知错误"
End If
//↑↑↑↑↑↑↑↑↑ 脚本结束 ↑↑↑↑↑↑↑↑↑
////↓↓↓↓↓↓↓↓↓ 大漠常用函数 ↓↓↓↓↓↓↓↓↓
Sub RegDm()
Dim patharr, i, FatherPath, ver, base_path
patharr = split(BasePath, "\")
For i = 0 To UBound(patharr)
If i = 0 Then
FatherPath = FatherPath & "\" & patharr(i)
Else
Call Plugin.File.CreateFolder(FatherPath)//创建路径
Delay 1000
End If
Next
PutAttachment BasePath, "*.*"//释放所有附件到BasePath中
Set ws = createobject("Wscript.Shell")
// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
ws.run "regsvr32 atl.dll /s"
Call Plugin.RegDll.Reg(BasePath & "\dm.dll")//使用插件注册
Set dm = createobject("dm.dmsoft")//创建大漠对象
ver = dm.ver()//等到大漠对象的版本
//如果系统没注册的ver为空,如果已经注册,等到的ver做比较
If ver <> need_ver Then//符合就注册
If ver <> "" Then //如果ver不是空,说明有其他版本
base_path = dm.getBasePath()
Set dm = nothing
ws.run "regsver32 /u /s " & base_path & "dm.dll"
Delay 1000
ver = ""
Set dm = createobject("dm.dmsoft")
ver = dm.ver()//等到大漠对象的版本
If ver = "" Then
TracePrint "卸载大漠旧版本成功"
Else
MessageBox "大漠卸载失败,当前大漠版本为: " & ver & " 大漠所在路径为 " & dm.getBasePath()
ExitScript
End If
End If
ws.run "regsvr32 " & BasePath & "\dm.dll /s"
Delay 1000
ver = ""
Set dm = createobject("dm.dmsoft")
ver = dm.ver()
If ver <> need_ver Then
MessageBox "大漠注册失败,当前大漠版本为: " & ver & " 大漠所在路径为 " & dm.getBasePath()
ExitScript
End If
End If
Set ws = nothing
TracePrint "大漠注册成功,当前大漠版本为: " & ver & " 大漠所在路径为 " & dm.getBasePath()
// 以下代码把全局路径设置到了c盘根目录
dm_ret = dm.SetPath(BasePath)
End Sub
如果调试运行,显示如下,那么说明注册成功了
----------------------------------------注册完毕----------------------------------------
刚才第3步中说到可以当模板来使用, 还有更加简单的方法使用大漠插件,当然前提是注册成功之后.
使用下面的代码直接使用大漠插件,也不需要将Dll文件放入附件
Set dm = CreateObject("dm.dmsoft") //创建大漠并得到大漠的版本TracePrint "当前大漠注册版本号: " & dm.ver()
后面写上你按键精灵的代码就行了.
当然那些命令你还不熟悉,就要看这个文件.里面有大漠的全部命令.
---------------------------------------------------------------------------------------
后台鼠标点击的问题,窗口分主窗口和客户区窗口,而两个窗口是不同的句柄,如果句柄不对,肯定达不到目的,当然按键精灵原版说实话对后台运行确实也不怎么样.尤其是对模拟器,
追问太麻烦了，注册一遍没成功放弃了，这种私人开发的插件就是bug多，对于需求少的普通人来说，有研究安装这个插件的时间，早就找到更好的替代方案了（不能后台点击，那就开着窗口做界面点击呗）