按键精灵,有好几个版本,哪个版本是免费的,且可以实现游戏中后台点击鼠标的?(请看补充)
一般都用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()
后面写上你按键精灵的代码就行了.
当然那些命令你还不熟悉,就要看这个文件.里面有大漠的全部命令.
---------------------------------------------------------------------------------------
后台鼠标点击的问题,窗口分主窗口和客户区窗口,而两个窗口是不同的句柄,如果句柄不对,肯定达不到目的,当然按键精灵原版说实话对后台运行确实也不怎么样.尤其是对模拟器,