注册的返回信息我直接打印出来，提示：0

以下是代码
.版本 2
.支持库 spec
.支持库 EThread
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 dm_ver, 文本型
SetDllPathA (取当前目录 () ＋ “\dm.dll”, 0)
输出调试文本 (“dm创建”)
dm.创建 ()
dm_ver ＝ dm.Ver ()
输出调试文本 (“版本号：” ＋ 到文本 (dm_ver))
dm.SetPath (取当前目录 () ＋ “\图片”)
输出调试文本 (“设置环境路径” ＋ 取当前目录 () ＋ “\图片”)
dm.SetDict (0, “ziku.txt”)
输出调试文本 (“获取字库”)
dm.SetMouseDelay (“dx”, 50)
输出调试文本 (“鼠标点击延迟”)
.子程序 _注册按钮_被单击
.局部变量 状态, 整数型
.局部变量 conut, 整数型
.局部变量 dm_ver, 文本型
调试输出 (编辑框注册码.内容, 编辑框附加码.内容)
dm_ret ＝ dm.Reg (编辑框注册码.内容, 编辑框附加码.内容)
.如果 (dm_ret ＝ 1)
注册标签.标题 ＝ “注册成功！”
.否则
注册标签.标题 ＝ “注册失败！原因：” ＋ 到文本 (dm_ret)
.如果结束
输出调试文本 (“注册信息：” ＋ 到文本 (dm_ret))
errCon ＝ 0
.子程序 结束任务释放资源
status ＝ 假
调试输出 (“释放线程，调整status：” ＋ 到文本 (status))
dm.UnBindWindow ()
调试输出 (“强制结束线程：” ＋ 到文本 (主线程句柄))
强制结束线程 (主线程句柄)
调试输出 (“！！！！！！！结束！！！！！！！”)
.子程序 __启动窗口_将被销毁
结束任务释放资源 ()

就一个注册功能，但是本机可以，给朋友就不行

估计是你朋友电脑没有安装大漠那个dll
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
regsvr32 dm.dll

楼主能说下大漠去哪下载吗

解决了，之前的大漠插件有问题，换了一个就好了