大漠插件 教程(大漠插件教程)
大家好,今天小六子来为大家解答以下的问题,关于大漠插件 教程,大漠插件教程这个很多人还不知道,现在让我们一起来看看吧!
1、这里只以按键8作为例子,其它语言都类似。
2、// 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库,图片等)也可以一并打包// 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时,记得更改这个值.need_ver = "3.1233"// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败,这里手动注册一下atl.dllset ws=createobject("***.Shell")ws.run "regsvr32 atl.dll /s"set ws=nothing// 释放附件>>>>>>>>>>>>>>>>>>>// 这里选择c盘的test_game作为插件的基本目录 也就是SetPath对应的目录。
3、所以所有资源都释放在此目录.PutAttachment "c:est_game","*.*"// 这里要用到RegDll来注册插件,所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.PutAttachment ".Plugin" ,"RegDll.dll"// 插件注册开始>>>>>>>>>>>>>>>>>>>// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。
4、以免有别人把dm.dll释放在系统目录.造成版本错误.Call Plugin.RegDll.Reg("c:est_gamedm.dll") // 这里判断是否注册成功set dm = createobject("dm.dmsoft")ver = dm.Ver()if ver <> need_ver then// 先释放先前创建的dmset dm = nothing // 再尝试用regsvr32 来注册. 这里必须使用绝对路径。
5、以免有别人把dm.dll释放在系统目录.造成版本错误.set ws=createobject("***.Shell")ws.run "regsvr32 c:est_gamedm.dll /s"set ws=nothingDelay 1500 // 再判断插件是否注册成功set dm = createobject("dm.dmsoft")ver = dm.Ver()if ver <> need_ver then// 这时,已经确认插件注册失败了。
6、 弹出一些调试信息,以供分析.messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()messagebox "请关闭程序,重新打开本程序再尝试" endscript end ifend if// 插件注册结束<<<<<<<<<<<<<</ 收费注册开始,简单游作者不需要这一段(加了也没关系,不会扣费),非简单游平台付费作者必须添加>>>>>>>>>>>>>>>// 当然,如果是在按键精灵上使用,这段代码是可以注释掉。
7、大部分功能可以直接在按键平台使用。
8、无须注册.// ok,这里已经确认插件注册成功,并且创建了对象,下面开始注册收费服务.// 当然这里也可以使用高级的RegEx函数.dm_ret = dm.Reg("abcdefg","0001") // abcdefg是您的注册码. 在大漠插件网站后台可以直接获取.if dm_ret <> 1 then messagebox "注册失败,返回值是:"&dm_ret endscriptend if// 收费注册结束<<<<<<<<<<<<<<</这里设置插件基本目录dm.SetPath "c:est_game"// 获取句柄hwnd = dm.GetMousePointWindow()// 绑定dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)// 检测绑定返回值if dm_ret = 0 then last_error = dm.GetLastError()// 如果是WIN7 VISTA WIN2008系统,检测当前系统是否有开启UAC if dm.GetOsType() = 3 then // 有开启UAC的话,尝试关闭if dm.CheckUAC() = 1 then if dm.SetUAC(0) = 1 then // 关闭UAC之后,必须重启系统才可以生效 messagebox "已经关闭系统UAC设置,必须重启系统才可以生效。
9、点击确定重启系统" dm.ExitOs 2 Delay 2000 endscript end ifend if end if // 具体错误码的含义,可以参考函数GetLastError的说明. messagebox "绑定失败,错误码是:"&last_error messagebox "如果确定关闭了UAC,很可能是系统的防火墙拦截插件,请暂时关闭360等安全防火墙再尝试" endscriptend if// 下面就是脚本部分了 省略// 下面这是脚本结束时执行的部分Sub OnScriptExit() dm.UnBindWindowEnd Sub// 结束另外特别要注意,不要把dm.dll释放到Plugin目录,那样会导致插件在更新版本时出现注册失败的情况。
10、特别是在简单游平台.建议释放到C盘的某个目录比如Test目录等.另外,别的高级语言如何调用dm.dll,请百度XXXX语言如何调用Active X 对象. 目前经过测试的语言可以正常调用的有vc6 vb6 delphi 易,别的语言想必也不会有问题.从2.1118B版本之后,大漠插件将禁止释放到Plugin目录,以避免一系列升级产生的BUG!同时,也禁止用Plugin方式来调用插件,那个方式也是非常不安全的.请大家严格按照vbs的语法来使用插件.如果是多线程使用大漠插件,必须每个线程都要创建一个dm对象.注册过程脚本开始时,执行一次就行了,没必要每个线程都执行.。
本文分享完毕,希望对你有所帮助。