|
窗口中放置1个服务器和列表框就可以了,附件我就不上传了。
- .版本 2
- .支持库 spec
- .程序集 窗口程序集_启动窗口
- .子程序 __启动窗口_创建完毕
- .局部变量 项目数, 整数型
- .局部变量 变量1, 整数型
- .局部变量 死循环, 逻辑型
- 置随机数种子 ()
- 服务器1.端口 = 445 ' 此端口只要有客户进入就死循环的发随机数据
- 可视 = 真
- 死循环 = 真
- .判断循环首 (死循环 = 真) ' 进入死循环
- 项目数 = 列表框1.取项目数 ()
- .计次循环首 (项目数, 变量1)
- 服务器1.发送数据 (列表框1.取项目文本 (变量1 - 1), 取随机字节集 (), 1)
- .计次循环尾 ()
- 延迟 (1)
- .判断循环尾 ()
- .子程序 _服务器1_客户进入
- 列表框1.加入项目 (服务器1.取回客户 (), )
- .子程序 _服务器1_客户离开
- .局部变量 项目数, 整数型
- .局部变量 变量1, 整数型
- .局部变量 客户, 文本型
- 项目数 = 列表框1.取项目数 ()
- 客户 = 服务器1.取回客户 ()
- .计次循环首 (项目数, 变量1)
- .如果真 (列表框1.取项目文本 (变量1 - 1) = 客户)
- 列表框1.删除项目 (变量1 - 1)
- 跳出循环 ()
- .如果真结束
- .计次循环尾 ()
- .子程序 取随机字节集, 字节集, , 取64kb的随机数据
- .局部变量 a, 整数型
- .局部变量 C, 字节集
- C = 取空白字节集 (65536)
- .计次循环首 (65536, a)
- C [a] = 到字节 (取随机数 (0, 255))
- .计次循环尾 ()
- 返回 (C)
复制代码
|
|