大漠免注册的正确源码

itcfan

现在学习了解到两种大漠的注册方法：
第一种是：
    ws=com("Wscript.Shell")
    ws.run("regsvr32 atl.dll /s")
    辅助.注册插件("rc:\\dm.dll",真)
非常简单，但360会报警，这会让一些人以为有病毒。

第二种是：
    dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc:dm.dll","int",0)  
    dm=com("dm.dmsoft")
    版本=3.1233
    如果(dm.Ver()!=版本)
        辅助.消息框("插件注册失败!","注意")
    否则
        辅助.消息框("插件注册成功!","恭喜")
        调试输出(dm.Ver())
    如果结束  
说是免注册，但测试发现，如果“接口查看器”没有注册COM，就不能正常使用？
那在别人的电脑里怎么可能会注册COM？这免注册意义何在？

================================解决方案==================================
  经过hualaosi 朋友的帮助，终于解决了问题所在：
一是免注册DLL的问题，附件上传来了。
二是代码问题，给某些免注册的教程视频误导了，下面给出一份最新正常运行的源码给大家。

1. 空间 大漠插件注册
   
2. 
   
3. 变量 dm
   
4. 
   
5. 功能 开始_点击()
   
6. 网络时间=dm.GetNetTime()
   
7. 辅助.消息框(网络时间)
   
8. 调试输出(网络时间)
   
9. 功能结束
   
10. 
    
11. 功能 初始化()
    
12. ws=com("Wscript.Shell")
    
13. ws.run("regsvr32 atl.dll /s")
    
14. dllcallret=dllcall(辅助.获取资源路径("rc:dmreg.dll"),"int","SetDllPathA","char *",辅助.获取资源路径("rc:dm.dll"),"int",0)
    
15. dm=com("dm.dmsoft")
    
16. 功能结束
    
17. 
    
18. 空间结束

复制代码

最后还是要非常感谢hualaosi 朋友，谢谢！

187144831

是你没搞懂

itcfan

187144831 发表于 2014-3-28 07:22
是你没搞懂

所以我才问啊~~

hualaosi

不知道我说的对不对，我的理解是：以下的代码
dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc:dm.dll","int",0)
就是注册插件，不过，不是用脚本直接注册，而是叫windows系统去帮你注册。
脚本发出的系统命令，当然会让流氓杀毒软件360盯上，但是windows发出的系统命令，360再流氓也不敢说不呀。。

比如我说，失联马航被我找到了，大家一定不相信。但如果中国官方发布了新闻发布会说，失联马航已经被网友hualaosi,找到了，并公布了我照的相片，那样大家就相信了，都认识我是英雄了。哈哈。。

总归四个字：曲线救国。
不知道我说的比喻正不正确。

itcfan

hualaosi 发表于 2014-3-28 11:48
不知道我说的对不对，我的理解是：以下的代码
dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc: ...

你的意思我明白，我想问的是：
使用：dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc:dm.dll","int",0)
dm.dll为什么在“接口查看器”没有注册COM，就不能正常使用？
也就是换台电脑，对方没有注册COM，那程序不是运行不正常了？
是我代码不对还是RegDll.dll不支持3.1233版本？

hualaosi

itcfan 发表于 2014-3-28 12:41
你的意思我明白，我想问的是：
使用：dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc:dm.dll ...

这个问题不存在，我测试过，这种曲线注册方式，在完全没有运行过大漠插件的电脑中，包括win7系统中都能顺利运行。

hualaosi

为防止网上Ghost系统把系统部分功能精简了，你用以下方式注册大漠，一定不会出问题

1.     ws=com("Wscript.Shell")
   
2.     ws.run("regsvr32 atl.dll /s")
   
3.     dllcallret=dllcall("rc:dmreg.dll","int","SetDllPathA","char *","rc:dm.dll","int",0)

复制代码

itcfan

不行啊，会出现这个错误。

注册COM后就一切正常了。

itcfan

能否给个完整的源码给我看一下，我自己分析一下那里出问题。

itcfan

1. 空间 大漠插件注册
   
2. 
   
3. 变量 dm
   
4. 
   
5. 功能 开始_点击()
   
6.     ws=com("Wscript.Shell")
   
7.     ws.run("regsvr32 atl.dll /s")
   
8.     //dllcallret=dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc:dm.dll","int",0)
   
9.     dm=com("dm.dmsoft")  
   
10.     线程.开启("大漠插件注册.自动注册大漠插件","")
    
11.     网络时间=dm.GetNetTime()
    
12.     调试输出(网络时间)   
    
13. 功能结束
    
14. 
    
15. 功能 自动注册大漠插件()
    
16.     程序DM版本="3.1233"
    
17.     是否成功=辅助.是否注册("dm.dmsoft")
    
18.     如果(是否成功)
    
19.         调试输出("插件已注册")
    
20.         dm=com("dm.dmsoft")
    
21.         调试输出("插件已注册,当前使用版本:"&dm.Ver())
    
22.         如果(程序DM版本!=dm.Ver())
    
23.             调试输出("插件已注册,插件版本错误重新注册")
    
24.             dllcallret=dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc:dm.dll","int",0)
    
25.             //是否成功=辅助.注册插件("rc:\\dm.dll",真)
    
26.             如果(是否成功)
    
27.                 dm=null
    
28.                 dmm=com("dm.dmsoft")
    
29.                 调试输出("插件注册成功,注册版本")
    
30.                 辅助.退出()
    
31.             如果结束
    
32.         如果结束
    
33.     否则
    
34.         调试输出("插件未注册,开始注册插件")
    
35.         dllcallret=dllcall("rc:RegDll.dll","int","SetDllPathA","char *","rc:dm.dll","int",0)
    
36.         //是否成功=辅助.注册插件("rc:\\dm.dll",真)
    
37.         如果(是否成功)
    
38.             调试输出("插件注册成功")
    
39.         如果结束
    
40.     如果结束
    
41. 功能结束
    
42. 
    
43. 空间结束

复制代码

这是我的代码，帮我分析一下