TC官方合作论坛

标题: 免注册就崩溃 [打印本页]

作者: lcc468255 时间: 2015-10-7 15:41
标题: 免注册就崩溃

功能免注册大漠(版本)
变量路径,ws,dm,dmReg路径,dm路径,dllcallret
路径= 系统获取进程路径()&"\\BMP"
ws=com("Wscript.Shell")
ws.run("regsvr32 atl.dll /s")
dmReg路径=路径&"\\DmReg.dll"
dm路径=路径&"\\dm.dll"
dllcallret=dllcall(dmReg路径,"int","SetDllPathA","char *",dm路径,"int",0)
等待(随机数(100,500))
dm=com("dm.dmsoft")
调试输出(获取变量类型(dm))
如果(获取变量类型(dm)=="com")
      如果(dm.Ver()!=版本)
         调试输出("请注意版本不匹配")
         调试输出(dm.Ver())
         退出()
      结束
      调试输出(dm.Ver())
      返回 dm
否则
      调试输出("注册失败")
      退出()
结束
结束

QQ图片20151007153824.png (40.3 KB, 下载次数: 0)

作者: 九州烟雨 时间: 2015-10-7 17:16
有死循环或程序为完全关闭

作者: lcc468255 时间: 2015-10-7 19:25

九州烟雨发表于 2015-10-7 17:16
有死循环或程序为完全关闭

没有死循环直接调用这个功能的

作者: 787130008 时间: 2015-10-7 23:37
不要用返回对象

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)