马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- 空间 跨空间对象调用测试
- dm=数组[0]
- 功能 开始_点击()
- 线程.开启("跨空间对象调用测试.主线程","")
- 功能结束
- 功能 主线程()
- 返回值=系统.枚举("记事本",0)
- 句柄数组
- if(字符串.查找字符串(返回值,"|")<=0)
- help.messagebox("请打开记事本")
- 返回 假
- endif
- 字符串.分割(返回值,"|",句柄数组)
- 数组大小
- 数组空间.大小(句柄数组,数组大小)
- for(i=0;i<数组大小;i++)
- dm=数组空间.重定义(dm,true,i+1)
- dm[i]=com("dm.dmsoft")
- 合并字符=句柄数组[i]&"|"&i
- 线程.开启("子空间1.子空间线程",合并字符)
- endfor
- 功能结束
- 功能 退出_点击()
- 辅助.退出()
- 功能结束
- 空间结束
- //.........子空间部分........
- 空间 子空间1
- 功能 子空间线程(参数)
- 合并数组
- 字符串.分割(参数,"|",合并数组)
- hwnd=合并数组[0]
- i=合并数组[1]
- 对象=跨空间对象调用测试.dm[i]
- //注意看这句,和以前同空间调用是不一致的,也就是说对象也是可以赋值的
- help.messagebox(对象.ver())
- dmret=对象.BindWindow(hwnd,"dx","dx","dx",0)
- if(dmret==0)
- help.messagebox("绑定失败!")
- 返回 假
- endif
- 对象.SetWindowSize(hwnd,200,450)
- //....其他操作
- 功能结束
- 空间结束
复制代码
|