大漠免注册的正确源码

hualaosi

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. 空间结束

复制代码

兄弟，你想多了。
用以下的代码吧：

hualaosi

抱歉，我也是新手，没把我系统的的com卸载就测试，问题找到了，你的代码中和插件文件中二次问题

第一处：把资源中的regdll.dll换成我上面提供的dmreg.dll，你用错文件了。

第二处：修改代码
dllcallret=dllcall(辅助.获取资源路径("rc:dmreg.dll"),"int","SetDllPathA","char *",辅助.获取资源路径("rc:dm.dll"),"int",0)

你再试？

hualaosi

测试了，是你的regdll.dll版本问题。

itcfan

hualaosi 发表于 2014-3-28 13:31
兄弟，你想多了。
用以下的代码吧：

是不是不能放在功能 初始化()？

itcfan

先卸载了掉DM.DLL
再运行代码，就出现这样。
如果注册成功，那就不会报错，能调试输出：时间。

我就是这个搞不懂，软件发给别人，总不能让人主动去注册COM吧？

itcfan

hualaosi 发表于 2014-3-28 13:34
测试了，是你的regdll.dll版本问题。

测试了一样会这样，你试试先卸载DM.DLL，再运行代码看看。

itcfan

hualaosi 发表于 2014-3-28 14:09
抱歉，我也是新手，没把我系统的的com卸载就测试，问题找到了，你的代码中和插件文件中二次问题

第一处： ...

我想说，某些免注册的教学视频是不是要更新了？
dllcallret=dllcall(辅助.获取资源路径("rc:dmreg.dll"),"int","SetDllPathA","char *",辅助.获取资源路径("rc:dm.dll"),"int",0)
使用后确实能可以了。非常感谢你！

hualaosi

不客气，共同进步。实际上，用这种方法使用大漠，系统没残留，关闭脚本后，插件所占资源自然就释放干净了。

超自然

itcfan 发表于 2014-3-28 13:12
这是我的代码，帮我分析一下

1233有免注册方法??
只有1235之后的版本才有免注册的

hualaosi

超自然 发表于 2014-3-28 17:37
1233有免注册方法??
只有1235之后的版本才有免注册的

教程里是这样说的。我信了~~