求教5.0版本怎么写大漠免注册

malaigou

啊怎么写都不对求个大大会的来教教

malaigou

现在用得都是接口注册

九州烟雨

1. 功能 注册大漠插件(&对象)
   
2.     变量 电脑版本,大漠路径,插件免注册,ws,注册码,大漠插件版本号,Ret,控制开关 = 真
   
3.     Ret = 是否注册("xx.xxx")
   
4.     如果(Ret == 假)
   
5.         电脑版本 = 系统获取版本号()
   
6.         调试输出("[注册大漠插件] 系统版本: " & 电脑版本)
   
7.         //Win8系统
   
8.         如果(电脑版本 == 7 || 电脑版本 == 8 || 电脑版本 == 9 || 电脑版本 == 10)
   
9.             //采用正常的注册方式
   
10.             Ret = 注册插件(获取资源路径("rc:定制版.dll"),真)
    
11.             调试输出("[注册大漠插件] 注册插件 Ret: " & Ret)
    
12.             如果(Ret == 假)
    
13.                 调试输出("[注册大漠插件] 注册失败!")
    
14.                 控制开关 = 假
    
15.             否则
    
16.                 如果(Ret = 真)
    
17.                     调试输出("[注册大漠插件] 注册成功!")
    
18.                 结束
    
19.             结束
    
20.         否则
    
21.             //采用免注册
    
22.             大漠路径 = 获取资源路径("rc:定制版.dll")
    
23.             插件免注册 = 获取资源路径("rc:免注册.dll")
    
24.             //解决xp系统Ghost版 atl.dll 被精简掉的问题
    
25.             ws = com("Wscript.shell")
    
26.             ws.run("regsvr32 atl.dll /s")
    
27.             Ret = dllcall(插件免注册, "int", "SetDllPathA", "char *", 大漠路径, "int", 0)
    
28.             如果(Ret == 1)
    
29.                 调试输出("[注册大漠插件] 免注册大漠插件成功")
    
30.             否则
    
31.                 调试输出("[注册大漠插件] 免注册大漠插件失败")
    
32.                 控制开关 = 假
    
33.             结束
    
34.         结束
    
35.     结束
    
36.     如果(控制开关)
    
37.         //这是公共对象
    
38.         对象 = 插件("xx.xxx")
    
39.         大漠插件版本号 = 对象.Ver()
    
40.         调试输出("[注册大漠插件] 当前大漠插件版本号: " & 大漠插件版本号)
    
41.         //开始注册收费功能
    
42.         注册码 = 读取注册码("xxxxxxx")
    
43.         Ret = 对象.Reg(注册码,"0001")
    
44.         如果(Ret == 1)
    
45.             调试输出("[注册大漠插件] 注册收费功能成功")
    
46.         否则
    
47.             调试输出("[注册大漠插件] 注册收费功能失败")
    
48.         结束
    
49.     结束
    
50. 结束
    
51. //----------------------------读取注册码-------------------------//
    
52. 功能 读取注册码(密码)
    
53.     变量 内容,注册码
    
54.     //读取资源内的文本文档
    
55.     内容 = 文件读指定行(获取资源路径("rc:注册码.txt"),0)
    
56.     如果(内容 != "")
    
57.         注册码 = aes解密(内容,密码)
    
58.     结束
    
59.     返回 注册码
    
60. 结束

复制代码

九州烟雨

{:soso_e100:}

malaigou

九州烟雨 发表于 2015-11-26 22:03

大神很感谢你 但是我依旧看不懂   因为我学的那个教程有公共库 是直接复制或者直接调用写好的免注册 是4.0版本的 5.0我是真写不出  求简化直接复制注册码的那种免注册  大神考虑因素太多了   新手挺笨的 求大神见谅

malaigou

九州烟雨 发表于 2015-11-26 22:03

我只知道要把那免注册文件和dm.dll放进资源目录 的免注册 用了随风大神的模块虽然注册成功 但是一运行就未响应

malaigou

九州烟雨 发表于 2015-11-26 22:03

大神 再次感谢你了我已经弄成了

yunqi666

九州烟雨 发表于 2015-11-26 21:49

大神  你的  xx.xxx   填什么啊

九州烟雨

yunqi666 发表于 2015-12-31 15:46
大神  你的  xx.xxx   填什么啊

对象接口，我的是定制的，一般默认都是：dm.dmsoft

yunqi666

九州烟雨 发表于 2015-11-26 21:49

&对象   说这里出错误   不知道怎么回事