求TC5.0的大漠免注册写法

jianxitt

用以前的注册写法,一运行程序就会崩溃,求大神看看哪里有错?

1. 功能 免注册大漠()
   
2.     //变量 ws=com("Wscript.Shell")
   
3.     //ws.run("regsvr32 atl.dll /s")
   
4.     变量 DmReg路径=获取资源路径("rc:DmReg.dll")
   
5.     变量 Dm路径=获取资源路径("rc:dm.dll")
   
6.     dllcall(DmReg路径,"int","SetDllPathA","char *",Dm路径,"ini",0)
   
7.     dm = com("dm.dmsoft")
   
8.    
   
9.     如果(dm.Ver()!=5.1423)
   
10.         消息框("插件注册失败")
    
11.         //退出()
    
12.     否则
    
13.         消息框("注册成功")
    
14.        消息框(dm.Ver())
    
15.     结束
    
16.    
    
17.     dm=null
    
18.     dm=com("dm.dmsoft")
    
19.     变量 dm_ret = dm.Reg("注册码","")
    
20.     如果(dm_ret!=1)
    
21.         消息框("注册失败,只能使用免费功能:"&dm_ret)
    
22.     否则
    
23.         消息框("插件收费功能注册成功")
    
24.     结束
    
25. 结束

复制代码

今非

变量必须声明  
资源路径函数

jianxitt

今非 发表于 2015-2-25 21:47
变量必须声明  
资源路径函数

全局变量 dm已经声明,资源路径也声明了,就是一运行就自动消失

今非

jianxitt 发表于 2015-2-26 09:52
全局变量 dm已经声明,资源路径也声明了,就是一运行就自动消失

5.0 没咋用 你下断点调试下吧

sohucomwww

int你写个ini能不崩溃么，不谢，赶紧给个赞

2645572175