• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 11
发新话题 回复该主题

[其他] 大漠完美注册绑定源码==========新手福音 [复制链接]

1#
最近刚完成一个网页游戏脚本,抽了空发个大漠注册绑定源码,直接复制可以使用。
免费版本的可以在官网的插件里面可以下载到,我这里就不发了,以免有人说是病毒。
重点:不要把dm.dll放到按键精灵plug目录里面。注册前一定要把大漠的dm.dll和reg.dll放在按键精灵的附件里面。没事自己多调试,不要动不动就问人。


我直接复制大漠接口里面的没做修改,你们拿去用的时候直接把路径改一下就可以了。
我这是收费版本的,免费的你们就把收费的那段源码删掉就可以了,还有第一行那个

need_ver = "4.1336"
把他改成你们试用的版本号

//★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
//★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
//★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
//--------------------------下面的代码可以全部复制----------------------------


//
首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库,图片等)也可以一并打包

// 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时,记得更改这个值.

need_ver = "4.1336"

// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败,这里手动注册一下atl.dll

set ws=createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
set ws=nothing

// 释放附件>>>>>>>>>>>>>>>>>>>

// 这里选择c盘的test _game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.

PutAttachment "c:\test_game","*.*"

// 这里要用到RegDll来注册插件,所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.

PutAttachment ".\Plugin" ,"RegDll.dll"

// 插件注册开始>>>>>>>>>>>>>>>>>>>

// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.

Call Plugin.RegDll.Reg("c:\test_game\dm.dll")

// 这里判断是否注册成功

set dm = createobject("dm.dmsoft")

ver = dm.Ver()

if ver <> need_ver then

// 先释放先前创建的dm

set dm = nothing

// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.

set ws=createobject("Wscript.Shell")
ws.run "regsvr32 c:\test_game\dm.dll /s"
set ws=nothing
Delay 1500

// 再判断插件是否注册成功

set dm = createobject("dm.dmsoft")

ver = dm.Ver()

if ver <> need_ver then

// 这时,已经确认插件注册失败了。 弹出一些调试信息,以供分析.

messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()

messagebox "请关闭程序,重新打开本程序再尝试"

endscript

end if

end if

// 插件注册结束<<<<<<<<<<<<<<<

// 收费注册开始,简单游作者也必须要加这一段. 不会重复扣费.

// ok,这里已经确认插件注册成功,并且创建了对象,下面开始注册收费服务.
// 当然这里也可以使用高级的RegEx函数.

dm_ret = dm.Reg("abcdefg","0001") // abcdefg是您的注册码. 在大漠插件网站后台可以直接获取.

if dm_ret <> 1 then

messagebox "注册失败,返回值是:"&dm_ret

endscript

end if

// 收费注册结束<<<<<<<<<<<<<<<<

//这里设置插件基本目录

dm.SetPath "c:\test_game"

// 获取句柄

hwnd = dm.GetMousePointWindow()

// 绑定

dm_ret = dm.BindWindow(hwnd,"dx","dx","dx",0)

// 检测绑定返回值

if dm_ret = 0 then

last_error = dm.GetLastError()

// 如果是WIN7 WIN8 VISTA WIN2008系统,检测当前系统是否有开启UAC
if dm.GetOsType() = 3 or dm.GetOsType() = 4 or dm.GetOsType() = 5 then

// 有开启UAC的话,尝试关闭

if dm.CheckUAC() = 1 then

if dm.SetUAC(0) = 1 then

// 关闭UAC之后,必须重启系统才可以生效

messagebox "已经关闭系统UAC设置,必须重启系统才可以生效。点击确定重启系统"

dm.ExitOs 2
Delay 2000

endscript

end if

end if
end if

// 具体错误码的含义,可以参考函数GetLastError的说明.

messagebox "绑定失败,错误码是:"&last_error
messagebox "如果确定关闭了UAC,很可能是系统的防火墙拦截插件,请暂时关闭360等安全防火墙再尝试"

endscript

end if

// 下面就是脚本部分了 省略

// 下面这是脚本结束时执行的部分

Sub OnScriptExit()

dm.UnBindWindow

set dm = nothing

End Sub

// 线程结束时调用

Sub OnThreadExit()

dm.UnBindWindow

set dm = nothing

End Sub

// 结束


    已有255评分我要评分查看所有评分

    佳佳名言------你可以失败一次一百次一千次,但是最后一次你必须要赢!承接制作各类脚本QQ:554597401
    2#


    3#

    学习中

    4#

    5y65y5y35ey

    5#

    学习一下

    6#

    学习一下

    7#

    66666666

    8#

    222222222222222222222222

    9#

    看看

    10#

    完美注册绑定源码=======

    11#

    的教育阶段研究的研究

    12#

    324453863

    13#

    111111111111111

    14#

    Set dm = createobject("dm.dmsoft")

    15#

    学习学习

    16#

    just for look!!~!

    17#

    下面的代码可以全部复制

    18#


    19#

    看看 学习

    20#

    霜期塔顶霜期霜期塔顶

    发新话题 回复该主题