转:用vbs脚本生成大漠5.1423易语言免注册调用模块 兼容多线

cjxdn

用vbs脚本生成大漠5.1423易语言免注册调用模块 兼容多线程 破/解收费功能
http://www.52pojie.cn/thread-599550-1-1.html
(出处: 吾爱破/解论坛)


1.照搬大漠函数，方便对照大漠接口说明编写代码
2.破/解收费功能，不是什么秘密了
3.动态调用dmreg.dll创建对象，不注册插件
4.兼容多线程，不需要初始化COM和反初始化
5.模块总大小1.25 MB，大漠本身1.11 MB，DmReg48.0 KB，绿色纯净，不知道为什么别人的模块2M，3M加了什么东西。
--------------------------------------------------------------IDA文件

--------------------------------------------------------------脚本部分

1. DM_IDL = 读文本内容("C:\Users\Administrator\Desktop\dm5_1423.IDL")
   
2. DM_IDL_Arr = Split(DM_IDL, "HRESULT")
   
3. DM_IDL_Arr_L = UBound(DM_IDL_Arr)
   
4. 
   
5. Call 删除文件("c:\dm5_1423.txt", 1)
   
6. Call 创建文件("c:\dm5_1423.txt")
   
7. 
   
8. 版本 = ".版本 2" & vblf
   
9. TracePrint "开始生成：" & Now
   
10. For i = 1 To DM_IDL_Arr_L
    
11.         返回值部分 = Split(Split(DM_IDL_Arr(i), "[out, retval] ")(1), "* ret")(0)
    
12.         子程序 = Replace(Split(DM_IDL_Arr(i), "(")(0)," ","")
    
13.         返回值 = iif(返回值部分 = "long", "整数型", "文本型")
    
14.         调用方法 = iif(返回值 = "整数型", "返回(dm.数值方法 (“" & 子程序 & "”, ", "返回(dm.文本方法 (“" & 子程序 & "”, ")
    
15.         子程序 = ".子程序 " & 子程序 & ", " & 返回值 & ", 公开" & vblf
    
16.         参数部分 = Split(Split(DM_IDL_Arr(i), "(")(1), "[out, retval]")(0)
    
17.         参数部分 = Replace(参数部分,"[in] long ","整数型[        DISCUZ_CODE_0        ]quot;)
    
18.         参数部分 = Replace(参数部分, "[in] BSTR ", "文本型[        DISCUZ_CODE_0        ]quot;)
    
19.         参数部分 = Replace(参数部分,"[in] single ","小数型[        DISCUZ_CODE_0        ]quot;)
    
20.         参数部分 = Replace(参数部分, "[in] double ", "双精度小数型[        DISCUZ_CODE_0        ]quot;)
    
21.         参数部分 = Replace(参数部分, "[out] VARIANT* ", "参考$整数型[        DISCUZ_CODE_0        ]quot;)
    
22.         参数部分 = Replace(参数部分, "[in, out] VARIANT* ", "参考$整数型[        DISCUZ_CODE_0        ]quot;) //通常是没显式声明
    
23.         //参数部分 = Replace(参数部分, "[out] VARIANT* ", "参考$变体型[        DISCUZ_CODE_0        ]quot;)
    
24.         //参数部分 = Replace(参数部分, "[in, out] VARIANT* ", "参考$变体型[        DISCUZ_CODE_0        ]quot;) //通常是没显式声明
    
25.         参数部分 = Replace(参数部分," ","")
    
26.         参数部分s = Split(参数部分, ",")
    
27.         参数部分数量 = UBound(参数部分s)
    
28.         参数 = ""
    
29.         传入参数 = ""
    
30.         For l = 0 To 参数部分数量 - 1
    
31.                 单个参数s = Split(参数部分s(l), "[        DISCUZ_CODE_0        ]quot;)
    
32.                 单个参数s_s = UBound(单个参数s)
    
33.                 tmp = ""
    
34.                 tmp = 单个参数s(单个参数s_s)
    
35.                 传入参数 = 传入参数 & tmp & ", "
    
36.                 单个参数s(单个参数s_s) = 单个参数s(0)
    
37.                 单个参数s(0) = tmp
    
38.                 参数部分s(l) = Join(单个参数s,"[        DISCUZ_CODE_0        ]quot;)
    
39.                 参数部分s(l) = ".参数 " & Replace(参数部分s(l), "[        DISCUZ_CODE_0        ]quot;, ", ")
    
40.                 参数部分s(l) = Replace(参数部分s(l),vbcrlf,"")
    
41.                 参数 = 参数 & 参数部分s(l) & vblf
    
42.         Next
    
43.         If 传入参数 <> "" Then
    
44.                 传入参数 = Left(传入参数, Len(传入参数) - 2)
    
45.         End If
    
46.         传入参数 = 传入参数 & "))"
    
47.         Call 写文本内容("c:\dm5_1423.txt", 版本 & 子程序 & 参数 & 调用方法 & 传入参数)
    
48. Next
    
49. TracePrint "生成完毕：" & Now
    
50. 
    
51. Function iif(val1, val2, val3)
    
52.         If val1 Then
    
53.                 iif = val2
    
54.         Else
    
55.                 iif = val3
    
56.         End If
    
57. End Function
    
58. 
    
59. Sub 创建文件(文件名)
    
60.     Set fso = CreateObject("Scripting.FileSystemObject")
    
61.     Set myfile = fso.CreateTextFile(文件名)
    
62.     Set myfile = Nothing
    
63.     Set fso = Nothing
    
64. End Sub
    
65. 
    
66. Sub 删除文件(文件名, 是否删除只读文件)
    
67.     Set fso = CreateObject("Scripting.FileSystemObject")
    
68.     fso.deletefile 文件名, 是否删除只读文件
    
69.     Set fso = Nothing
    
70. End Sub
    
71. 
    
72. Function 读文本内容(文件名)
    
73.     Set fso = CreateObject("Scripting.FileSystemObject")
    
74.     If fso.FileExists(文件名) Then
    
75.         Set myfile = fso.openTextFile(文件名, 1)
    
76.         读文本内容 = myfile.ReadAll
    
77.         myfile.close
    
78.         Set myfile = Nothing
    
79.     End If
    
80.     Set fso = Nothing
    
81. End Function
    
82. 
    
83. Sub 写文本内容(文件名, 写入文本)
    
84.     Set fso = CreateObject("Scripting.FileSystemObject")
    
85.     If fso.FileExists(文件名) Then
    
86.         Set myfile = fso.openTextFile(文件名, 8, True)
    
87.         myfile.WriteLine 写入文本
    
88.         myfile.close
    
89.         Set myfile = Nothing
    
90.     End If
    
91.     Set fso = Nothing
    
92. End Sub

复制代码

--------------------------------------------------------------生成完毕

--------------------------------------------------------------去复制出来

--------------------------------------------------------------粘贴到大漠类型库并编写创建对象的几个函数就完成了

--------------------------------------------------------------成品下载


dll释放路径
默认释放到应用数据目录\dm_soft
如果木有就释放到临时目录\dm_soft
如果也木有就释放到程序目录\plugin

这个TC能用吗
有人能转成TC使用吗

言术

不会有人帮你转的，感觉大漠没前途了

chen1882729

江中游游免注册大漠插件，TC可以用，现在在用6.X**了

cjxdn

言术 发表于 2017-4-15 16:05
不会有人帮你转的，感觉大漠没前途了

大漠都没前途
那啥插件有前途了

cjxdn

chen1882729 发表于 2017-4-15 18:43
江中游游免注册大漠插件，TC可以用，现在在用6.X**了

要的是破/解功能

chen1882729

破/解功能本论坛不是有加群就有

cjxdn

chen1882729 发表于 2017-4-16 00:28
破/解功能本论坛不是有加群就有

论坛里或群里的都用过

//5.1423//6.1538//破/解不彻底,每一小时内DM所有命令失效导致脚本报错

武昌剩竹 岥解大漠3.1233版本 在有些电脑环境对大漠**时脚本报错

所以想尝试一下其它没用过的

chen1882729

cjxdn 发表于 2017-4-16 01:03
论坛里或群里的都用过

//5.1423//6.1538//破/解不彻底,每一小时内DM所有命令失效导致脚本报错

只能等有人放注册码的时候，拿正版的注册码自己试试，无非就是未注册的时候是0，注册后变成1.

dzb123

这个不用  写注册码？

myhzy

cjxdn 发表于 2017-4-16 01:03
论坛里或群里的都用过

//5.1423//6.1538//破/解不彻底,每一小时内DM所有命令失效导致脚本报错

写内存**版本用1小时后大漠函数命令全失效？还是？