TC官方合作论坛

标题: 关于大漠对象的问题 [打印本页]
作者: jianxitt    时间: 2014-11-12 19:58
标题: 关于大漠对象的问题
如果是用收费的大漠.
要创建的对象,哪位前辈知道该如何写?


明明有成功插入了对象,结果也只有一个dm在运行.
是不是每个大漠收费对象,都得用注册码再注册一次?


  1. 空间 测试
  2. 变量 dm,大漠=数组[]
  3. 功能 初始化()
  4. 遍历(i=0;i<5;i++)
  5. dm = com("dm.dmsoft")
  6. 数组空间.增加(大漠,dm)   
  7. 遍历结束
  8. 功能结束

  10. 功能 绑定窗口(下标)
  11.   // 这里的窗口句柄,会用其他办法获得
  12.   大漠[下标] = (hwnd,"dx","dx","dx",0)
  13. 功能结束

  15. 功能 注册大漠()
  16.    
  17.     辅助.注册插件(辅助.获取资源路径("rc:dm.dll"),真)
  18.     dm = com("dm.dmsoft")
  19.     大漠版本 = dm.Ver()
  20.     如果(大漠版本=="5.1423")
  21.         调试输出("[大漠注册]注册成功!")
  22.         
  23.         dm_ret = dm.Reg("注册码","")
  24.         如果(dm_ret==1)
  25.             调试输出("[大漠注册VIP]注册成功!")
  26.         否则
  27.             调试输出("[大漠注册VIP]注册失败!")
  28.         如果结束
  29.     否则
  30.         调试输出("注册失败")
  31.     如果结束
  32. 功能结束
  33. 空间结束
复制代码




作者: mzbqhbc    时间: 2014-11-12 21:15

注释的内容为我改的


空间 测试
变量 dm,大漠=数组[]
功能 初始化()   //这里不该写在初始化的地方   初始化的地方该注册插件
遍历(i=0;i<5;i++)
dm = com("dm.dmsoft")//应该这样------>大漠[i]=com("dm.dmsoft")                   ///这里直接实例化了5个大漠对象   
数组空间.增加(大漠,dm)   ///大漠插件的数组不应该是这样的  这句直接就应该不要的
遍历结束////执行完这个循环操作后 将可以使用:大漠[0],大漠[1],大漠[2],大漠[3],大漠[4]   来直接调用大漠插件
功能结束

功能 绑定窗口(下标)
  // 这里的窗口句柄,会用其他办法获得
  大漠[下标] = (hwnd,"dx","dx","dx",0)//大漠插件不是这样用的啊     应该这样------>    绑定是否成功=大漠[下标].BindWindow(hwnd,"dx","dx","dx",0)
功能结束

功能 注册大漠()
   
    辅助.注册插件(辅助.获取资源路径("rc:dm.dll"),真)
    dm = com("dm.dmsoft")
    大漠版本 = dm.Ver()
    如果(大漠版本=="5.1423")
        调试输出("[大漠注册]注册成功!")
        
        dm_ret = dm.Reg("注册码","")
        如果(dm_ret==1)
            调试输出("[大漠注册VIP]注册成功!")
        否则
            调试输出("[大漠注册VIP]注册失败!")
        如果结束
    否则
        调试输出("注册失败")
    如果结束
功能结束
空间结束
作者: jianxitt    时间: 2014-11-13 00:18
mzbqhbc 发表于 2014-11-12 21:15
注释的内容为我改的

先生大才,小弟不胜感激!!!1



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1