|
发表于 2011-11-14 20:08:51
|
显示全部楼层
北京市北京市
[e].版本 2
.支持库 spec
.程序集 程序集1
.程序集变量 窗口, 窗口类
.程序集变量 标签, 标签类
.程序集变量 字体, 黑月字体
.程序集变量 服务器, 服务器
.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码
子程序1 ()
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 返回值被忽略。
.子程序 _临时子程序
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
.子程序 子程序1
.局部变量 父句柄, 整数型
窗口.创建 (, “小林制作 打印身份事件”, &处理事件, #窗口扩展_总在最前 + #窗口扩展_阴影边缘 + #窗口风格_禁止 + #窗口风格_对话框边框, , , , 300, 58)
.子程序 处理事件
' 窗口.置父窗口 (取句柄_1级 (, “旺旺吧上网经营管理系统 - 控制台”))
' 窗口.移动 (窗口.宽度 () + 420, 窗口.高度 () - 30, , )
标签.创建 (窗口.取窗口句柄 (), “”, , , , 385, 32)
标签.文本色 (#红色)
标签.背景色 (#黑色)
.如果真 (服务器.创建 (19003, 99))
调试输出 (“启动成功”)
.如果真结束
服务器.事件_数据到达 (&数据到达)
.子程序 数据到达
.参数 句柄, 整数型
.局部变量 临时, 字节集
.局部变量 数据, 客户数据
.局部变量 文本, 文本型
数据 = 服务端分解数据 (句柄)
数据.数据 = 临时
文本 = 到文本 (临时)
调试输出 (临时)
[/e] |
|