TC官方合作论坛

标题: dm_ret = dm.Reg("abcdefg","") [打印本页]

作者: zhangningde1987 时间: 2015-9-26 17:03
标题: dm_ret = dm.Reg("abcdefg","")
第一次使用大漠5.0 发现了很多不一样的地方  求高手给帮忙解决
dm_ret = dm.Reg("abcdefg","")  大漠的这个语句  我在5.0使用中提示错误的表达式语句  .Reg("abcdefg","")
大家给说说  我5.0的该怎么写非常感谢!!!

作者: 这论坛不错 时间: 2015-9-26 22:41
5.0的写法也是这样，但是你的dm不是大漠对象，插件没注册成功吧

作者: zhangningde1987 时间: 2015-9-26 23:31
变量线程ID
变量 dm=com("dm.dmsoft")

功能执行()
//从这里开始你的代码
结束

功能搜狗浏览器_初始化()
变量 dm_ret
变量程序路径=系统获取工作路径()
变量配置路径=程序路径&"configs.ini"
dm=免注册插件("4.1336")
dm_ret = dm.Reg("zhangningde19870cf56be0869e0d34791e31f410bb814d","")
调试输出(dm_ret)
如果(dm_ret!=1)
      调试输出("注册不成功!!!")
否则
      调试输出("收费插件注册成功")
结束
结束

功能免注册插件(版本)
变量 DmReg路径,Dm路径,ws
ws=com("Wscript.Shell")
ws.run("regsvr32 atl.dll /s")
DmReg路径=获取资源路径("rc:DmReg.dll")
Dm路径=获取资源路径("rc:dm.dll")
dllcall(DmReg路径,"int","SetDllPathA","char *",Dm路径,"int",0)
等待(随机数(100,1000))
dm=插件("dm.dmsoft")
如果(获取变量类型(dm)=="com")
      调试输出(dm.Ver())
      如果(dm.Ver()!=版本)
         调试输出("插件注册失败,请联系作者!!")
         退出()
      否则
         调试输出("插件注册成功,返回大漠")
         返回 dm
      结束
否则
      调试输出("插件注册失败,请联系作者!!")
      退出()
结束
结束

现在问题是运行到Reg这 TC就卡死了

作者: z905112236 时间: 2015-10-8 22:44
启动事件中执行搜狗浏览器_初始化() 方法是以线程形式开启的吧

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