免注册就崩溃

lcc468255

功能 免注册大漠(版本)
    变量 路径,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
    否则
        调试输出("注册失败")
        退出()
    结束
结束

九州烟雨

有死循环 或 程序为完全关闭

lcc468255

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

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

787130008

不要用      返回 对象