|
|
发表于 2013-5-19 05:06:11
|
显示全部楼层
江苏省无锡市
用对象来调用大漠
[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 大漠对象, 整数型
.子程序 __启动窗口_创建完毕
加密狗注册 () ' 绑机版会员改成 模块注册()
' 写到文件 ("c:\dm.dll",#大漠)
.如果 (COM_创建对象 (“{26037A0E-7CBD-4FFF-9C63-56F2D0770214}”, “{D5ED8B83-6D3D-4699-BFEA-6C3566F087CE}”, “c:\dm.dll”, 大漠对象))
_启动窗口.标题 = “Ver:” + COM_文本型方法 (大漠对象, “Ver”)
.否则
_启动窗口.标题 = “创建大漠对象失败”
.如果结束
' COM_注册类型库 (“c:\dm.dll”)
.' 如果 (COM_获取对象 (“{26037A0E-7CBD-4FFF-9C63-56F2D0770214}”, “{D5ED8B83-6D3D-4699-BFEA-6C3566F087CE}”, 大漠对象))
' _启动窗口.标题 = “Ver:” + COM_文本型方法 (大漠对象, “Ver”)
.否则
' _启动窗口.标题 = “获取大漠对象失败”
.如果结束
.子程序 _按钮1_被单击, , , MoveWindow(hwnd,X,Y)
.局部变量 参数, 变体型, , "3"
参数 [1].赋值 (_启动窗口.取窗口句柄 (), ) ' hwnd
参数 [2].赋值 (10, ) ' X
参数 [3].赋值 (20, ) ' Y
COM_调用方法 (大漠对象, “MoveWindow”, 参数) ' MoveWindow(hwnd,X,Y)
[/e] |
|