关于大漠对象的问题

jianxitt

如果是用收费的大漠.
要创建的对象,哪位前辈知道该如何写?


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

1. 空间 测试
   
2. 变量 dm,大漠=数组[]
   
3. 功能 初始化()
   
4. 遍历(i=0;i<5;i++)
   
5. dm = com("dm.dmsoft")
   
6. 数组空间.增加(大漠,dm)   
   
7. 遍历结束
   
8. 功能结束
   
9. 
   
10. 功能 绑定窗口(下标)
    
11.   // 这里的窗口句柄,会用其他办法获得
    
12.   大漠[下标] = (hwnd,"dx","dx","dx",0)
    
13. 功能结束
    
14. 
    
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

注释的内容为我改的


空间 测试
变量 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

mzbqhbc 发表于 2014-11-12 21:15
注释的内容为我改的

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